Re : Comment incrémenter une ligne Excel
Voici ma macro:
j'ai commencé par créer un modele "départ arrivé" a partir de mon fichier.
je selectione la permière ligne (grenoble,...,38000) que je copie dans le classeur arrvié de mon nouveau fichier.
Sub Macro5()
'
' Macro5 Macro
'
'
Workbooks.Add Template:= _
"C:\Users\LDNB0036\AppData\Roaming\Microsoft\Templates\Départ-Arrivé.xltm"
Windows("Départ-Arrivé.xlsx").Activate ' copie la cellule gernoble dans la cellule ville du fichier arrivé
Range("A4").Select
Selection.Copy
Windows("Départ-Arrivé1").Activate
Range("C17").Select
ActiveSheet.Paste
Windows("Départ-Arrivé.xlsx").Activate
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Départ-Arrivé1").Activate
Range("C15").Select
ActiveSheet.Paste
Windows("Départ-Arrivé.xlsx").Activate
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Départ-Arrivé1").Activate
Range("C16").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ChDir "C:\Users\LDNB0036\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\LDNB0036\Desktop\Départ-Arrivé1.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Windows("Départ-Arrivé.xlsx").Activate
End Sub
Du coup maintenant faut faire une boucle for pour répeter cette opération 2 fois (en créant 2 autres fichiers) et arriver à les enregistrer :S
)