[VBA XL] Insérer du code dans un classeur Résolu/Fermé

Question

Bonjour, 

J'ai un bout de code VBA que je dois appliquer dans la feuille "ThisWorkbook" de 352 classeurs Excel. Plutôt que de faire 352 copier/coller à la main, je cherche un moyen de le faire par VBA. J'ai trouvé quelques bouts de codes sur internet mais je n'arrive pas à les adapter à mon besoin, ne serait-ce que pour un seul classeur de test.

Actuellement j'ai ça :


Sub MAJThisWorkbook()
Dim S As String, Wbk As Workbook
  
  With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
    S = .Lines(1, .CountOfLines)
  End With
  
  Set Wbk = Workbooks("C:\Documents and Settings\user\Bureau	est.xls")
  With Wbk.VBProject.VBComponents("ThisWorkbook").CodeModule
    .AddFromString S
  End With

End Sub


Ca plante à la ligne
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
"La méthode 'VBProject' de l'objet '_Workbook' a échoué"

Voilà, merci d'avance si vous pouvez m'aider !

Cdlt

Krysstof · Answer

sur office ??==>2003 :

menu outils, macro, sécurité, onglet "Source Fiable", cocher faire confiance au projet visual basic

reteste avec cette case cochée.

topace18 · Answer

Oui Office 2003 pardon.
J'ai coché maintenant ça plante un peu plus bas y'a un progrès :D

Set Wbk = Workbooks("C:\Documents and Settings\user\Bureau	est.xls")
L'indice n'appartient pas à la sélection.

Merci pour l'aide ^^

topace18 · Answer

Effectivement avec :

Workbooks.Open ("C:\Documents and Settings\user\Bureau	est.xls")
Set Wbk = Workbooks("test.xls")


Ca marche nettement mieux :D
J'espérais ne pas être obligé d'ouvrir les fichiers un par un mais bon tant pis ça ira très bien comme ça.

Merci beaucoup ! :D

[VBA XL] Insérer du code dans un classeur

3 réponses

Discussions similaires