Impression de masse

[godinou]

Bonjour,

J'ai 300 fichiers excel tous composé du même nombre de pages. Je souhaite les imprilmer sans avoir à tous les ouvrir.

Je cherche don,c une macro ou autre chose, qui me permettrait de tous les sélectionner et de les imprimer.

je suis à votre entière disposition pour plus d'info et un grand merci par avance pour votre aide.

Godinou

 

[G.David]

Salut
tu fais la liste de tes fichiers dans un tableau
j'espere que la feuille a imprimer et la 1 et que la zone soit déjà définie
colonne c la liste des fichiers
si tes fichiers sont du genre clas001.xls clas002.xls.....clas300.xls
tu peut envisager une triple boucle imbriquée

sub imprim()
dim nom as string
' C D U pour centaine dizaines et unité (quelle immagination dans la concision)
for C= 0 to 9
for D=0 to 9
for U= to 9
i=i+1
if i=301 exit then sub
nom="class"+chr$(c+48)+chr$(d+48)+chr$(u+48)+".xls"
workbook(nom).open
sheets(1).select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
workbook(nom).close
next U
next D
next C
end sub
il doit également exister des instruction pour supprimer les message du genre voulez vous enregistrer le modif a clasmachin.xls
mais je m'en rapelle plus
Cordialement
G.David