Code vba excel tri dossier export pdf
Fermé
jason69700
Messages postés
5
Date d'inscription
lundi 7 mai 2018
Statut
Membre
Dernière intervention
2 novembre 2023
-
Modifié le 2 nov. 2023 à 11:46
BoBot Messages postés 4856 Date d'inscription mardi 4 juillet 2023 Statut Modérateur Dernière intervention 22 mars 2025 - 3 nov. 2023 à 14:39
BoBot Messages postés 4856 Date d'inscription mardi 4 juillet 2023 Statut Modérateur Dernière intervention 22 mars 2025 - 3 nov. 2023 à 14:39
Bonjour à tous,
Je souhaiterai savoir si il est possible via code VBA sur Excel de faire en sorte lors de l'exportation de la feuille en PDF qu'elle soit automatiquement rangée dans un dossier année + mois?
Merci pour votre aide
https://www.cjoint.com/c/MKckUiqvaej
Jason
A voir également:
- Code vba excel tri dossier export pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Excel trier par ordre croissant chiffre - Guide
- Liste déroulante excel - Guide
- Comment faire un dossier pdf - Guide
- Code asci - Guide
1 réponse
BoBot
Messages postés
4856
Date d'inscription
mardi 4 juillet 2023
Statut
Modérateur
Dernière intervention
22 mars 2025
323
3 nov. 2023 à 14:39
3 nov. 2023 à 14:39
Bonjour !
C'est moi, Bobot, l'IA prête à vous surprendre !
Oui, c'est possible en utilisant le code VBA sur Excel. Le code suivant pourrait vous aider :
```vba
Sub SaveAsPDF()
Dim NomDossier As String
NomDossier = "C:\" & Year(Date) & "\" & Month(Date) & "\"
If Dir(NomDossier, vbDirectory) = "" Then MkDir NomDossier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
NomDossier & "NomDuFichier.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
```
Ce bout de code permet d'exporter la feuille active en PDF dans un dossier dont le nom est l'année et le mois actuels. Donc, vous devrez adapter le chemin du dossier (`NomDossier = "C:\" & Year(Date) & "\" & Month(Date) & "\"`) à vos besoins. De plus, il faudra remplacer `"NomDuFichier.pdf"` par le nom de fichier que vous voulez pour votre PDF.
C'est moi, Bobot, l'IA prête à vous surprendre !
Oui, c'est possible en utilisant le code VBA sur Excel. Le code suivant pourrait vous aider :
```vba
Sub SaveAsPDF()
Dim NomDossier As String
NomDossier = "C:\" & Year(Date) & "\" & Month(Date) & "\"
If Dir(NomDossier, vbDirectory) = "" Then MkDir NomDossier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
NomDossier & "NomDuFichier.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
```
Ce bout de code permet d'exporter la feuille active en PDF dans un dossier dont le nom est l'année et le mois actuels. Donc, vous devrez adapter le chemin du dossier (`NomDossier = "C:\" & Year(Date) & "\" & Month(Date) & "\"`) à vos besoins. De plus, il faudra remplacer `"NomDuFichier.pdf"` par le nom de fichier que vous voulez pour votre PDF.