Avoir le choix pour ouverture PDF
Résolu
DAN41HOM
Messages postés
24
Date d'inscription
Statut
Membre
Dernière intervention
-
DAN41HOM Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
DAN41HOM Messages postés 24 Date d'inscription Statut Membre Dernière intervention -
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.
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
2 réponses
-
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
-
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.
