Si vous devez imprimer tous les classeurs d’un dossier donné, vous pouvez utiliser la macro ci-dessous pour le faire.
Comment ca marche?
Dans cette macro, la fonction Dir renvoie une chaîne qui correspond au nom du fichier correspondant à la requête exécutée.
Dans le code suivant, la fonction Dir est utilisée pour énumérer tous les fichiers .xslx qui se trouvent dans le répertoire donné et extraire le nom de chaque fichier .xslx. Ensuite, chaque fichier sera ouvert, imprimé et fermé.
Sub ImpressionClasseurs ()
Étape 1: Déclaration des variables
Dim MesFichiers As String
'Étape 2: Indication du répertoire cible
MesFichies = Dir("C:\Temp\*.xlsx")
Do While MesFichiers <> ""
'Étape 3: Ouvrez plus de classeurs
Workbooks.Open "C:\Temp\" & MonClasseur
ActiveWorkbook.Sheets("Feuil1").PrintOut Copies:=1
ActiveWorkbook.Close SaveChanges:=False
'Étape 4: Le prochain fichier du dossier
MonFichier = Dir
Loop
End Sub
Commentaires:
1. Dans la première étape, la variable MonFichier est déclarée, ce qui capturera les noms des fichiers suivants.
2. Dans la deuxième étape, la fonction Dir a été utilisée pour indiquer le répertoire et le type de fichiers à rechercher. Selon le code, seuls les fichiers * .xslx seront recherchés. Cela signifie que seuls ces fichiers seront traités dans la boucle. Si vous devez appliquer une macro à des fichiers .xls, le code doit être modifié (cela s’applique également au nom du répertoire dans lequel effectuer la recherche). La macro transmet le nom de chaque fichier trouvé à MyFiles.
3. Dans la troisième étape, le fichier est ouvert, puis une copie de la feuille est imprimée. Il va sans dire que les lecteurs voudront probablement indiquer indépendamment la feuille à imprimer. Vous pouvez également modifier le nombre de copies imprimées.
4. À la quatrième étape, la boucle retourne pour rechercher les fichiers suivants. S’il n’y a plus de fichiers, la variable MyFiles sera vide. Dans ce cas, la boucle et la macro mettent fin à l’opération.
Comment utiliser la macro?
Pour implémenter cette macro, vous pouvez copier et coller son code en mode standard.
À cette fin:
1. Utilisez les touches Alt + F11 pour activer Visual Basic Editor.
2. Dans la fenêtre Projet, cliquez avec le bouton droit sur le nom du projet ou de la feuille de calcul.
3. Sélectionnez Insérer / Module dans le menu.
4. Tapez ou collez le code dans le module nouvellement créé, en modifiant les instructions pour l’impression, si nécessaire.