XL 2013 MsgBox Oui / Non

[BALANCIE]

Bonjour,

J'aurais besoin de votre aide pour un petit problème tout simple.

Dans cette macro, j'aimerais avoir le loisir de décider l'ouverture où pas du lecteur PDF Reader.
J'ai mis en place la notion de False, mais j'aimerais avoir ce choix avec la mgbox.

C'est surement simple, mais je cale.
Merci à vous.
Daryl.B


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

 

[vgendron]

il veut systématiquement générer le PDF ==> c'est l'instruction ActiveSheet.ExportAsFixedFormat
mais pas toujours l'ouvrir aussitot :-D ==> c'est l'option OpenAfterPublish

voila :-D

 

[BALANCIE]

Bonjour à vous 2.
Cela marche avec la variable. Merci d'avoir prit du temps pour ce problème.
Bonne journée.

 

[Dranreb]

Bonjour.
Pas besoin de répéter l'instruction juste pour un seul paramètre qui change :

ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nom _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=MsgBox("Souhaitez-vous ouvrir le fichier dans Reader?", vbYesNo) = vbYes

Édition: Mais est-ce que ça ne fait pas une manoeuvre inutile de plus que de simplement fermer Acrobat Reader s'il était affiché systématiquement ?

 

[BALANCIE]

Bonjour Dranreb,

Merci pour le code complémentaire.

Réponse à la question : Sans doute, mais cela évite d'avoir une ouverture permanente du PDF car à chaque fois la personne regarde en détail le PDF ,ce qui est inutile pour les petits tableaux et cela surtout occasionne une perte de temps. Alors qu'un clic à une question, c'est un automatisme qui permet justement de ne pas perdre ce temps.

Bonne journée.
Daryl.B