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

[Doudou45]

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

 

[Doudou45]

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 !

 

[Paf]

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

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+

 

[Doudou45]

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

Visiblement aussi simple que ceci, celà à l'air de fonctionner une fois adapté.
Merci bcp Paf