Fermer tous les fichiers de même nom

bonjour Frank,

For Each wk In Application.Workbooks
If Left(wk.Name, 7) = "exemple" Then wk.Close SaveChanges:úlse 'ou True
Next

isabelle

franck001 a écrit :

Bonjour,

existe t'il une commande pour fermer tous les fichiers excel ouverts
commencant pas exemple par: "exemple_*"
exemple_1.xls
exemple_2.xls
exemple_3.xls
...

Merci

Par prudence, j'aurais ajouté Isabelle :
Lcase(Left(wk.Name, 7)) = "exemple"

;-))



"isabelle" <i@v> a écrit dans le message de groupe de discussion :
uhFu5IXgJHA.4864@TK2MSFTNGP04.phx.gbl...
bonjour Frank,

For Each wk In Application.Workbooks
If Left(wk.Name, 7) = "exemple" Then wk.Close SaveChanges:úlse 'ou True
Next

isabelle

franck001 a écrit :

Bonjour,

existe t'il une commande pour fermer tous les fichiers excel ouverts
commencant pas exemple par: "exemple_*"
exemple_1.xls
exemple_2.xls
exemple_3.xls
...

Merci

bonne idée Denis,
est qu'il neige chez toi ?

isabelle

michdenis a écrit :

Par prudence, j'aurais ajouté Isabelle :
Lcase(Left(wk.Name, 7)) = "exemple"

;-))



"isabelle" <i@v> a écrit dans le message de groupe de discussion :
uhFu5IXgJHA.4864@TK2MSFTNGP04.phx.gbl...
bonjour Frank,

For Each wk In Application.Workbooks
If Left(wk.Name, 7) = "exemple" Then wk.Close SaveChanges:úlse 'ou True
Next

isabelle

franck001 a écrit :

Bonjour,

existe t'il une commande pour fermer tous les fichiers excel ouverts
commencant pas exemple par: "exemple_*"
exemple_1.xls
exemple_2.xls
exemple_3.xls
...

Merci

| est qu'il neige chez toi ?

oui depuis 10 hres ce matin. Il va falloir
sortir la pelle !!! ;-))



"isabelle" <i@v> a écrit dans le message de groupe de discussion :
uUehxMYgJHA.5724@TK2MSFTNGP02.phx.gbl...
bonne idée Denis,
est qu'il neige chez toi ?

isabelle

michdenis a écrit :

Par prudence, j'aurais ajouté Isabelle :
Lcase(Left(wk.Name, 7)) = "exemple"

;-))



"isabelle" <i@v> a écrit dans le message de groupe de discussion :
uhFu5IXgJHA.4864@TK2MSFTNGP04.phx.gbl...
bonjour Frank,

For Each wk In Application.Workbooks
If Left(wk.Name, 7) = "exemple" Then wk.Close SaveChanges:úlse 'ou True
Next

isabelle

franck001 a écrit :

Bonjour,

existe t'il une commande pour fermer tous les fichiers excel ouverts
commencant pas exemple par: "exemple_*"
exemple_1.xls
exemple_2.xls
exemple_3.xls
...

Merci

michdenis a écrit :

| est qu'il neige chez toi ?

oui depuis 10 hres ce matin. Il va falloir
sortir la pelle !!! ;-))

ouin! pas une bonne idée mais, n'avions pas vraiment le choix,

isabelle

Impeccable cela fonctionne merci
--
------(-_-)°zZz------
Franck
http://www.deschamps-web.com


"isabelle" a écrit :

bonjour Frank,

For Each wk In Application.Workbooks
If Left(wk.Name, 7) = "exemple" Then wk.Close SaveChanges:úlse 'ou True
Next

isabelle

franck001 a écrit :
> Bonjour,
>
> existe t'il une commande pour fermer tous les fichiers excel ouverts
> commencant pas exemple par: "exemple_*"
> exemple_1.xls
> exemple_2.xls
> exemple_3.xls
> ...
>
> Merci
>
>

Moi le rajout LCase ne marche pas merci quand même
--
------(-_-)°zZz------
Franck
http://www.deschamps-web.com


"michdenis" a écrit :

Par prudence, j'aurais ajouté Isabelle :
Lcase(Left(wk.Name, 7)) = "exemple"

;-))



"isabelle" <i@v> a écrit dans le message de groupe de discussion :
uhFu5IXgJHA.4864@TK2MSFTNGP04.phx.gbl...
bonjour Frank,

For Each wk In Application.Workbooks
If Left(wk.Name, 7) = "exemple" Then wk.Close SaveChanges:úlse 'ou True
Next

isabelle

franck001 a écrit :
> Bonjour,
>
> existe t'il une commande pour fermer tous les fichiers excel ouverts
> commencant pas exemple par: "exemple_*"
> exemple_1.xls
> exemple_2.xls
> exemple_3.xls
> ...
>
> Merci
>
>