enregistrer et fermer plusieurs classeurs excel en même temps

[charette63]

Bonjour à toutes et à tous,

je recherche un code qui permette de fermer plusieurs classeurs (12) excel en même temps

tous les classeurs font partie du même répertoire

nom du classeur par lequel la commande serait activée:
fiche perso nursing template.xls

nom des classeurs qui devraient être enregistrés et fermés:
horaire nursing 01 template.xls
horaire nursing 02 template.xls
horaire nursing 03 template.xls
horaire nursing 04 template.xls
horaire nursing 05 template.xls
horaire nursing 06 template.xls
horaire nursing 07 template.xls
horaire nursing 08 template.xls
horaire nursing 09 template.xls
horaire nursing 10 template.xls
horaire nursing 11 template.xls
horaire nursing 12 template.xls

Les dossiers sont appelés à être dupliqués, le "nom" template appelé à disparaître et remplacé par l'année en cours (2011 par ex)

Pour l'ouverture des fichiers, j'ai trouvé sur ce site un code qui "appelle" les fichiers d'une façon "générale" avec: ThisWorkbook.Path & "\*.xls" , j'ai bien essayé de l'adapter à un code de "fermeture" mais sans succès

pouvez-vous m'aider?

merci

cordialement
thierry

 

[Softmama]

Re : enregistrer et fermer plusieurs classeurs excel en même temps

Bonjour,

essaie un truc du genre (à tester):

for t=1 to 12
  workbooks("horaire nursing " & format(t, "00") & " template.xls").close true
next t

 

[néné06]

Re : enregistrer et fermer plusieurs classeurs excel en même temps

bonjour charette63, Salut Softmama

En théorie l'instruction Workbooks.close ferme tous les classeurs ouverts?

Edit :Félicitations Sofmama!! Tu as pris du gallon.

 

[charette63]

bonjours softmama, néné06,

réponse à néné pour commencer, j'ai omis de signaler dans le premier post que le classeur "fiche perso nursing" doit (devrait) rester ouvert, méa culpa, ta solution n'est donc pas adequate

Pour softmama, j'ai du declarer la variable t, après quelques recherches (j'suis novice hein!!) j'ai opté pour "Dim t as variant", est-ce correcte? (le debodage "pas à pas" ne me donne pas d'erreur)

Par contre pour cette ligne:
workbooks("horaire nursing " & format(t, "00") & " template.xls").close true
j'ai: erreur de compilation, erreur de syntaxe

une idée

merci à vous deux
cordialement
thierry

 

[Softmama]

Re : enregistrer et fermer plusieurs classeurs excel en même temps

re,

en declarant t as Integer ?

 

[charette63]

toujours ce problème de syntaxe

 

[charette63]

Re: Re : enregistrer et fermer plusieurs classeurs excel en même temps

peut etre une indication, j'ai essayé avec "open" au lieu de close true, l'erreur me dit: attendu: séparateur de liste ou )

même chose en remettant close true

j'ai bien vérifié mon "écriture", c'est la même que celle que tu m'as transmise

merci

 

[Softmama]

Re : enregistrer et fermer plusieurs classeurs excel en même temps

Re,
Je te réponds de mon téléphone mobile, donc je ne suis pas ds les meilleures conditions pour taider. Néanmoins essaie de remplacer
Format(t,"00") par
Cstr(format(t,"00"))
?

 

[Pierrot93]

Re : enregistrer et fermer plusieurs classeurs excel en même temps

Bonjour à tous,

vérifie peut être si tu n'as pas une espace en trop quelque part.... (nom classeur ou code)

bon après midi
@+

 

[charette63]

cela n'a rien changé, merci de ton aide, mais je patienterai bien quelques heures pour avoir une solution

 

[néné06]

Re : enregistrer et fermer plusieurs classeurs excel en même temps

Peut être comme cela ?
workbooks("horaire nursing " & "0") & i & " template.xls").close

A+

 

[charette63]

bonjour Pierrot
voilà ce que j'ai transcrit dans la macro:
workbooks("horaire nursing " & format(t, "00") & " template.xls).close true
le nom du fichier: horaire nursing 01 template.xls

il y a bien un espace après nursing et un avant template. Maintenant, quant à la syntaxe du code, je vous laisse juger


merci

 

[Pierrot93]

Re : enregistrer et fermer plusieurs classeurs excel en même temps

Re,

Peut être comme cela ?
workbooks("horaire nursing " & "0") & i & " template.xls").close

A+

Aarf, pas de classeur 012 me semble t-il....

 

[néné06]

Re : enregistrer et fermer plusieurs classeurs excel en même temps

Oh l'erreur!!!

Ni de 010 et 011

A+

 

[charette63]

avec la solution de néné, il faudrait que je déclare le variable "i"

et, euh, je sais pas