macro pour imprimer plusieurs onglets de différents classeurs

[mik388]

Bonjour,

Pourriez-vous s'il vous plait m'indiquer la fonction qui me permettrait d'imprimer plusieurs onglets de différents classeurs.

Le but étant, en plus de gagner du temps, de spooler l'imprimante d'une traite car je voudrais créer un seul et même document relié.

Merci d'avance de l'aide que vous pourrez m'apporter,

Mik

 

[mik388]

Re : macro pour imprimer plusieurs onglets de différents classeurs

Bonjour,

personne n'a une idée??
Je n'arrive pas à imprimer 2 feuilles de 2 documents sans qu'il ne m'imprime une feuille après l'autre.

Merci de votre aide,
Mik

 

[mromain]

Re : macro pour imprimer plusieurs onglets de différents classeurs

Bonjour mik388 et bienvenue sur le forum,

Je ne suis pas un expert de l'impression, je risque donc dire une bêtise 😱.
Il me semble difficile de lancer une seule tâche d'impression sur plusieurs documents.
Une impression page par page, devrait sûrement être programmable. Encore faut-il avoir plus d'infos. Est-ce que tous les fichiers à imprimer sont dans le même dossier ? Si oui, sont-ils "seuls" ? Faut-il imprimer chaque feuille de chaque classeur ?

Sinon, une autre solution serait de recréer un document (un classeur "temporaire") contenant toutes les feuilles à imprimer (copier-coller des différents classeurs) et lancer l'impression (de ce classeur "temporaire") avant de le supprimer. Dans ce cas là, il manque tout de même les informations citées plus haut.


a+

 

[mik388]

Re : macro pour imprimer plusieurs onglets de différents classeurs

J'ai trouvé ça sur le net. Il manque juste à trouver comment remplacer par exemple "feuil3" par le chemin complet d'un autre classeur.
> Sub test()
§>§ Dim tablo: ReDim tablo(1)
§>§ tablo(0) = "Feuil1"
§>§ tablo(1) = "Feuil3"
§>§ Sheets(tablo).Select
> End Sub

 

[mromain]

Re : macro pour imprimer plusieurs onglets de différents classeurs

Re bonjour mik388,

... Il manque juste à trouver comment remplacer par exemple "feuil3" par le chemin complet d'un autre classeur...

Je pense qu'avec le clavier tu devrais y arriver 😉. Après, je pense également que la macro ne fonctionnera plus (vu que les feuilles n'appartiendront plus à un même classeur).
Cf: ce post.

a+

 

[mik388]

Re : macro pour imprimer plusieurs onglets de différents classeurs

ha bon la macro ne peut pas fonctionner si les feuilles ne sont pas dans le même classeur??

le Cf renvoie à mon post...

 

[mromain]

Re : macro pour imprimer plusieurs onglets de différents classeurs

ha bon la macro ne peut pas fonctionner si les feuilles ne sont pas dans le même classeur??

le Cf renvoie à mon post...

Re,

Le Cf renvoie au mien. C'est juste que je me demandais si tu l'avais bien lu 🙄.

Il me semble difficile de lancer une seule tâche d'impression sur plusieurs documents.

a+

 

[mik388]

Re : macro pour imprimer plusieurs onglets de différents classeurs

ha ok 🙂
Si si j'avais bien lu mais je ne vois pas pourquoi j'arriverais pas à remplir le "tablo" de toutes les feuilles que je veux imprimer à partir du moment ou j'ouvre le classeur avant dans le code.

 

[YANN-56]

Re : macro pour imprimer plusieurs onglets de différents classeurs

Bonjour mik388, aux participants, et à ceux qui passeront par ici,

Regarde ce fil,

Il te suffira d'adapter le choix des Feuilles à imprimer,
et remplacer l'ordre de "Pompage" par ActiveSheet.PrintOut

https://www.excel-downloads.com/threads/prendre-cellule-dans-plusieurs-classeurs-excel.149320/

Désolé de ne pas aller plus loin, je suis pressé, je dois partir.

A plus éventuellement

Amicalement

Yann

 

[mik388]

Re : macro pour imprimer plusieurs onglets de différents classeurs

je vois pas comment adapter...

 

[Guest]

Re : macro pour imprimer plusieurs onglets de différents classeurs

Bonjour tous,

Tu peux imprimer différentes feuilles d'un même classeur ouvert par:

Sheets(Array("Feuil1","Feuil2")).PrintOut

Il faudra le faire classeur par classeur.

A+

 

[mik388]

Re : macro pour imprimer plusieurs onglets de différents classeurs

donc je n'aurais pas un seul et meme fichier d'impression?

 

[Cousinhub]

Re : macro pour imprimer plusieurs onglets de différents classeurs

Bonjour,

La réponse est : "Non"

Pour t'en convaincre, déroule ce code....

Il sélectionne toutes les feuilles du premier classeur (si ce n'est pas ton classeur de macros complémentaires), et dès qu'il passe à un autre classeur, "Bug"

Sub essai()
Dim Wb As Workbook
Dim Ws As Worksheet
For Each Wb In Workbooks
    If Wb.Name <> "PERSO.XLS" Then
        For Each Ws In Wb.Worksheets
            Ws.Select False
        Next Ws
    End If
Next Wb
End Sub

Il faudra te contenter de la solution proposée par Hasco

Bonne journée

 

[Guest]

Re : macro pour imprimer plusieurs onglets de différents classeurs

Re le fil,

Juste pour un grand SALUT à mon ami Bh²😀

A+

 

[YANN-56]

Re : macro pour imprimer plusieurs onglets de différents classeurs

Bonsoir mik388, aux participants, et à ceux qui passeront par ici,

Me voici de retour après être descendu au bourg!

Je vais avoir plus de temps et pouvoir adapter l'exemple auquel j'ai fait référence.

(Sans oublier la précision pertinente de Hasco, comme d'hab.! 🙂)

Sheets(Array("Feuil1","Feuil2")).PrintOut

Si les noms d'Onglets à imprimer sont toujours les mêmes; cela va être simple!

Sinon, il faudra créer une possibilité de choix par Classeur...

A te lire,

Amicalement; et à plus tard.

Yann

P.S. En un premier temps je vais supposer que leurs noms sont les mêmes.