BALANCIE
XLDnaute Junior
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
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