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
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
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
- Dossier appdata - Guide
- Save as pdf - Télécharger - Bureautique
2 réponses
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
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
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
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
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
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