Se connecter avec
S'enregistrer | Connectez-vous

Enregistrements iteratifs de fichiers

Dernière réponse : dans Programmation

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).

  1. Option Explicit
  2. Sub copiecolle()
  3. '
  4. ' copiecolle Macro
  5. ' Macro enregistrée le 23/05/2011
  6. '
  7. ' Touche de raccourci du clavier: Ctrl+g
  8. '
  9. Dim i As Integer
  10. For i = 0 To 59
  11. Workbooks.Open Filename:="C:\Moyenne_VP\VL_i.xls"
  12. Cells.Select
  13. Selection.Copy
  14. Workbooks.Add
  15. Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  16. False, Transpose:=False
  17. Range("A1").Select
  18. Application.CutCopyMode = False
  19. ActiveWorkbook.SaveAs Filename:="C:\Moyenne_VP\total_i.xls", FileFormat:= _
  20. xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
  21. , CreateBackup:=False
  22. ActiveWindow.Close
  23. ActiveWindow.Close
  24. Next i
  25. 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.
Lassé par la pub ? Créez un compte

Citation :
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 !). :) 
Lassé par la pub ? Créez un compte