Prob pour ouvrir et fermer un autre classeur

[Petronie]

Bonjour le Forum!
Bon, je débarque encore avec un problème de débutante.
J'ai un classeur avec des macros, qui s'appelle 'vetementsW'. Dans ce classeur, j'ai une USF avec des TextBox. Une de ces TextBox est 'Metier'. Je voudrais que quand le métier est 'AF', il ouvre automatiquement le classeur 'FicheIndivAF' mais, ça ne marche pas. Je ne dois pas donner le bon chemin, je pense.
Mon code pour l'instant, est le suivant:

If Metier = 'Af' Then
Workbooks.Open Filename:='FicheIndivAF.XLS'
End If

J'ai le message suivant: Erreur d'exécution'1004' 'FicheIndivAF.XLS' introuvable. Vérifeir l'orthographe....

Comment je dois faire?
L'orthographe est correcte.
Et c'est pareil pour fermer ce classeur. Je sais bien lui faire en registrer les modifications en mettant: 'Workbooks('FicheIndivAF').Save'

Est-ce quelqu'un sait m'aider?
Merci d'avance.

 

[Davidc57]

Bonjour le forum,

Essaye de mettre le chemin complet :

Workbooks.Open Filename:='FicheIndivAF.XLS'

A remplacer par :

Workbooks.Open Filename:='C:\\Excel\\FicheIndivAF.XLS' par exemple.

Pour sauver ton classeur et le fermer, il ne doit pas y avoir de problèmes ...

Activeworkbook.save
Activeworkbook.Close

A+
David

 

[Charly2]

Bonjour Petronie, bonjour David,
Buongiorno a tutte e tutti

Petite question Petronie : lances-tu ton USF par un CommandButton situé sur une feuille et es-tu sous XL97 ?

Si oui à une des 2 questions, essaies en modifiant la propriété TakeFocusOnClick de ton CommandButton (tu la mets à False).

A+

 

[Petronie]

Salut à vous. désolée mais j'ai du partir.
Pour répondre à Charly2, je lance mon USF à partir d'une autre USF.
Davidc57, je vais essayer avec ton code également, on verra bien si ça fonctionne ou pas.
Merci à vous.

 

[Petronie]

Voilà, ça fonctionne très bien.
La solution de Davidc57 était la bonne. Je n'utilisais pas le chemin complet.
Encore merci à vous deux.