titiborregan5
XLDnaute Accro
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
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
Dernière édition: