Pb imprimer plusieurs onglets dans 1 seul fichier PDF

[tatave]

Bonjour,

La question peut sembler stupide ... mais pas tant que çà 😕

J'utilise depuis de nombreuses années un fichier excel type (fait maison) avec plusieurs onglets et je les imprime en PDF (via Adobe PDF) pour les diffuser par mail.

Lorsque je veux imprimer l'ensemble des onglets en PDF, l'impression est répartie sur plusieurs fichiers que je dois nommer différemment à chaque fois (3 à 5 fichiers de façon aléatoire selon l'affaire), ensuite je dois compiler tous les fichiers pour n'en avoir plus qu'un seul ... et ca me GONFLE 😡. pourtant - sauf erreur de ma part - chaque onglets a les mêmes caractéristiques (format, ...)

qqun peut-il me dire comment faire pour imprimer tous les onglets dans UN SEUL fichier d'un coup.

merci d'avance pour votre aide

 

[R@chid]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

Bonjour tatave et Bienvenu sur XLD,
pour moi il me fait l'impression sur un seul fichier, en passant par simple ENREGISTRER SOUS / PDF sur Excel 2010 je ne sais pas si il est disponible sur 2007...
Mais tu peux le faire avec PDF COMPLETE c'est très utile
Amicalement

 

[chris]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

Bonjour
Coucou Rachid🙂

Si tu sélectionnes tous les onglets concernés avant de lancer l'impression, tout doit s'imprimer en un seul fichier.

 

[R@chid]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

Bonsoir @ tous,
Salut Chris,
on peut le faire sans sélectionner tous les Onglets...

Amicalement

 

[kiki29]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

Salut, voir ici
en bas du post # 1 : Sous Excel 2007 : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant et adapter à ton contexte

 

[chris]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

Bonjour

Bonsoir @ tous,
Salut Chris,
on peut le faire sans sélectionner tous les Onglets...
Amicalement

Oui tu as raison si on les veut effectivement tous.

Je pensais à plusieurs onglets sans forcement les prendre tous.

Les deux possibilités restent donc valables.

 

[tatave]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

Bonjour tatave et Bienvenu sur XLD,
pour moi il me fait l'impression sur un seul fichier, en passant par simple ENREGISTRER SOUS / PDF sur Excel 2010 je ne sais pas si il est disponible sur 2007...
Mais tu peux le faire avec PDF COMPLETE c'est très utile
Amicalement

je n'ai pas cette possibilité sur 2007.
je peux t'envoyer mon fichier si tu veux tester

 

[tatave]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

Bonjour
Coucou Rachid🙂

Si tu sélectionnes tous les onglets concernés avant de lancer l'impression, tout doit s'imprimer en un seul fichier.

quelque soit le nombre d'onglets, qquns ou tous, j'ai a chaque fois plusieurs fichiers

 

[tatave]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

Salut, voir ici
en bas du post # 1 : Sous Excel 2007 : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant et adapter à ton contexte

merci pour l'info mais les "codes" ca ne me parle pas, faut-il faire une macro ? ya pas plus simple ?

 

[tatave]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

je vous propose de télécharger un extrait de mon fichier et de faire le test de notre coté :

Free - Envoyez vos documents
mot de passe : essai

merci d'avance

 

[kiki29]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

Salut, sans coopération de ta part, difficile d'avancer, ton fichier n'est pas téléchargeable pour moi en tout cas.
Essaie via ici

merci pour l'info mais les "codes" ca ne me parle pas, faut-il faire une macro ? y a pas plus simple ?

Il te suffit de créer un bouton et de l'affecter à Tst_2007, il te faudra adapter pour ce qui est des feuilles à enregistrer en PDF dans

    Cpt = 0
    For i = 1 To ThisWorkbook.Sheets.Count
        If Left(Sheets(i).Name, 2) = "RF" Or Left(Sheets(i).Name, 2) = "RC" Then
            ReDim Preserve Ar(Cpt)
            Ar(Cpt) = Sheets(i).Name
            Cpt = Cpt + 1
        End If
    Next i
    If Cpt = 0 Then Exit Sub

 

[tatave]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

voici le fichier sur joint.com Lien CJoint.com 0JtnE4DxJe6

 

[kiki29]

Re : Pb imprimer plusieurs onglets dans 1 seul fichier PDF

Salut, voila ce que donne le pdf après modif du code donné ci-dessus, à toi de jouer

    .....
    sNomFichierPDF = ThisWorkbook.Path & "\" & "Test.pdf"
 
    Cpt = 0
    For i = 1 To ThisWorkbook.Sheets.Count
            ReDim Preserve Ar(Cpt)
            Ar(Cpt) = Sheets(i).Name
            Cpt = Cpt + 1
    Next i
    If Cpt = 0 Then Exit Sub
    .....
    Feuil1.Select
    Application.ScreenUpdating = True
End Sub