Macro pour enregistrer fermer autres fichiers xlsx

Résolu
lazou08 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
lazou08 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   463
 
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   Statut Membre Dernière intervention  
 
Parfait ! cela fonctionne
merci beaucoup !
0