Bogue sur macro Enregistrer sous format pdf
Bonjour à tous,
Je rencontre une difficulté avec ma macro pour enregistrer sous au format pdf en allant chercher le texte d'une cellule pour compléter le nom du fichier pdf.
La macro marche une fois puis plus jamais. ???
Voici ce que j'utilise (macro placée dans un module; mon bouton est une image):
Sub PDF()
Dim Chemin As String
Dim NFichier As String
With Worksheets("Document")
Chemin = Application.ActiveWorkbook.Path & "\"
NFichier = "Test" & " - " & .Range("K4") & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NFichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub
La macro fonctionne bien sans l'appel à la valeur de la cellule K4.
J'ai essayé plusieurs choses en fonction de ce que j'ai vu ici et là :
.Range("K4")
Range("K4").Value
Cells(4,11).Value
Worksheets("Document").Cells(4,11).Value
mais rien ne passe.
Merci de bien vouloir m'aider à résoudre/comprendre la chose.
Bonjour,
Que contient précisément la cellule K4 de la feuille Document ?
Cdlt.
As-tu essayé d'enregistrer un document avec le nom contenu en K4 ?
Merci Jean-Eric et merci Steelson pour la solution.
Ma cellule contenait un caractère interdit...
Je sors.
Encore merci pour votre réactivité !