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 4251 Date d'inscription mardi 4 juillet 2023 Statut Modérateur Dernière intervention 9 décembre 2024 - 3 nov. 2023 à 14:39
BoBot Messages postés 4251 Date d'inscription mardi 4 juillet 2023 Statut Modérateur Dernière intervention 9 décembre 2024 - 3 nov. 2023 à 14:39
A voir également:
- Code vba excel tri dossier export pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Liste déroulante excel - Guide
- Trier sur excel - Guide
- Comment faire un dossier pdf - Guide
- Code asci - Guide
1 réponse
BoBot
Messages postés
4251
Date d'inscription
mardi 4 juillet 2023
Statut
Modérateur
Dernière intervention
9 décembre 2024
282
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.