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")
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
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
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.