créer code vba pour enregister feuille excel sous pdf

Bonjour
Voici ce que je cherche de ce travail c’est de créer code VBA qui me permet de:
1) Enregistrer ce travail sous forme PDF dans un dossier nommé «archives ».
2) Créer le dossier «archives » quand il n’existe pas.
3) Le nom du fichier est le suivant: attestation+ la celluleC6+lacelluleF20.
Et merci pour votre coopération et efforts.

Bonjour ami, la forum
dans l'hypothèse ou ton fichier excel se trouve aussi sous le même répertoire nommée archive tu peux tester çà :
NB : a mon avis inutile de créer un répertoire avec code vu que cette opération se fait qu'une seule fois :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub EnregisterPDF() With Application .ScreenUpdating = False .EnableEvents = False End With Dim Ar(0) As String Ar(0) = Feuil1.Name Sheets(Ar).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ThisWorkbook.Path & "\" & "attestation " & Range("C6") & Range("F20").Text _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False   With Application .ScreenUpdating = True .EnableEvents = True End With End Sub

---

Salut,

La création de dossiers a déjà été abordé à plusieurs reprises.
Entre autre ici: https://www.developpez.net/forums/d1.../#post12019525

Il est possible de remplacer .Range("F20").Value par la fonction Now qui renvoie la date actuelle

l'erreur est dans le nom du dossier contenant des caractères illisibles

Code:

---

Const SubPath As String = "\ÇáÇÑÔíÝ\"

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub t() Const SubPath As String = "\archives\"   ' // On prends en compte la feuille "certification" changer si nécessaire With Feuil1 Dim CurrentPath As String CurrentPath = .Parent.Path   Dim FullPath As String FullPath = CurrentPath & SubPath   Dim FileName As String   FileName = "attestation " & .Range("C6").Value & " " _ & Format(.Range("F20").Value, "dd-mm-yyyy") If Dir(FullPath, vbDirectory) = vbNullString Then MkDir (FullPath)   Dim FullName As String FullName = FullPath & FileName & ".pdf"   ' // Faire CTRL+G dans l'environnement VBE pour faire apparaitre la fenêtre d'exécution Debug.Print "Le chemin d'enregistrement est : " & FullName   .ExportAsFixedFormat Type:=xlTypePDF, FileName:=FullName End With End Sub

---