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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas