Bouton enregistrer en PDF avec ouverture du dossier
Résolu
doumyc
Messages postés
33
Date d'inscription
Statut
Membre
Dernière intervention
-
doumyc Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
doumyc Messages postés 33 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Bouton enregistrer en PDF avec ouverture du dossier
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Audacity enregistrer son pc - Guide
- Dossier appdata - Guide
- Enregistrer en pdf - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
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
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
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