Bouton enregistrer en PDF avec ouverture du dossier
Résolu
doumyc
Messages postés
34
Statut
Membre
-
doumyc Messages postés 34 Statut Membre -
doumyc Messages postés 34 Statut Membre -
Bonjour,
J'aurai encore besoin de votre aide j'ai créé un bouton pour enregistrer ma fiche au format excel ca c'est bon!
le fichier s'ouvre bien après l'enregistrement youpi mais j'aimerais savoir s'il est possible de faire ouvrir une fenêtre ou a été enregistrer le fichier?
D'avance merci.
J'aurai encore besoin de votre aide j'ai créé un bouton pour enregistrer ma fiche au format excel ca c'est bon!
le fichier s'ouvre bien après l'enregistrement youpi mais j'aimerais savoir s'il est possible de faire ouvrir une fenêtre ou a été enregistrer le fichier?
D'avance merci.
Configuration: Windows / Firefox 99.0
2 réponses
-
Voila mon code :
Sub SignaturePDF()
'
' SignaturePDF Macro
Dim LaDate$, Nom$, Rep$ 'Déclaration des variables
Sheets("RECAPITULATIF").Select
LaDate = Format(Now, "yyyy_mm_dd_hh mm")
Nom = "STUPS" 'Nom de l'onglet ˆ entregistrer
Rep = "P:\DAR\Anestbo\Pharmacie (NEW)\Gestion des stupéfiants\Archive\ " ' Chemin du rŽpertoire ˆ adapter depuis votre PC"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
Rep & LaDate & "_" & Nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False 'enregistrement du fichier en PDF
End Sub -
hello tout le monde j'ai trouvé la solution!
Sub SignaturePDF()
'
' SignaturePDF Macro
Dim LaDate$, Nom$, Rep$ 'Déclaration des variables
Sheets("RECAPITULATIF").Select
LaDate = Format(Now, "yyyy_mm_dd_hh mm")
Nom = "STUPS" 'Nom de l'onglet ˆ entregistrer
Rep = "P:\DAR\Anestbo\Pharmacie (NEW)\Gestion des stupéfiants\Archive\ " ' Chemin du rŽpertoire ˆ adapter depuis votre PC"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
Rep & LaDate & "_" & Nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False 'enregistrement du fichier en PDF
Shell "explorer /e," & Rep, vbNormalFocus
End Sub
