Fermeturede 2 fichiers

Le
Guy72
Bonjour
Pour ouvrir 2 fichiers, comme code, j'ai:

Sub auto_open()

ChDir "C:Mes documentsMétéo"
Workbooks.Open Filename:="C:Mes documentsMétéoRelevés.xls"
End Sub

ça fonctionne, par contre je ne sais pas quoi faire pour les fermer ensemble
?
Merci de votre aide.
--
Cordialement
Guy
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
francois.forcet
Le #6708591
Salut Guy
Pour fermer "Relevés.xls" tu mets :

Workbooks("Relevés.xls").Close Savechanges:úlse (sans sauvegarder)
True (Avec sauvegarde)

Idem pour le 2° fichier dont je ne connais pas le nom

Celà devrait convenir

Dis moi !!!!
Guy72
Le #6709061
Salut François,
Je suppose qu'il faut faire une autre macro ?
Sub auto_close
Workbooks("Relevés.xls").Close Savechanges:=True
--
Cordialement
Guy


Salut Guy
Pour fermer "Relevés.xls" tu mets :

Workbooks("Relevés.xls").Close Savechanges:úlse (sans sauvegarder)
True (Avec sauvegarde)

Idem pour le 2° fichier dont je ne connais pas le nom

Celà devrait convenir

Dis moi !!!!
francois.forcet
Le #6709031
Rebonjours Guy
Tu pourrais effectivement rajouter le bout de code de fermeture dans
ta macro :
Sub auto_open()
Mais je ne verrais pas l'interet et le but d'un code qui ouvrirait et
fermerait dans la foulée des fichiers
Mais on voit de tout pourquoi pas comme :
Code ouverture
Code de traitement
Code Fermeture
A toi de décider :
Pour ouvrir et fermer dans un même processus des fichiers code
d'ouverture et de fermeture dans la même Macro
Pour ouvrir et fermer dans 2 processus différents des fichiers code
d'ouverture et de fermeture dans 2 Macros indépendantes

Espérant avoir répondu à ton interrogation
Publicité
Poster une réponse
Anonyme