Bouton enregistrer en PDF avec ouverture du dossier

Résolu/Fermé

doumyc Messages postés 33 Date d'inscription samedi 2 mars 2019 Statut Membre Dernière intervention 3 juin 2022 - 7 mai 2022 à 09:18
doumyc Messages postés 33 Date d'inscription samedi 2 mars 2019 Statut Membre Dernière intervention 3 juin 2022 - 10 mai 2022 à 23:09

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.

Configuration: Windows / Firefox 99.0

A voir également:

Bouton enregistrer en PDF avec ouverture du dossier
Lire le coran en français pdf - Télécharger - Histoire & Religion
Enregistrer en pdf - Guide
Audacity enregistrer son pc - Guide
Enregistrer son ecran - Guide
Mettre un mot de passe sur un dossier - Guide

2 réponses

Réponse 1 / 2

doumyc Messages postés 33 Date d'inscription samedi 2 mars 2019 Statut Membre Dernière intervention 3 juin 2022
7 mai 2022 à 09:28

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

Réponse 2 / 2

doumyc Messages postés 33 Date d'inscription samedi 2 mars 2019 Statut Membre Dernière intervention 3 juin 2022
10 mai 2022 à 23:09

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

Newsletters