XL 2019 Macro export au format pdf

[Francois9999]

Bonjour

Je me permets de vous sollicité afin d'avoir votre aide sur un code. Je souhaite exporter une feuille excel au format pdf.

Cela fonctionne bien mais des fois lorsque le répertoire de sauvegarde est très long cela ne fonctionne pas

voici le code qui ne fonctionne pas :

 Sheets("Récap").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NomFichier, _
                                          Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                          IgnorePrintAreas:=False, OpenAfterPublish:=True

Avez vous connaissance d'une solution ?

Le code en intégralité est le suivant :

Sub SAUVEGARDER()
'
' SAUVEGARDER Macro
'

'
    Range("J3").Select
    ActiveCell.FormulaR1C1 = "=ModDate()"
    Range("AZ4") = ThisWorkbook.BuiltinDocumentProperties("author").Value
    
    

Dim fichier As String, NomFichier As String

NomFichier = Range("F10").Value & " - " & Range("S11").Value & " - " & Range("F12").Value & " - " & Range("H69").Value & " " & Range("F13").Value & " - " & Range("S13").Value & "" & Range("S14").Value & ".pdf"
'NomFichier = Range("F10").Value & " - " & Range("S11").Value & " - " & Range("F12").Value & " - " & Range("H69").Value & " " & Range("F13").Value & " - " & Range("S13").Value & "" &  Range("S14").Value & ".pdf"
    
    
With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = -1 Then    ' Clic sur Ok
     Chemin = .SelectedItems(1)
    Else
      ' Clic sur Annuler
     Exit Sub
    End If
  End With
 
  Sheets("Récap").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NomFichier, _
                                          Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                          IgnorePrintAreas:=False, OpenAfterPublish:=True



End Sub

Merci par avance

 

[GALOUGALOU]

re françois9999 bonsoir le forum
Il y a peut-être une limitation au nombre de caractères pour le nom du fichier, ou vous utilisez peut-être des caractères interdits.

• < (plus petit que; less than)
• > (plus grand que; greater than)
• : (deux points; colon)
• " (double appostrophe; double quote)
• / (slash; barre de fraction; forward slash)
• \(antislash; backslash)
• | (barre verticale; vertical bar; pipe)
• ? (point d'interrogation; question mark)
• * (astérisque; asterisk)

pour info

Windows 10 : les noms de fichiers ne seront plus limités à 260 caractères

Parmi les contrariétés infligés aux développeurs par Windows, se trouvent la limitation à 260 caractères pour les noms de fichiers, chemin d'accès inclus. Une limite qui était imposée par les API Win32.Microsoft a eu (enfin) la bonne idée de corriger cela avec la build 14352 de Windows 10.

www.programmez.com

cdt
galougalou

 

[Phil69970]

Bonjour @Francois9999 ,@GALOUGALOU


Pour compléter ce que @GALOUGALOU a dit :

Il y a peut-être une limitation au nombre de caractères pour le nom du fichier, ou vous utilisez peut-être des caractères interdits.

Quelle est la valeur de ta variable NomFichier ?

NomFichier = Range("F10").Value & " - " & Range("S11").Value & " - " & Range("F12").Value & " - " & Range("H69").Value & " " & Range("F13").Value & " - " & Range("S13").Value & "" & Range("S14").Value & ".pdf"

Il y a quoi en F10, S11, F12, H69, F13, S13, S14, c'est un roman le nom de ton fichier

*Un fichier anonymisé pourrait nous aider.

@Phil69970

 

[Francois9999]

Bonjour à vous deux
Merci pour vos retours.
Effectivement, il semble que je suis limité à 219 caractères lors d'un export ou enregistrement d'un fichier Excel au format PDF. Les cellules F10, S11, F12, H69, F13, S13, S14, comprennent respectivement le nom de la société, le type de virement, la banque, le montant, la devise, l'échéance. je le confesse, il s'agit bien d'un roman
mais je ne suis pas le seul à l'origine puisqu'il y a un grand nombre de répertoire d'enregistrement.

Merci à vous deux pour votre aide