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
A voir également:
- Avoir le choix pour ouverture PDF
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Liste déroulante de choix excel - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
- Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
- Notices gratuites pdf - Guide
2 réponses
Bonjour,
En déclarant une variable Booléenne comme ceci:
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