Exécuter une macro depuis un bouton d’un autre classeur

[Atiom]

Bonjour le forum

J’ai un petit souci

Dans une UserForm j’ai un bouton que va ouvrir un autre classeur.

Private Sub CommandButton1_Click()
    Dim LeClasseur As Workbook
    Dim LeClasseurAOuvrir As Workbook
    Dim NomDuClasseurAOuvrir As String
    Dim DerLigne As Long
    Dim LeChemin As String
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    Set LeClasseur = ThisWorkbook
    LeChemin = ThisWorkbook.Path
    NomDuClasseurAOuvrir = "Planification.xls"
    Set LeClasseurAOuvrir = Workbooks.Open(LeChemin & "\" & NomDuClasseurAOuvrir, ReadOnly:=False)
    On Error GoTo 0
    Unload Me
End Sub

A’l ouverture de ce deuxième classeur ( dans le ThisWorkbook ) une macro doit se déclancher.

Private Sub Workbook_Open()
Sheets("Annuelles").Select
copie_annuelles
Application.ScreenUpdating = True
End Sub

Si j’ouvre le classeur manuellement ça fonctionne parfaitement mais pas depuis le bouton.
Je ne comprends pas ?

Merci de votre aide

 

[kjin]

Re : Exécuter une macro depuis un bouton d’un autre classeur

Bonjour,

Private Sub CommandButton1_Click()
    Dim LeChemin As String
    Application.ScreenUpdating = False
    LeChemin = ActiveWorkbook.Path
    Unload Me
    Workbooks.Open LeChemin & "\" & "Planification.xls"
    Application.ScreenUpdating = True

End Sub

A+
kjin

 

[Atiom]

Re : Exécuter une macro depuis un bouton d’un autre classeur

Salut Kjin

Merci, mais chez mois ça ne fonctionne pas.🙂
Le deuxième classeur ne s’ouvre pas.

Ets-ce que ça serait parce que le bouton est a l’intérieur de l’UserForm ?

 

[kjin]

Re : Exécuter une macro depuis un bouton d’un autre classeur

Re,
Bah je viens de tester et pas de pb !
Donc sans la macro complète...

Edit : et le bouton n'est pas dans mon tirroir... 😀

A+
kjin

 

[Atiom]

Re : Exécuter une macro depuis un bouton d’un autre classeur

Donc sans la macro complète...

Je ne comprends pas !

J’ai remplacé :

Private Sub CommandButton1_Click()
    Dim LeClasseur As Workbook
    Dim LeClasseurAOuvrir As Workbook
    Dim NomDuClasseurAOuvrir As String
    Dim DerLigne As Long
    Dim LeChemin As String
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    Set LeClasseur = ThisWorkbook
    LeChemin = ThisWorkbook.Path
    NomDuClasseurAOuvrir = "Planification.xls"
    Set LeClasseurAOuvrir = Workbooks.Open(LeChemin & "\" & NomDuClasseurAOuvrir, ReadOnly:=False)
    On Error GoTo 0
    Unload Me
End Sub

Par:

Private Sub CommandButton1_Click()
    Dim LeChemin As String
    Application.ScreenUpdating = False
    LeChemin = ActiveWorkbook.Path
    Unload Me
    Workbooks.Open LeChemin & "\" & "Planification.xls"
    Application.ScreenUpdating = True

End Sub

 

[kjin]

Re : Exécuter une macro depuis un bouton d’un autre classeur

Re,
As tu essayé de fermer puis relancer excel ?
A+
kjin

 

[Atiom]

Re : Exécuter une macro depuis un bouton d’un autre classeur

Oui, Ça ne fonctionne pas.

Afin de meilleur comprendre se que je souhaite faire, je mets deux fichiers

Ouvrir d’abord le fichier A.

 

[Atiom]

Re : Exécuter une macro depuis un bouton d’un autre classeur

PS :
J’ai modifié les deux fichiers.

Ce n’été pas assez clair.

Merci de votre aide

 

[kjin]

Re : Exécuter une macro depuis un bouton d’un autre classeur

Re,
Je n'ai pas regardé les modifs
A+
kjin

 

[Atiom]

Re : Exécuter une macro depuis un bouton d’un autre classeur

Re,

Merci on y est presque, je dis presque parce que j’oublié deux petits détails.

En se que concerne la première partie (ouvrir le fichier B c’est impeccable).

Maintenant, la Macro actuelle copie une seule colonne, or il se trouve que j’ai plusieurs colonnes à copier.

Et je souhaiterait depuis le Fichier B pouvoir réovrir l’UserForm1

Je te mets les deux fichiers

Merci d’avance

A+

 

[Atiom]

Re : Exécuter une macro depuis un bouton d’un autre classeur

Je considère que ce fil est résolu, la question de base est Exécuter une macro depuis un bouton d’un autre classeur.

Et Kjim que je remercie encore une fois a parfaitement donné la réponse.

Pour le problème du copier coller j’ouvre une autre discussion.

https://www.excel-downloads.com/thr...ion-des-colonnes-entre-deux-classeurs.124802/