Code vba excel tri dossier export pdf
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
- Code ascii - Guide
- Comment faire un tri personnalisé sur excel - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
1 réponse
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.