Menu

Avoir le choix pour ouverture PDF [Résolu]

Messages postés
23
Date d'inscription
mardi 4 décembre 2018
Statut
Membre
Dernière intervention
14 décembre 2018
-
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
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
6138
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 juillet 2019
373
1
Merci
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


Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 54940 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Le Pivert
Messages postés
23
Date d'inscription
mardi 4 décembre 2018
Statut
Membre
Dernière intervention
14 décembre 2018
4
0
Merci
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.
Commenter la réponse de DAN41HOM