Discussion :

[bonilla]

Bonjour à tous!

Voila ,ma demande est assez simple .
J'ai 30 fichiers excel différents ,avec la même structure (VBA compris)

Je suis amené a modifier et à rajouter quelques lignes sur mes 30 fichiers excel.
Ce que je pensais faire ,c'est faire une macro vba qui ,en listant mes 30 fichiers ,me les ouvrirait ,et modifierait mes macros et rajouterait un module par exemple.

Le truc un peu tordu ,c'est que j'aurais besoin de modifier dans des modules, mais aussi dans les feuilles Mircrosoft Excel Object (Feuil1 ,Feuil2..)

J'ai vu qu'il y avait ca pour rajouter un module, mais j'ai pas vu pour modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub EcritSUB() 'pour ecrire directement dans 1 new classeur
Dim Wbk As Excel.Workbook
Dim Code, I As Integer
Code = Array("Sub Test()", _
  "Msgbox ""Je suis une macro.""", _
  "End Sub")
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents.Add(vbext_ct_StdModule)
  For I = 0 To 2
    .CodeModule.InsertLines I + 1, Code(I)
  Next I
End With
Wbk.SaveAs "C:\ajeter\Test.xls"
End Sub

et je voudrais aussi a travers une boucle que ca m'ouvre Fichier1 ,ca modifie/ajoute module vba et vba dans Feuil1,ferme le fichier, ouvre fichier2 modifie/ajoute..jusqu'a fichier n

Merci pour votre future aide!

[Invité]

Bonjour

As-tu vu ce tuto : http://silkyroad.developpez.com/VBA/VisualBasicEditor/, il devrait t'apporter un partie des réponses.

Starec