Ouverture et fermeture du fichier

[Jean-Marc]

Bonjour

Voici mon problème

Lorsque j'ouvre le classeur1, je voudrais avoir la
possibité d'ouvrir le classeur2 avec une macro pas un
chemin bien spécifique en réseau par exemple ouvrir le
classeur dans \\excel\base de donnée\ En suite d'avoir la
possibilité de refermer uniquement le classeur2 avec une
macro sans qu'il me demande de sauvegarder et qu'il me
ferme tous les autres classeurs.

Voici les codes que j'ai trouvé :

pour ouvrir :

Private Sub Janvier_Click()
Workbooks.Open "janvier.xls"
ActiveWorkbook.RunAutoMacros xlAutoOpen
End Sub

mais malheureusement je ne peux lui donner un chemin bien
spécifique comme \\excel\base de donnée\


Pour fermer :

Private Sub Janvier_Click()
Workbooks.Close "janvier.xls"
ActiveWorkbook.RunAutoMacros xlAutoOpen
End Sub

Malheureusement il ferme tous les classeurs et il me
demande si je désire sauvegarder.

Alors si quelqu'un aurait une bonne idée, alors merci pour
son aide.

Jean-Marc

 

[Ronan Quennec]

Bonjour,
Normalement, pour fermer un classeur spécifique, le code est le suivant :

Workbooks("classeur1.xls").Close

Maintenant, concernant le message de sauvegarde, reste à savoir si tu veux que ton classeur s'enregistre automatiquement à la fermeture sans te demander ton autorisation ou si tu veux le fermer sans enregistrer les modifications.

En cas de fermeture du classeur sans enregistrement tu dois mettre le code suivant :

Application.DisplayAlerts = False
Workbooks("classeur1.xls").Close
Application.DisplayAlerts = True

En cas de fermeture du classeur avec enregistrement automatique, tu dois mettre le code suivant :

Workbooks("classeur1.xls").Save
Workbooks("classeur1.xls").Close

 

[Cathy]

Quitter sans sauvegarder les changements :

ThisWorkbook.Saved = True
ThisWorkbook.Close

pas besoin de DisplayAlerts = False

mais ATTENTION! il ferme sans enregistrer les modifications et sans message d'alerte (mais c'est bien ce que tu veux!)

C@thy

 

[Cathy]

Finalement non, c'est pas ce que tu veux, Ronan t'a répondu, mais ça peut servir pour une autre fois.

C@thy