Discussion :

[timtof2011]

bonjour,

voilà, 2 fichiers excel A et B...

Sur fichier A, son userform1 je click sur son commandButton1 et ça m'ouvre le Fichier B ainsi que son userForm1...

j'y arrive pas...et je tourne, tourne...

D'avance merci.
Tim

[Jean-Pierre49]

Bonjour

Une piste

Code :

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

1
2
3
4
5
6
7
8
9
Sub Ouverturefichier()
                            Dim Chemin                      As String
                            Dim Fichier                     As Workbook
                            Dim NomFichier                  As String
Chemin = "C:\" ' a adapter
NomFichier = "Menomdufichier.xls"' a adapter
 
Set Fichier = Workbooks.Open(Fichier & NomFichier)
End Sub

et dans le module ThisWorkbook de l'autre fichier

Code :

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

1
2
3
Private Sub Workbook_Open()
    Userform1.Show
End Sub

Tu dis

Bon courage

[timtof2011]

bonsoir Jean-Pierre49,

j'ai testé ton code, je reçois une erreur d'execution '91'
Variable objet ou variable de bloc With non définie

le premier fichier:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 
        Dim Chemin                      As String
        Dim Fichier                     As Workbook
        Dim NomFichier                  As String
        Chemin = "C:\" ' a adapter
        NomFichier = "test.xls" ' a adapter
 
        Set Fichier = Workbooks.Open(Fichier & NomFichier)
 
End Sub

le second:

Code :

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

1
2
3
Private Sub Workbook_Open()
    UserForm1.Show
End Sub

j'ai testé avec le second fichier fermé ou ouvert...rien ne change...
Merci de ton aide.
Tim

[Jean-Pierre49]

Autant pour Moi

Code :

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

1
2
3
4
5
6
                            Dim Chemin                      As String
                            Dim Fichier                     As Workbook
                            Dim NomFichier                  As String
Chemin = "C:\" ' a adapter
NomFichier = "test.xls"
Set Fichier = Workbooks.Open(Chemin & NomFichier)

Je me suis trompé avec le Chemin

[timtof2011]

Merci beaucoup Jean-Pierre49...pour tes conseilles ça fonctionne parfaitement...

Tim