Appel de procédure située dans un autre classeur

Salut a toutes et a tous

Apres recherche sur le forum j´au pas eu reponse a mon probleme.

voici ma situation.

j´ai un classeur1 avec un modul dans lequel se trouve la procedure " USF1_Open qui bien sur ouvre USF1

Ainsi :

Modul1

Sub USF1_Open

USF1.show

end Sub

alors dans un Classeur2 j´ai une autre USF nommé USF2 . a partir du Bouton1 situé sur USF2 j´aimerai executer USF1 du classeur1

sous l´interface de ce bouton j´ai ecrit la procedure suivante :

Private Sub Bouton1_Click()

Application.Run "Classeur1!Modul1"

End Sub

mais ca ne marche pas . alors j´ai essaye

Private Sub Bouton1_Click()

Application.Run "Classeur1!Modul1.USF1_Open"

End Sub

mais tjr rien ..

merci de votre aide

Tjr pas de reponse a ma question

voila 2 fichier pour ulustre ma pensée

le fichier (Unterbrechung ) comporte un USF qui s´ouvre au click sur bouton situe a la feuille (Tabelle1)

j´aimerai a partir d´un double click sur la colonne A de la feuille ( Tabelle1) du fichier Open_classeur ouvrir USF de mon fichier (Unterbrechung)

a l´aide !!!!

Bonjour

Essayes

Code dans le module de la feuille ( Tabelle1) du fichier Open_classeur

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 Then
    Cancel = True
    Run "Unterbrechungen.xlsm!Schaltfläche2_KlickenSieAuf"
  End If
End Sub

Attention si le nom de ton fichier comporte au moins une espace il faut mettre des apostrophes ( ' ) entourant le nom du fichier

Run "'Unterbrechungen.xlsm'!Schaltfläche2_KlickenSieAuf"

Bonjour tu n'étais pas loin de la réponse:

Application.Run ("'Classeur1.xls'!test") 'nom du classeur et ensuite nom de la macro

note les parenthèses et les guillemets

Merci de vos interventions rvtoulon & Banzar64

@Banzar64

ton code m´affiche malheuresement un message d´erreur de code 9.

et marque la procedure me permettant de gerer mes et combobox celle ci-dessous.

lorsque je commente toute cette procedure alors tt fonctionne parfaitement mais bien entendu mais combobox st vides.

@rvtoulon ta methode n´a malheuresement pas changé grand chose..

c´est bien embetant tout ca... merci pour vos idées..

'combobox charger

'Sheets("Namen").Select

'ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value

'ComboBox2.List = Range("B2:B" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value

'With Sheets("T5_Unterbrechungsdaten")

' TextBox2 = .Range("D" & .Range("D" & Rows.Count).End(xlUp).Row)

' TextBox3 = .Range("E" & .Range("E" & Rows.Count).End(xlUp).Row)

'End With

Bonjour

C'est tout à fait normal que tu as ce message d'erreur

Tu ouvres un Userform dans lequel tu remplis des combobox qui dépendent d'une feuille du classeur que tu ouvres

Mais dans le code tu ne précises pas

Mais j'ai répondu à ta question

j´aimerai a partir d´un double click sur la colonne A de la feuille ( Tabelle1) du fichier Open_classeur ouvrir USF de mon fichier (Unterbrechung)

Une suite je t'ai modifié la procédure afin que ton userform s'affiche

'Automatische Initialisierung von unterbrechungsNR
Private Sub UserForm_Initialize()
  Me.StartUpPosition = 2
  With ThisWorkbook
    If Icre = True Then TextBox1 = WorksheetFunction.Max(.Sheets("T5_Unterbrechungsdaten").Range("A3:A10000")) + 1

    'combobox Aufladen
    With .Sheets("Namen")       '.Select
      ComboBox1.List = .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
      ComboBox2.List = .Range("B2:B" & .Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
    End With

    With .Sheets("T5_Unterbrechungsdaten")
      TextBox2 = .Range("D" & .Range("D" & Rows.Count).End(xlUp).Row)
      TextBox3 = .Range("E" & .Range("E" & Rows.Count).End(xlUp).Row)
    End With
  End With
End Sub

A toi d'adapter les autres macros afin qu'elles fonctionnent indépendamment de la manière d'ouvrir l'userform

Merci pour cette precision

vois-tu j´ai pas encor le reflex en VBA mais grace a vous j´y arrive lentement mais surement ..