Macro pour enregistrer fermer autres fichiers xlsx [Résolu/Fermé]

Signaler
Messages postés
5
Date d'inscription
mardi 10 juillet 2018
Statut
Membre
Dernière intervention
16 juillet 2018
-
Messages postés
5
Date d'inscription
mardi 10 juillet 2018
Statut
Membre
Dernière intervention
16 juillet 2018
-
Bonjour à tous !

J'essaie tant bien que mal à coder une macro au clic sur un bouton mais je n'arrive pas à résoudre mon problème qui est assez simple :

J'ai une vingtaine de fichiers excel ouverts en dehors de celui où est codée ma macro. Je désirerais que ma macro ferme au clic, les 20 autres fichiers excel ouverts par ailleurs.

Pour les ouvrir j'utilise la fonction Workbooks.Open ( chemin d'accès du fichier )
Existe-t-il deux fonctions similaires pour enregistrer et fermer mes fichiers, du genre Workbooks.Save ( chemin d'accès du fichier ) et Workbooks.Close ( chemin d'accès du fichier ) ? car je n'arrive pas à les trouver
J'ai cependant trouver une commande "ActiveWorkBook Save" mais je n'arrive pas à savoir si elle enregistrer seulement le fichier actif ou bien tous ceux qui sont ouverts ...

Auriez-vous une petite idée de comment m'en sortir ?

Merci !

1 réponse

Messages postés
2143
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
22 novembre 2020
357
Bonjour

A tester
Sub Fermeture()
Dim Wbk As Workbook

For Each Wbk In Workbooks
If Wbk.Name <> ThisWorkbook.Name Then
Wbk.Save
Wbk.Close
End If
Next Wbk
End Sub

Cordialement
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 76687 internautes nous ont dit merci ce mois-ci

Messages postés
5
Date d'inscription
mardi 10 juillet 2018
Statut
Membre
Dernière intervention
16 juillet 2018

Parfait ! cela fonctionne
merci beaucoup !