Export en PDF automatique portant le nom d'une cellule
Bonjour, à tous,
Je me permets de vous solliciter pour vos connaissances et votre gentillesse.
Je réalise un fichier Excel, qui me permet de réaliser des comptes-rendus. Je voulais savoir s'il était possible de réaliser un bouton qui me permettrais de les exporter dans un dossier spécifique en le renommant automatiquement par le contenu d'une cellule. J'ai essayé de regarder des tutos à ce sujet mais je n'arrive pas à les appliquer (le problème vient très certainement de moins).
Je vous remercie pour votre aide et le temps que vous m'accorderez.
PS : Je vous laisse en pièce jointe le fichier en question.
Cordialement,
Tinko,
Bonjour Tinko00
Pour répondre très précisément à votre question
Je voulais savoir s'il était possible de réaliser un bouton qui me permettrais de les exporter dans un dossier spécifique en le renommant automatiquement par le contenu d'une cellule
Oui c'est possible et il y a un tas d'exemples sur ce forum
Bonjour,
Si vous n'y arrivez pas avec des exemples c'est sans doute parce que le nom que vous souhaitez donner à votre fichier n'est pas valide. Vous ne pouvez pas utiliser certains caractères dans les noms de fichier : " ° " ou " : "
Changez le nom en D1 ce sera plus facile.
Sub Macro1()
Dim nomdocu As String
Dim chemin As String
nomdocu = Range("D1").Value
chemin = ThisWorkbook.Path & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & nomdocu & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Merci pour ces retours,
Une information que je n'avais pas, désolé pour ce dérangement,