Bonjour,
J'ai environ 15 classeurs qui sont ouvert, dont 1 qui se nomme LIV
TOTAL.XLS, les autres se nomment *****.CSV et *****.XLS
je voudrais fermer par macro tous les fichiers *.CSV et *.XLS sans les
enregistrer, en laissant le fichier LIV TOTAL.XLS ouvert.
Est ce possible ??
Si oui merci d'avance.
Dom
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rai
Bonjour, J'ai environ 15 classeurs qui sont ouvert, dont 1 qui se nomme LIV TOTAL.XLS, les autres se nomment *****.CSV et *****.XLS je voudrais fermer par macro tous les fichiers *.CSV et *.XLS sans les enregistrer, en laissant le fichier LIV TOTAL.XLS ouvert. Est ce possible ?? Si oui merci d'avance. Dom
Bonjour,
Une solution pourrait être :
Sub fermetout() 'Nom = ActiveWorkbook.Name
'utiliser ligne ci-dessus si tu es sûr 'de n'excuter la macro QUE depuis le classeur LIV TOTAL 'dans ce cas, ne pas oublier de supprime la ligne ci-dessous
Nom = "LIV TOTAL.xls"
For Each cl In Application.Workbooks If cl.Name <> Nom Then cl.Close SaveChanges:úlse End If Next cl End Sub
Bonne continuation
Rai
Bonjour,
J'ai environ 15 classeurs qui sont ouvert, dont 1 qui se nomme LIV
TOTAL.XLS, les autres se nomment *****.CSV et *****.XLS
je voudrais fermer par macro tous les fichiers *.CSV et *.XLS sans les
enregistrer, en laissant le fichier LIV TOTAL.XLS ouvert.
Est ce possible ??
Si oui merci d'avance.
Dom
Bonjour,
Une solution pourrait être :
Sub fermetout()
'Nom = ActiveWorkbook.Name
'utiliser ligne ci-dessus si tu es sûr
'de n'excuter la macro QUE depuis le classeur LIV TOTAL
'dans ce cas, ne pas oublier de supprime la ligne ci-dessous
Nom = "LIV TOTAL.xls"
For Each cl In Application.Workbooks
If cl.Name <> Nom Then
cl.Close SaveChanges:úlse
End If
Next cl
End Sub
Bonjour, J'ai environ 15 classeurs qui sont ouvert, dont 1 qui se nomme LIV TOTAL.XLS, les autres se nomment *****.CSV et *****.XLS je voudrais fermer par macro tous les fichiers *.CSV et *.XLS sans les enregistrer, en laissant le fichier LIV TOTAL.XLS ouvert. Est ce possible ?? Si oui merci d'avance. Dom
Bonjour,
Une solution pourrait être :
Sub fermetout() 'Nom = ActiveWorkbook.Name
'utiliser ligne ci-dessus si tu es sûr 'de n'excuter la macro QUE depuis le classeur LIV TOTAL 'dans ce cas, ne pas oublier de supprime la ligne ci-dessous
Nom = "LIV TOTAL.xls"
For Each cl In Application.Workbooks If cl.Name <> Nom Then cl.Close SaveChanges:úlse End If Next cl End Sub
Bonne continuation
Rai
Dom
Merci, Nickel cela fonctionne
Dom
"Rai" <raimondpointschmidtatberlinpointde> a écrit dans le message de news: 44af5b66$0$832$
Bonjour, J'ai environ 15 classeurs qui sont ouvert, dont 1 qui se nomme LIV TOTAL.XLS, les autres se nomment *****.CSV et *****.XLS je voudrais fermer par macro tous les fichiers *.CSV et *.XLS sans les enregistrer, en laissant le fichier LIV TOTAL.XLS ouvert. Est ce possible ?? Si oui merci d'avance. Dom Bonjour,
Une solution pourrait être :
Sub fermetout() 'Nom = ActiveWorkbook.Name
'utiliser ligne ci-dessus si tu es sûr 'de n'excuter la macro QUE depuis le classeur LIV TOTAL 'dans ce cas, ne pas oublier de supprime la ligne ci-dessous
Nom = "LIV TOTAL.xls"
For Each cl In Application.Workbooks If cl.Name <> Nom Then cl.Close SaveChanges:úlse End If Next cl End Sub
Bonne continuation
Rai
Merci, Nickel cela fonctionne
Dom
"Rai" <raimondpointschmidtatberlinpointde> a écrit dans le message de news:
44af5b66$0$832$ba4acef3@news.orange.fr...
Bonjour,
J'ai environ 15 classeurs qui sont ouvert, dont 1 qui se nomme LIV
TOTAL.XLS, les autres se nomment *****.CSV et *****.XLS
je voudrais fermer par macro tous les fichiers *.CSV et *.XLS sans les
enregistrer, en laissant le fichier LIV TOTAL.XLS ouvert.
Est ce possible ??
Si oui merci d'avance.
Dom
Bonjour,
Une solution pourrait être :
Sub fermetout()
'Nom = ActiveWorkbook.Name
'utiliser ligne ci-dessus si tu es sûr
'de n'excuter la macro QUE depuis le classeur LIV TOTAL
'dans ce cas, ne pas oublier de supprime la ligne ci-dessous
Nom = "LIV TOTAL.xls"
For Each cl In Application.Workbooks
If cl.Name <> Nom Then
cl.Close SaveChanges:úlse
End If
Next cl
End Sub
"Rai" <raimondpointschmidtatberlinpointde> a écrit dans le message de news: 44af5b66$0$832$
Bonjour, J'ai environ 15 classeurs qui sont ouvert, dont 1 qui se nomme LIV TOTAL.XLS, les autres se nomment *****.CSV et *****.XLS je voudrais fermer par macro tous les fichiers *.CSV et *.XLS sans les enregistrer, en laissant le fichier LIV TOTAL.XLS ouvert. Est ce possible ?? Si oui merci d'avance. Dom Bonjour,
Une solution pourrait être :
Sub fermetout() 'Nom = ActiveWorkbook.Name
'utiliser ligne ci-dessus si tu es sûr 'de n'excuter la macro QUE depuis le classeur LIV TOTAL 'dans ce cas, ne pas oublier de supprime la ligne ci-dessous
Nom = "LIV TOTAL.xls"
For Each cl In Application.Workbooks If cl.Name <> Nom Then cl.Close SaveChanges:úlse End If Next cl End Sub
