Sub Envoi_Pdf()
Dim Planning As Workbook, Vers_où As String, fichier As String, Dossier As String, Chemin As String 'ajout
Application.ScreenUpdating = False
Reponse = MsgBox("Avez vous sélectionné un onglet et une date ?", vbYesNo + vbQuestion, "Sélection Onglet")
If Reponse = vbYes = no Then
Exit Sub
End If
Vers_où = Selection.Text
'Création nouvelle feuille
Set Noufeuil = Sheets.Add(After:=Sheets(Sheets.Count))
ActiveSheet.Name = Sheets("Feuil1").Range("B5") & " " & Sheets("Feuil1").Range("B2")
'Ouverture du classeur
Set Planning = Workbooks.Open("C:\Users\Toto\Documents\Toto.xlsx")
ActiveWorkbook.Sheets(Vers_où).Activate
Range("B2:H34").Copy ThisWorkbook.ActiveSheet.Range("B2")
Planning.Close False
ActiveSheet.Range("B2:H36").Select
With ActiveSheet
fichier = "\" & Range("B2") & " Mjc.pdf"
Dossier = "C:\Users\Toto\Documents\Excel"
Chemin = Dossier & fichier
End With
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Feuil1.Select
Application.ScreenUpdating = True
End Sub