Excel: Imprimer une sélection d’onglets dans un fichier

Bonjour,
merci pour ces super macros!
Est-ce que vous pourriez expliquer comment on peut modifier cette macro pour ne pas envoyer les feuilles directement à l’imprimante, mais pour s’arrêter aux options d’impression? En fait ce que je cherche à faire c’est de sélectionner certains onglets pour les convertir en pdf, avant de les imprimer.
Merci d’avance!

Tout fonctionne parfaitement, il ne faut surtout pas oublier de créer la liste des onglets avant d’éditer cette macro. Merci pour tout.

Bonsoir,

Merci bcp pr ce tuto et ces macros très utiles

J’ai exécuté la macro snamelist et je retrouve bien ma liste d’onglets avec un début en cellule B5
J’ai placé un bouton exécutant la macro Imprime_Feuilles.
J’ai réglé mes paramètres d’impression sur une impression pdf via Nitro
Lorsque je lance mon impression en sélectionnant mes 2 premiers onglets et en donnant un nom à mon fichier j’obtiens bien un pdf de 2 feuilles : nickel. Si je sélectionne le 3ieme onglet et entre le nom, j’obtiens un document pdf des 2 premiers onglets et une fenêtre de popup s’ouvre me demandant un nom pour un nouveau document, qui génère alors un autre document pdf d’une seule page correspondant à ce 3ieme onglet. J’espère être clair dans mes explications.
Mon classeur comporte 12 onglets et j’ai le même problème avec le 7ieme onglet
Les noms de ces 2 onglets qui posent problème ne comportent ni accent, ni caractère spécial.
Une explication ?

Merci encore pr cette aide précieuse

Patrick

Bonjour,
Très bonne base de code. Voici une alternative sans passer par la sélection et avec un formatage automatique des cellules.

[code]
‘Par Le CFO Masqué
‘Modifié par Lyunxa

‘Ici on défini le nom de l’onglet d’impression
Const NomOnglet = “Onglet Impression”

‘Fonction d’actualisation des onglets à imprimer
Sub Snamelist()
Dim i As Integer ‘definition de la variable i comme entier
Application.ScreenUpdating = False ‘Désactive le rafraichissement de l’écran
Sheets(NomOnglet).Range(“B5:C100”).Clear ‘Supprime les colonnes B et C de l’onglet d’impression
For i = 1 To Sheets.Count
Sheets(NomOnglet).Range(“B” & 4 + i).Value = Sheets(i).Name ‘Liste les onglets colonne B
With Sheets(NomOnglet).Range(“B” & 4 + i & “:C” & 4 + i).Borders ‘Affecte le format aux colonnes B et C
.LineStyle = xlContinous
.Color = vbBlack
.Weight = xlThin
End With
Next i
Columns(“B:B”).EntireColumn.AutoFit ‘Règle la largeur de la colonne B
Application.ScreenUpdating = True ‘Réactive le rafraichissement d’affichage
End Sub
Sub Imprime_Feuilles()
‘initialisation des variables
Dim vararray() As String ‘chaine de carateres
Dim csname As Integer, c As Integer ‘entier
Dim countarr As Integer, r As Integer ‘entier
Dim sname As Worksheet ‘objet feuille=onglet

‘set up location and counter variables
Set sname = Sheets(NomOnglet)
csname = sname.Range(“B5”).Column
c = sname.Range(“C5”).Column
r = sname.Range(“C5”).Row
countarr = 0

‘loop in sheets list
While sname.Cells(r, csname) “”

‘add to array if flag is on ‘recupère les onglets à imprimer
If sname.Cells(r, c) = 1 Then
ReDim Preserve vararray(countarr)
vararray(countarr) = sname.Cells(r, csname).Value
countarr = countarr + 1
End If
r = r + 1
Wend
‘Imprime
Sheets(vararray).PrintOut Copies:=1, Collate:=True
sname.Activate

End Sub
[/code]

Bonjour,
Je débute dans les macros, j’ai réussi à faire ma liste d’onglet (snamelist) sans difficultés, par contre sur la macro pour imprimer ma sélection d’onglet, j’ai un bug sur la ligne :
If sname.Cells(r, c) = 1 Then ==> (sname.Cells(r, c) erreur=2042)
Pouvez-vous me guider ??? D’avance un grand merci
Merci de votre retour

Bonjour,

Votre macro fonctionne super bien et je vous en remercie.

Néanmoins, j’aimerais maintenant faire la même chose mais au lieu de mettre des 1 et 0 mais mettre l’ordre d’impression 1, 0 , 2, 4 , 5.
J’aimerais en fait trouver un moyen d’imprimer certaines feuilles mais dans un certain ordre.

Merci d’avance pour vos conseils

Re

J’ai trouvé pour imprimer en sortie avec Microsoft To PDF. C’est pas ce qu’il y a de mieux mais ça fonctionne.
Sheets(vararray).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, ActivePrinter:=”Microsoft Print to PDF”
sname.Activate