Feuil1.ExportAsFixedFormat Type:=0, Filename:=Chemin, Quality:=0, _
IncludeDocProperties:=1, IgnorePrintAreas:=0, OpenAfterPublish:=1
... Et toi 00, tu sais ? ...
DoubleZero à dit:A présent, moi avoir besoin d'une bouée !
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
... Miracle, ça fonctionne ! Même la boite de dialogue. Et tout seul MsieursDames...
... Pourriez vous me dire... Si j'ai oublié des déclarations...
Option Explicit ' <- ceci
Sub toto()
'variables...
'suite du code...
End Sub
...Me manquent, la prochaine étape donc, l'envoi d'un mail par sélection d'une adresse dans une cellule de mon classeur, ainsi que la désignation complète du répertoire à partir du même classeur...
Miracle, ça fonctionne ! Même la boite de dialogue. Et tout seul MsieursDames !!
... Option Explicit, je le savais. Pourquoi ne l'ai-je pas fait ?..
...Peut-être trouveras-tu ton bonheur dans cette discussion...
Double Zero à dit:ton logiciel est Outlook
Bonsoir le 00... Il y a encore des gens qui utilisent d'autres logiciels de messagerie ?