erreur 1004 toute bete

[globulle93]

bonjour
je reviens car j'ai une erreur pour une macro vba qui doit être toute bête mais j'arrive pas a trouver voila le code

 Option Explicit
Dim WSD As Worksheet
Dim WSR As Worksheet
Dim Boutiques As Workbook
Dim mag As Worksheet
Dim nummag As String
Dim numboutique As String
Dim Pdv As String
Dim j As Integer
Dim k As Integer
Dim i As Integer
Dim nextrow As Integer

Sub Ecom()
     
        Application.ScreenUpdating = False
    
    Set WSD = Worksheets(1)
    Set WSR = Worksheets.Add(after:=Worksheets(1))
    
    WSR.Name = "COMPTA"
      
     WSR.Select
     Dim FinalRowb As Integer             ' derniere ligne fichier boutique
    Dim FinalRowA As Integer              ' derniere ligne fichier Amex
   
   Set WSD = Worksheets(1)
    Set Boutiques = GetObject("C:\xxxxx\Liste des comptes.xlsx")
    Set mag = Boutiques.Worksheets(1)
     
    nextrow = 1
     
     FinalRowA = WSD.Cells(Rows.Count, 1).End(xlUp).Row 'calcul derniere ligne fichier Amex
     FinalRowb = mag.Cells(mag.Rows.Count, 1).End(xlUp).Row 'calcul derniere ligne fichier Boutiques
          
        For j = 2 To FinalRowb
                numboutique = Boutiques.Sheets(1).Cells(j, 8).Value
                
        For k = 1 To FinalRowA
               
                nummag = Left(WSD.Cells(k, 10).Value, 3)
                        
     If numAmex = numboutique Then
  
      Call magasin
   
      End If
      Next k
      Next j
      
      Set WSD = Nothing
    Set WSR = Nothing
    Set Boutiques = Nothing
    Set mag = Nothing
      
      End Sub
     
__________________________________________________________________________
     Private Sub magasin()
     
  Pdv = CStr(Boutiques.Sheets(1).Cells(j, 8).Value)

If Pdv = "150" Or "154" Then
Call cclaudie

ElseIf Pdv = "296" Then
Call cmaje

ElseIf Pdv = "100" Then
Call candy

End If

End Sub
__________________________________________________________________________
Private Sub cclaudie()

Set WSD = Worksheets(1)
Set WSR = Worksheets(2)

WSR.Select

WSR.Cells(nextrow, 1) = "G"
WSR.Cells(nextrow, 2) = "VD"

WSR.Cells(nextrow, 3) = Replace(WSD.Cells(i, 2), "/", "")
WSR.Cells(nextrow, 3).NumberFormat = "00000000"


     End Sub
____________________________________________________________________________
Private Sub cmaje()

End Sub

Private Sub candy()

End Sub
_____________________________________________________________________

mon erreur est ici

WSR.Cells(nextrow, 3) = Replace(WSD.Cells(i, 2), "/", "") erreur 1004 defini par l'appli ou l'objet.

le code doit d'un tableau donné feuille 1 d'un fichier aller verifier dans un autre fichier référence une correspondance avec un élément pour après créer une feuille 2 dans donné et me recopier des info du fichier référence.

le pire c'est que j'en ai déjà fait un hyper complexe et la je doit passé sur le problème sans le voir.

 

[chonos]

si cela peut t'aider (pas sûr)

Vous devez être connecté pour voir les liens.

 

[globulle93]

bonjour
alors même pas une proposition les maitres vba ? merci chonos mais marche pas.