Ouverture & Fermeture

[St@tman]

Ouverture & Fermeture

Bonjour le forum,

J'ai un bouton sur un formulaire qui sert à ouvir un second fichier en fermant le premier.
Je lui est mis la macro suivante:

Sub Retour()
Workbooks("toto.xls").Close
Workbooks.Open Filename:="D:\mon repertoire\zozo.xls"
Application.DisplayAlerts = True
End Sub
Mon probléme est que ça ferme bien le fichier mais cela n'ouvre pas le second fichier.

Si quelqu'un a une idée

Merci d'avance
@+

 

[Dan]

Re: Ouverture & Fermeture

Bonjour,

Essaie ceci

Sub Retour()
Workbooks("toto.xls").Close
ChDir "D:\mon repertoire"
Workbooks.Open FileName:= "zozo.xls"
Application.DisplayAlerts = True
End Sub


bon travail et dans l'attente de te lire

Dan

 

[stef]

Re: Ouverture & Fermeture

salut

inverse les 2 actions
si tu ferme le fichier source de la macro en cours d'execution, elle aime pôa trop ;-)

@+

 

[St@tman]

Re: Ouverture & Fermeture

Bonjour Dan et Stef

Merci de vos suggestions, j'ai essayé de les appliquer sur les fichiers toto et zozo mais le probléme c'est que tout se ferme.
Ci-joint le fichier toto, pour info le fichier zozo est le même, comportant exactement les mêmes élements.

Merci de votre aide
@+

 

[michel]

Re: Ouverture & Fermeture

Bonjour St@tman , Dan et Stef

Sta@tman , es tu certain d’avoir suivi les conseils de Stef , car chez moi cela fonctionne très bien en inversant les deux actions : à moins que je n’ai pas bien compris le but de ta procédure ( ouverture de zozo.xls et fermer toto.xls )

Sub Retour()
Application.DisplayAlerts = False
Workbooks.Open FileName:="D:\mon repertoire\zozo.xls"
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub

Bon après midi
Michel

 

[St@tman]

Re: Ouverture & Fermeture

Michel,
Merci à toi, cela marche impéccable.

@+