Guitouille a écrit :
Bonjour,
Range("A2:H" & Range("A" & Rows.Count).End(xlUp).Row).Copy
Range("A65536").End(xlUp).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
à la place de
Range("A2:H" & Range("A" & Rows.Count).End(xlUp).Row).Copy .Cells(Rows.Count, "A").End(xlUp)(2)
devrait fonctionner
Après avoir remplacé par ton code, la "Mise à jour" ou bien le Copier Collage-Spécial Valeur doit s'effectuer dans le fichier "Relevé de compte". Là, il s'effectue dans le fichier "Soldes bancaires".
sophang a écrit :
Guitouille a écrit :
Bonjour,
Range("A2:H" & Range("A" & Rows.Count).End(xlUp).Row).Copy
Range("A65536").End(xlUp).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
à la place de
Range("A2:H" & Range("A" & Rows.Count).End(xlUp).Row).Copy .Cells(Rows.Count, "A").End(xlUp)(2)
devrait fonctionner
Après avoir remplacé par ton code, la "Mise à jour" ou bien le Copier Collage-Spécial Valeur doit s'effectuer dans le fichier "Relevé de compte". Là, il s'effectue dans le fichier "Soldes bancaires".
ci joint la modification que j'ai apporté.