Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

vba : importer un module depuis un bouton

dionys0s

XLDnaute Impliqué
Bonsoir le forum.

J'ai eu beau chercher sur Internet je n'ai rien trouvé, et les liens apparemment les plus intéressants étaient périmés. Seul une explication claire a été fournie (sur ce forum) mais elle ne fonctionne pas...

J'ai un fichier excel, et je souhaiterais qu'en appuyant sur un bouton, le classeur importe un module qui est stocké sur mon disque dur.

j'ai mis ce code dans mon bouton :

Code:
Dim Modulos As String
Modulos = "C:\Mes Macros\Module1.bas"

With Workbooks("LeClasseurCible.xls").VBProject
.VBComponents.Import Modulos
End With

Mais ça ne marche pas. Peut-être me suis-je trompé. Pour moi le classeur cible c'est l'activeworkbook. J'ai essayé en remplacant LeClasseurCible.xls par activeworkbook.name, ou encore par activeworkbook.path & "\" & activeworkbook.name, ou encore par le chemin complet du fichier en texte, ça ne marche pas. Y a t il une référence à activer ? Comment puis-je procéder ?

D'avance merci pour votre aide
 

dionys0s

XLDnaute Impliqué
Re : vba : importer un module depuis un bouton

Merci pour l'info.
Ceci dit, je l'aie activée, et ça ne marche pas.

Mon code exact :

Code:
Private Sub CommandButton1_Click()

MsgBox "CA MARCHE !!!!!!!!!!!!!!"
Dim Modulos As String
Modulos = "C:\Documents and Settings\STAGIAIRE.FINANCE\Bureau\Achats\SUPPORT\Modules\Validation.bas"

With Workbooks(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls").VBProject
.VBComponents.Import Modulos
End With

End Sub
 

dionys0s

XLDnaute Impliqué
Re : vba : importer un module depuis un bouton

j'ai essayé avec ce code également :

Code:
Private Sub CommandButton1_Click()

MsgBox "CA MARCHE !!!!!!!!!!!!!!"
Dim Modulos As String
Modulos = "C:\Documents and Settings\STAGIAIRE.FINANCE\Bureau\Achats\SUPPORT\Modules\Validation.bas"

With Workbooks("C:\Documents and Settings\STAGIAIRE.FINANCE\Bureau\Achats\VALIDATION_EN_COURS\BAR-2010-11-001.xls").VBProject
.VBComponents.Import Modulos
End With

End Sub

et j'ai le message d'erreur suivant :
erreur d'execution '9' :
l'indice n'appartient pas à la sélection

 

dionys0s

XLDnaute Impliqué
Re : vba : importer un module depuis un bouton

Merci pour le lien.

Je n'y arrive pas mais je vais continuer d'essayer et chercher.
Si d'aventure quelqu'un a une idée je suis preneur.

Bonne soirée à tous
 

dionys0s

XLDnaute Impliqué
Re : vba : importer un module depuis un bouton

Rha j'y crois pas !!!
Je devais juste cocher "faire confiance au projet visual basic" dans outils\macros\sécurité !!!!!!!!!!!!
2 heures de recherches pour ca !!!

Merci à vous tous quand même
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…