Discussion :

[le petit excelleur]

Salut à la communauté,

Bon je ne sais pas si beaucoup de monde pourras m'aider. Les congés d'étés de beaucoup doivent en plus jouer contre moi ahahha.

bref, je vous explique mon problème, j'ai plusieurs dossiers différents dans lesquelles sont stockées des fichiers Excel.
Chaque dossiers contient X fichiers Excel.
Tous les fichiers commencent par les mêmes lettres "SR..."

En fait, ce que je cherche à faire désespérément c'est créer une macro qui me permettrait de pouvoir imprimer par dossiers l'ensemble des feuilles ''Feuil1" de mes différents classeurs.

Après plusieurs recherches infructueuses, je me vois obligé de faire appel à la communauté

Si une âme charitable veux bien me filer un petit coup de main ce serait vraiment cool

A+ et merci d'avance pour le temps passé.

[QuestVba]

Salut,

Plusieurs outils :

• https://excel.developpez.com/faq/?pa...BoucleFichiers avec entre autres ce point : Comment boucler sur les fichiers d'un répertoire ?
• Excel et l'enregistreur de macro. Merci à Pierre Fauconnier.
• Description de l'objet Feuille de calcul dans Excel. Merci à SilkyRoad. Voir PrintOut.

[le petit excelleur]

Merci pour ton retour tout d'abord.

L'enregistreur de Macro ne convient pas étant donné que je dois aller dans mon répertoire à toutes les fois .

Pour la boucle cela si j'ai bien suivi me permettrai d'indiquer à la macro ou aller chercher les fichiers, en revanche après pour imprimer...

En fait il faut que je fasse une boucle sur l'ensemble des fichiers du répertoire puis que je les imprime.
Tout cela avec ma macro.

j'ai essayé avec enregistreur au cas ou mais ça ne fonctionne pas je le confirme

[le petit excelleur]

Après 2 semaines de recherches sur les différents forums internet, je n'ai toujours pas trouvé ma solution miracle ahah.

Finalement cette macro est peut-être un peu plus complexe qu'elle n'y parait.

Si une ame charitable à cependant une lumière je suis toujours preneur

Bonne vacances pour ceux qui y sont toujours, bonne reprise pour ceux qui ont repris et merci à ceux qui prendrons du temps sur ma question

[Marc-L]

Bonjour,

déjà en consultant l'aide et l'exemple de la fonction VBA   Dir   … Sans compter les nombreux exemples du forum !

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[le petit excelleur]

Salut à tous,

Après plusieurs semaines de recherches, it works

J'ai réussi à trouver ma macro qui m'imprime ce que je souhaite. Le dernier petit truc est que je souhaiterais imprimer en recto verso plutôt que 2 pages à chaque fois.
La en revanche, malgré mes recherches je n'ai rien trouvé qui s'adapte à mon cas de figures...

Je vous joint la macro ci-dessous, si une personne à un petit moment à me consacrer et peux m'aider ce serait vraiment top

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Do While Fichier_traité <> ""
        If Fichier_traité = ThisWorkbook.Name Then GoTo etiquette
            Workbooks.Open Chemin & "\" & Fichier_traité
            For i = 1 To Sheets.Count
                If Sheets(i).Name = "Feuilimprim" Then Sheets(i).PrintOut
            Next i
        Workbooks(Fichier_traité).Close False

Bonne journée à tous, et merci encore pour votre aide