XL 2016 [RESOLU] erreur de code sur export feuille en pdf

louatt

XLDnaute Junior
Bonsoir à tous,

j'utilise le code ci-dessous pour créer une sauvegarde de ma feuille dans mon dossir source. Ce code fonctionne parfaitement.
Code:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    ActiveWorkbook.Path & "\" & "Procés verval palan à chaîne N°" _
                                    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Je voudrais l'améliorer en y précisant des données dans l'enegistrement mais impossible j'ai une erreur que je n'arrive pas à trouver.
Quelqu'un pourrait m'aider à corriger ce code ci-dessous?

Code:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    ActiveWorkbook.Path & "\" & "Procés verval palan à chaîne N°  " & (Range("E6")) & "  rédigé le " & (Range("E12")) & " Appartenant au  " & (Range(" E10 ")) & ".pdf" _
                                    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Par avance je vous remercie pour votre aide.

Cordialement.
 

youky(BJ)

XLDnaute Barbatruc
Bonsoir Louatt,
Je pense que c'est la date qu'il ne veux pas, donc au lieu des "/" on mets des "_"
Bruno

ladate=Replace([E12].text,"/","_")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "Procés verval palan à chaîne N° " & (Range("E6")) & " rédigé le " & ladate & " Appartenant au " & (Range(" E10 ")) & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 

louatt

XLDnaute Junior
Bonsoir Youky(BJ),

merci pour ton aide je vais voir ça, du coup ladate doit être déclarée comme variable?
Du style ladate as Date ?

Cordialement.
 

youky(BJ)

XLDnaute Barbatruc
Non………. Dim ladate as string
les "/" ne sont pas acceptés dans les noms
donc ladate de ce jour sera 06_11_2018
Bruno
 

louatt

XLDnaute Junior
Re-bonsoir YouKy(Bj),

merci pour tes expliquations précieuses, ça ne fonctionnait pas parce que en cellule E6 j'avais un N° au format 000 / 2018.
J'ai donc remplacé le / par un _

Encore merci pour tout bonne soirée.

Cordialement.
 

kiki29

XLDnaute Accro
Salut, il y en a d'autres, d'où l'utilité de qqch comme ceci
Code:
Private Function NomFichierValide(sChaine As String) As Boolean
Dim i As Long
Const sCaracInterdits As String = """*/:<>?[\]|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomFichierValide = False
        Exit Function
    End If
    For i = 1 To Len(sCaracInterdits)
        If InStr(sChaine, Mid$(sCaracInterdits, i, 1)) > 0 Then
            NomFichierValide = False
            Exit Function
        End If
    Next i
End Function
 

Discussions similaires


Haut Bas