XL 2019 Macro export au format pdf

Francois9999

XLDnaute Nouveau
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 :


VB:
 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 :

Code:
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
 
Solution
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)...

GALOUGALOU

XLDnaute Accro
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
cdt
galougalou
 

Phil69970

XLDnaute Barbatruc
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 ?
VB:
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

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 907
Membres
101 836
dernier inscrit
karmon