Impression dans plisueurs PDF de plusieurs ongles

Bonjour,

J'ai créé un commandbutton afin de lancer des impressions, or, je bloque sur le code.

Ce que je veux faire:

- en appuyant sur le bouton impression :

1) Deux onglets sont automatiquement sélectionnés pour l'impression PDF (ex: MEP et SAMI).

2) Il est généré automatiquement 1 pdf par onglet.

3) Ils se mettent directement dans le même dossier que l'excel.

4) Ils prennent le nom de leur onglet, suivi du nom se trouvant dans la cellule A2 de l'onglet où se trouve le commandbutton (ex: MEP_Martin).

Est-ce faisable ?

Merci de votre aide.

Hello,

Envoie ton fichier exemple et je te fais une propal :)

@+

Sub ImpressionEnPDF()
for each ws in ActiveWorkbook.Sheets
if Ucase(ws.Name)= "MEP" or Ucase(ws.Name)="SAMI" Then
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Application.Path & "\" & ws.Name & "_" & Workbooks("MEP_Martin").Worksheets(1).Range("A2").Value  & ".pdf", Quality:=xlQualityStandard, _
  IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End if
Next
End Sub

Bonjour Erwann1308

Quelque chose comme ça : écris à la volée sans test.

Je viens d'essayer la solution de Scaper. Echèc.

Pour le nom de famille, il sera toujours en A2 dans l'onglet Source.

Baroute78, j'ai joins le fichier.

Merci !

PS: je ne comprends pas, l'onglet SAMI est partiellement verrouillé

!

J'ai avancé un peu mais reste bloqué.

Je voudais que mon pdf créé s'enregistre automatiquement dans le même dossier que mon excel source.

Je n'arrive pas à capter le nom du dossier et l'injecter dans le chemin d'impression. Tout le reste est correct vis-à-vis de mes attentes.

Merci du coup de main !

Voici mon code actuel :

'******************************
'Procédure permettant d'imprimer les onglets
'******************************

Private Sub btnimprimer_Click()

Dim chemin As String

'chemin = Application.ThisWorkbook.Path


On Error Resume Next
ChDir "C:\Users\7602962P\OneDrive - SNCF\01_Formations\Attestation"

Sheets("SAMI").Select
ActiveWorkbook.Save
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & "SAMI_" & Range("b3").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

Sheets("MEP").Select
ActiveWorkbook.Save
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & "MEP_" & Range("b4").Value & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End Sub