Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

renvoi sur un userform si impossible d'ouvrir un autre document Excel ?

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Doudou45

XLDnaute Junior
Hello ami(e)s du forum,

Voilà j'ai une petite question : je suis en train de développer un nouvel outil au boulot et dans une des phases de developement, j'aurais besoin qu'une macro ouvre un autre classeur. Juste que là, rien de bien complexe, seulement plutôt que de me renvoyer un message d'erreur si le système ne trouve pas le classeur en question (le nom du classeur correspond en fait au nom d'une variable contenue dans un programme mère...) j'aimerais plutôt qu'il m'ouvre un autre userform (userform1 par exemple) me permettant a partir de celui-ci d'orchestrer d'autres actions...alors est ce quelqu'un peu m'aider ? Quel est le code à utiliser pour assurer cette (petite) sequence ? Peut être rien de difficile mais je sèche un peu pour l'instant...
Merci d'avance pour votre aide 😛
 
Re : renvoi sur un userform si impossible d'ouvrir un autre document Excel ?

En gros, la synthése doit être quelque chose comme ça :

Lors de l'execution, à l'ouverture du classeur :

Workbooks.Open Filename:= _
"\\Lien d'acces XXX\" & Label5.Caption & ".xls" (comme évoqué le nom du classeur est relatif au nom d'un libellé d'un userform...)

Si il ne trouve pas le fichier en question alors il charge :
Userform 1.show
par exemple...plutôt que de renvoyer un message d'erreur.

Comment écrire cette petite commande ?

Merci encore pour vos retours !
 
Re : renvoi sur un userform si impossible d'ouvrir un autre document Excel ?

Bonjour

peut-être en testant d'abord si le classeur existe ? comme ceci

Code:
Result = Dir("\\Lien d'acces XXX\" & Label5.Caption & ".xls" )

If Result = "" Then 
   UserForm1.show
else
   Workbooks.Open Filename:= "\\Lien d'acces XXX\" & Label5.Caption & ".xls" 
end if

Non testé

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…