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

  • Initiateur de la discussion Initiateur de la discussion louatt
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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
 
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Problème macro
Réponses
4
Affichages
246
Réponses
3
Affichages
887
Réponses
10
Affichages
547
Réponses
3
Affichages
673
Retour