Microsoft 365 Application.run

[farid]

Bonjour a vous tous,
j'ai la formule ci-dessous qui fonctionne très bien sans la ligne de commande "Application. Run".

Cependant, j'aurais voulu ajouter à la formule "Application. Run” mais j'ai à chaque fois un message qui dit qu'il ne trouve pas Création.

Si une personne peut me dire ce qui ne tourne pas rond..
Merci

Farid



Private Sub CommandButton18_Click()
Unload PDV2023
Unload Saisie2023

If ComboBox1.Value = "" Then Exit Sub
nom = ComboBox1.Value
rep = ActiveWorkbook.Path & "\Archive\Archive-2023\"
Workbooks.Open rep & nom & ".xlsm"



Application.Run "'.xlsm'!Création"
End Sub

 

[fanch55]

Bonsoir,
le code est incomplet :

Application.Run "'Fichier.xlsm'!Création"

 

[farid]

Bonsoir,
le code est incomplet :

Application.Run "'Fichier.xlsm'!Création"

Bonsoir Fanch , merci pour ce retour, mais malheureusement cela ne fonctionne pas .
Je te mets en PJ l'exemple qui n'est pas le fichier source (trop lourd) .
merci

 

[farid]

Bonsoir,
le code est incomplet :

Application.Run "'Fichier.xlsm'!Création"

joubliais de te dire pour le fichier , lorqu'on ouvre le fichier test , on clik sur le bouton et ouverture userform .Sur cet userfom , on choisi le classeur qu'on souhaite ouvrir qui se trouve dans le dossier "Archive/ archive2023"
merci

 

[fanch55]

Re,
Quand je disais Fichier, c'est le nom de votre classeur qu'il faut mettre.
En l’occurrence :

Private Sub CommandButton18_Click()
    If ComboBox1.Value = "" Then Exit Sub
    classeur = ComboBox1.Value & ".xlsm"
    rep = ActiveWorkbook.Path & "\Archive\Archive-2023\"
    Workbooks.Open rep & classeur
    Application.Run "'" & classeur & "'!Création"
End Sub

 

[farid]

Re,
Quand je disais Fichier, c'est le nom de votre classeur qu'il faut mettre.
En l’occurrence :

Private Sub CommandButton18_Click()
    If ComboBox1.Value = "" Then Exit Sub
    classeur = ComboBox1.Value & ".xlsm"
    rep = ActiveWorkbook.Path & "\Archive\Archive-2023\"
    Workbooks.Open rep & classeur
    Application.Run "'" & classeur & "'!Création"
End Sub

Merci infiniment. Nickel bonne journée