Résolu Enregistrements iteratifs de fichiers

[gregroy]

Bonjour à tous,

Le but de ce code serait de faire des copie/colle de feuilles excel (sans les formules ce qui me fait gagner de la place et me permet ensuite de travailler plus facilement sur ces fichiers). Mon problème est que je ne trouve pas comment créer une itération sur des noms de fichiers (ceux à ouvrir et ceux à créer).

Option Explicit
Sub copiecolle()
'
' copiecolle Macro
' Macro enregistrée le 23/05/2011
'
' Touche de raccourci du clavier: Ctrl+g
'
    Dim i As Integer
    For i = 0 To 59
        Workbooks.Open Filename:="C:\Moyenne_VP\VL_i.xls"
        Cells.Select
        Selection.Copy
        Workbooks.Add
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
        Range("A1").Select
        Application.CutCopyMode = False
        ActiveWorkbook.SaveAs Filename:="C:\Moyenne_VP\total_i.xls", FileFormat:= _
            xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
            , CreateBackup:=False
        ActiveWindow.Close
        ActiveWindow.Close
    Next i
End Sub

Les fichiers s'appellent donc VL_0 à VL_59, j'ai testé VL_& i &, VL_i, VL_"i" et d'autres choses encore moins cohérentes et ne trouve pas de solutions dans l'aide VB.

Merci d'avance pour vos réponses.

 

[gregroy]

Je répond moi-même à ma question : la syntaxe c'était presque ça mais pas tout à fait !

Il fallait écrire :

"C:\Moyenne_VP\VL_" & i & ".xls"

 

[zeb]

Meilleure réponse sélectionnée par zeb.

 

[zeb]

Mais que ce code est laid !!!!

 

[gregroy]

Mais que ce code est laid !!!!

Tout à fait d'accord. Mais ayant découvert les macros excel et le VB jeudi dernier et étant assez pressé par mes supérieurs je n'ai pas le temps de peaufiner les codes !

Promis j'essaierai de m'appliquer la prochaine fois (si on m'en laisse le temps !).