Discussion :

[chito79000]

Bonjour à tous,

Je souhaite enregistrer une feuille excel en pdf avec une variable date mais cela ne fonctionne pas.

Voici le code vba :

Code :

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

1
2
3
4
5
6
7
8
9
10
    chem = "C:\"
    date = "15/08/2015"
    nom = "TEXTE TES " & date & " " & "LETTRAGE"
 
    ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, _
    Filename:=chem & nom , _
    Quality:=x1QualityMinimum, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

Lorsque j'enleve les / de la variable date cela fonctionne....

pouvez vous m'aider sur le sujet svp ?

[BENNASR]

moi j'utilise ça qui fonctionne parfaitement: (je saispas si c'est utile pour vous vu que chui débutant en VBA)

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
Dim Ar(8) As String
    Ar(0) = Feuil5.Name
    Ar(1) = Feuil3.Name
    Ar(2) = Feuil4.Name
    Ar(3) = Feuil7.Name
    Ar(4) = Feuil11.Name
    Ar(5) = Feuil8.Name
    Ar(6) = Feuil9.Name
    Ar(7) = Feuil10.Name
    Ar(8) = Feuil12.Name
 
    Application.ScreenUpdating = False
    Sheets(Ar).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Rapport Mensuel avec résultat " & M _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
 
    Application.ScreenUpdating = True
 
End Sub

[kiki29]

Salut, une façon de tester des noms de fichiers valides, à adapter au contexte.

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
27
Option Explicit
 
Sub Tst()
Dim sFichier As String
    sFichier = "19/10/2016.pdf"
    If NomFichierValide(sFichier) Then
        '...
    Else
        MsgBox "Nom de fichier invalide", vbOKOnly + vbInformation
    End If
End Sub
 
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const CaracInterdits As String = """*/:<>?[\]|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(CaracInterdits)
        If InStr(sChaine, Mid$(CaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function

[Invité]

Bonjour,

Une autre solution possible avec une fonction qui transforme la date en texte avec des "-" à la place des "/" et met la date dans l'ordre Jour-Mois-Année ou Année-Mois-Jour.

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
27
28
29
30
 
 
Sub Essai()
 
Dim Chemin As String
Dim Nom As String
 
 
    Chemin = "C:\"
    Nom = "TEXTE TES " & MaDateEnTxt(CDate("15/08/2015"), True) & " " & "LETTRAGE"
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Nom
    ', Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
End Sub
 
Function MaDateEnTxt(ByVal DateChoisie As Date, ByVal DateInversee As Boolean) As String
 
Dim Madate As Variant
 
    Application.Volatile
 
    Madate = Split(DateChoisie, "/")
    If DateInversee = False Then
       MaDateEnTxt = Madate(0) & "-" & Madate(1) & "-" & Madate(2) 'Jour-Mois-Année
    Else
       MaDateEnTxt = Madate(2) & "-" & Madate(1) & "-" & Madate(0) 'Année-Mois-Jour
    End If
 
End Function

Cordialement.