avoir le choix pour ouverture PDF Résolu/Fermé

Question

Bonjour,

Voiçi une macron qui fonctionne parfaitement, mais celle-ci après avoir sauvegarder la feuille en PDF ,  or nous avons besoin d'avoir le choix de l'ouvrir où pas (selon son importance).

La macro sauve la feuille en format dossier donc tout va bien mais nous aurions besoin un mgbox avec le choix de son ouverture.

Voici le code ne question, merci pour votre aide, mon collègue a essayer de trouver la solution sans succès.


Sub PdfMOIS()
Dim nom As String
Dim dossier As String

If MsgBox(" Générer le PDF du Mois ?", vbYesNo, _
"Demande de confirmation") <> vbYes Then Exit Sub

dossier = ChoixDossier
If dossier = "" Then Exit Sub
nom = dossier & "\" & Range("B2")

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=TrueFalse

End Sub

Function ChoixDossier()
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then
ChoixDossier = .SelectedItems(1)
Else
ChoixDossier = "/"
End If
End With
Else
ChoixDossier = InputBox("Quel Répertoire ?")
End If
End Function

cs_Le Pivert · Answer

Bonjour, En déclarant une variable Booléenne comme ceci: Sub PdfMOIS() Dim nom As String Dim dossier As String Dim ouverture As Boolean ' variable Booléenne If MsgBox("Générer le PDF du Mois ?", vbYesNo, _ "Demande de confirmation") <> vbYes Then Exit Sub If MsgBox("Voulez vous ouvrir le PDF?", vbYesNo, _ "Demande d'ouverture") <> vbYes Then ouverture = False Else ouverture = True End If dossier = ChoixDossier If dossier = "" Then Exit Sub nom = dossier & "\" & Range("B2") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=ouverture 'variable Booléenne End Sub Function ChoixDossier() If Val(Application.Version) >= 10 Then With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = ActiveWorkbook.Path & "\" .Show If .SelectedItems.Count > 0 Then ChoixDossier = .SelectedItems(1) Else ChoixDossier = "/" End If End With Else ChoixDossier = InputBox("Quel Répertoire ?") End If End Function

DAN41HOM · Answer

Bonjour cs_Le Pivert,

Merci franchement et bravo,

Plusieurs personnes se sont cassés les dents sur ce code.
Je fais passé celui-ci en indiquant bien-sûr la provenance.

Merci de toute l'équipe de preneurs de statistiques.
Bonne journée.

Avoir le choix pour ouverture PDF

2 réponses

Discussions similaires