Discussion :

[fredoos]

Bonjour et merci déjà d'avoir pris le temp de lire ce message.
Je suis novice en programmation VBA et j'ai un classeur(1) pour gérer du matériel "bon état" et "mauvais état" après réparation, et j'aurais voulu à partir d'un USERFORM(A) existant ouvrir un autre classeur(2) avec ouverture d'un autre USERFORM(B) au démarrage (jusqu'ici je sais faire ) .Mais tout ce complique quand je ferme le USERFORM(B) ,par une commande

Code :

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

1
2
3
Unload USERFORM(B)
ActiveWorkbook.Save
'Workbooks("classeur(2).xls").Close

je souhaiterai si possible reprendre ma macro d'origine juste après l'appel à l'ouverture du classeur(2) pour revenir au USERFORM(A) ou si cela n'est pas possible ouvrir une autre macro (X) dans le Module13 du classeur(1) pour relancer mon USERFORM(A) .
J'ai essayé la commande :

Code :

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

Application.Run "classueur(1).xls!Module13.X

mais sans succès .
Je sèche .
Je ne peut pas mettre un exemple de fichier car il est trop volumineux.
Merci.

[Sebphyto]

Voir le tuto de Silkyroad : ICI

Comment se nomme ton classeur1, y-a-t-il des espaces?

car si espace, il faut mettre des apostrophes:

Code :

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

Application.Run "'classeur num 1.xls'!Module13.X"

si pas d'espace pas de '

Sinon il faut également que ton classeur soit déjà ouvert, pour appeler ta macro.

Tu peux le faire ainsi:

Code :

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

1
2
3
4
5
6
7
8
Dim Worbk As Workbook  
Set Worbk = Workbooks("Mon classeur.xls")  
On Error GoTo erreur  
     Workbooks.Open "R:\Blabla\\Mon classeur.xls"  
     Application.Run ("'Mon classeur.xls'!test")     '----> attention apostrophe car espace dans nom du fichier
     exit sub
erreur:  
MsgBox "le classeur " & Worbk & "est inexistant dans le dossier indiqué", vbCritical

[fredoos]

Merci beaucoup,
cela ma résolu un problème (le nom de mon fichier avait des espace).
Mais je me posais une question .
Peu t on avec un bouton "ouvrir" dans un USERFORM(A) d'un classeur(1), lancer par l'intermédiaire d'une MACRO(X) qui vient tester des conditions un USERFORM(B) contenu dans un autre classeur(2) et une fois que l'on a fini de se servir du USERFORM(B) avec un bouton "quitter" fermer le classeur(2) et revenir terminer la MACRO(X) du classeur(1).
J'espère avoir été clair.
car lorsque je lance la macro de mon classeur(1) dans mon classeur(2) avec ma fonction run tout ce passe bien sauf au moment ou je demande de fermer mon classeur(2) ou la je sort de ma macro et me retrouve dans le classeur (alors que le but est que les gens n'accède pas au classeur juste au USERFORM).
Mais encore merci pour le tuto et l'astuce de l'apostrophe .
j'apprend doucement mais surement.

[Sebphyto]

Je suis sur ton affaire de retour sur le classeurA pour finir la macro.....

Pour l'instant, je ne sais pas si tu avais réussi mais voice comment passer d'un Usf à un autre en fermant par la suite le classeur:

Dans le classeurA:
code de usf, bouton click "ouvrir usf":

Code :

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

1
2
3
4
5
6
7
8
Sub CommandButton1_Click()
 
 Application.Run "Classeur2.xlsm!AfficheUserForm2"
 
 ' si ton classeur2 est fermé alors il faut mettre le chemin entier
 'Application.Run "'C:\Users\seb\Desktop\Classeur2.xlsm'!AfficheUserForm2"
 
End Sub

Code du module classeur A:

Code :

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

1
2
3
4
5
6
sub Ta macro
'début de ta macro
'ouverture de usfA
UserFormA.Show 
'fin de ta macro
End sub

Dans ton Classeur B:
bouton "quitter" du l'usfB

Code :

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

1
2
3
4
5
Private Sub CommandButton2_Click()
ThisWorkbook.Save 'enregistrement classeur
Unload Me 'fermeture usf
ThisWorkbook.Close True 'fermeture classeur
End Sub

dans le module du classeurB:

Code :

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

1
2
3
Sub AfficheUserForm2()
 UserForm2.Show
 End Sub

Voilà pour l'instant et reviendrai pour le retour dans la procedure du classeurA après fermeture du classeurB....

Seb

Bon, ayant peu de connaissance dans certains domaine du VBA, j'ai ouvert un post (((ICI))) qui répondra à ta question....

En espérant t'avoir aidé pour le mieux

Seb

Ps: oublies pas ce qu'il y a d'écrit dans ma signature!!!

[fredoos]

Merci beaucoup pour le travail effectué !!!!! je n'ai pas encore eu le temp de tester tout cela mais je comprend un peu mieux tout cela !!!
encore merci et je ne manquerais pas de poster mes résultats (bon ou mauvais ).
encore merci seb .
ps:je n'oubli pas la signature.

[Sebphyto]

Y pas de quoi, je ne suis pas seul à t'avoir aider, indirectement beaucoup de personnes ont participé afin d'en arriver ici.... dans le VBA, mais je t'avouerai que j'ai encore beaucoup à apprendre et ce forum est là pour çà et de loin le meilleur....

Et je les en remercie.

N'oublies pas de mettre ton résultat en ligne cela pourra en aider bien d'autres

Seb

[Invité]

Bonsoir,
Apporter son aide à d'autres,c'est un bon moyen de trouver des sujets d'études pour améliorer ses propres compétences! Bonne initiative ��

[Sebphyto]

Merci rdurupt.....