Macro pour enregistrer fermer autres fichiers xlsx

Résolu/Fermé
lazou08 Messages postés 5 Date d'inscription mardi 10 juillet 2018 Statut Membre Dernière intervention 16 juillet 2018 - 16 juil. 2018 à 15:26
lazou08 Messages postés 5 Date d'inscription mardi 10 juillet 2018 Statut Membre Dernière intervention 16 juillet 2018 - 16 juil. 2018 à 15:48
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 !
A voir également:

1 réponse

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
16 juil. 2018 à 15:32
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
lazou08 Messages postés 5 Date d'inscription mardi 10 juillet 2018 Statut Membre Dernière intervention 16 juillet 2018
16 juil. 2018 à 15:48
Parfait ! cela fonctionne
merci beaucoup !
0