Discussion :

[atlaslion]

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.

[BENNASR]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[deedolith]

Salut,

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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