imprimer plusieurs classeurs excel

[hach]

Salut,
j'ai à peu près 200 fichiers excel à imprimer (une page par fichier) et je voudrai savoir si je suis obligé de les ouvrir un par un pour le faire ou s'il y a une manip plus rapide ?
Merci de votre aide

hach

 

[CBernardT]

Bonjour Hach,

A partir d'un fichier commande, placés le même répertoire que les fichiers à imprimer, tu peux utiliser la macro suivante :

Sub ouvrirFichiers()
Dim i As Integer
With Application.FileSearch
.LookIn = ThisWorkbook.Path
If .Execute > 1 Then
For i = 1 To .FoundFiles.Count
If .Filename <> ThisWorkbook.Name Then
Workbooks.Open .FoundFiles(i)
ActiveSheet.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Close
End If
Next i
Else
MsgBox 'Aucun fichier trouvé'
End If
End With
End Sub

Biensûr, cela suppose qu'ils seront ouverts, imprimés et refermés. Sinon je ne sais pas faire.

Cordialement

Bernard

 

[hach]

re petite question !!
un fichier commande j'execute ca comment ?
:whistle:
merci

 

[CBernardT]

Re Hach,

Je reprends depuis le début.
Tu places le fichier joint dans le répertoire des fichiers à imprimer. Tu lances la procédure d'impression avec le bouton ;

Chaque classeur présent dans le répertoire est ouvert, imprimé puis refermé.

Je suppose qu'il n'y a que des classeurs Excel dans ce répertoire.

Cordialement

Bernard [file name=ImprimerFichiers.zip size=10479]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ImprimerFichiers.zip[/file]

 

[hach]

okay merci baucoup Bernard pour cette explication ca marche tres bien
ciao