Bonjour à tous,
Je vais vous mettre mon code, qui marche parfaitement. Seulement je souhaiterai y apporter quelques modifications, et celles-ci ne s’intègrent pas.
fichier = Cells(1, 1).Value
chemin = "K:\XXX\Reporting"
ActiveWorkbook.SaveAs Filename:=chemin & "\" & fichier & ".xls"
rep = MsgBox("Votre fichier a été sauvegardé avec succès sous le nom : " & Chr(10) & fichier & Chr(10) & "A l'adresse suivante: " & Chr(10) & chemin, vbOKOnly, fichier)
'copie et colle dans classeur réception
Workbooks.Open ("K:\X\Reporting\testtibo.xls")
Workbooks("testtibo.xls").Activate
With Workbooks(fichier).Sheets("Récapitulatif")
.Range("A2:T5").Copy Workbooks("testtibo").Sheets("arrivée").Range("A65536").End(xlUp).Offset(1, 0)
End With
'save and close Reception
ActiveWorkbook.Save
ActiveWorkbook.Close
'revenir à reporting
Windows(fichier).Activate
'save and close document avec nom de fichier = cellule A1
ActiveWorkbook.Close
Mes problèmes (au nombre de 2) se posent sur la partie qui est en rouge.
1. Lorsque je change le nom du classeur à ouvrir et sur lequel doivent être copiées les données, c’est tjs le même classeur qui s’ouvre… Etrange non ?
2. A l’origine le .Range("A2:T5").Copy était .Range("A2:S5).Copy
J’ai voulu passer en T5 car j’ai rajouté une colonne à copier, mais il n’y parvient pas.
J’espère avoir été assez clair, et suis preneur de toute vos suggestions ou interrogations sur la macro.
Merci d’avance,
Thibault