ouvrir un userform d'un autre fichier

[anneh]

Bonjour a tous,

j'ai deux fichier
* le premier : devis bdd
* le second : devis

je souhaiterais a partir d'un bouton dans un userform du fichier devis bdd ouvrir l'userform1 du fichier devis

je vous remercie par avance

 

[laetitia90]

Re : ouvrir un userform d'un autre fichier

bonjour anneh🙂
suppose 2 fichier nommée A & B
de classeur A call macro es qui se trouve dans classeur B

Application.Run "B.xls!es"

dans classeur B

Sub es()
UserForm1.Show
End Sub

 

[anneh]

Re : ouvrir un userform d'un autre fichier

bonjour anneh🙂
suppose 2 fichier nommée A & B
de classeur A call macro es qui se trouve dans classeur B

Application.Run "B.xls!es"

dans classeur B

Sub es()
UserForm1.Show
End Sub

merci laetitia90 mais ça ne marche pas 🙁, j'avais deja essayer mais rien n'y fait

 

[anneh]

Re : ouvrir un userform d'un autre fichier

ça se surligne en jaune !!!!! mis:

Private Sub CommandButton7_Click()
Application.Run "devis.xlsm!openuser"

End Sub
sur bouton du classeur a

dans classeur b j 'ai creer un module openuser:

Sub openuser()
UserForm1.Show

End Sub

 

[laetitia90]

Re : ouvrir un userform d'un autre fichier

re, dans open de A pour ouvrir le fichier B
essai comme cela

Private Sub Workbook_Open()
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
Set appXl = CreateObject("Excel.Application")
appXl.Visible = False ' a adapter
Set Wb = appXl.Workbooks.Open("C:\Users\leti\Desktop\B.xls")
End Sub

attention chemin complet

si autre fichier pas ouvert pas marcher

 

[laetitia90]

Re : ouvrir un userform d'un autre fichier

re, je viens de tester avec extension .xlsm
pas de pb... du moment que devis egalement ouvert
fait un essai avec les 2 fichiers en piéce jointe pour voir??