Enregistrement avec nom d'une cellule

Bonjour,

Je souhaite pouvoir enregistrer une sélection de cellule au format .pdf et mettre en nom de fichier .pdf la valeur d'une cellule A1 et ca via un bouton.

Cette cellule A1 s'incrémente via une autre macro. Elle a la forme jjmmaa001 - jjmmaa002 etc..

Cette cellule A1 est en réalité une formule A1=B1&B2 avec B1 la date du jour et B2 le 001 qui s'incrémente via un bouton.

Ce que je souhaite faire c'est donc avoir un deuxieme bouton qui me permet d'enregistrer une sélection de cellule au format .pdf en lui donnant le nom de la cellule A1.

Tout fonctionne sauf la partie "donner le nom de la cellule A1"

J'ai essayé en ajoutant une étape de copier A1 puis collage spéciale (valeur) en A2 , puis copier cellule A2 mais ca ne fonctionne pas.

NB: j'ai remarqué que copier une cellule ne permet pas de coller le texte ou suite de chiffre dans la barre de nom du fichier. (lors de l'enregistrement) Ctrl+V ne donne rien.

Pour que cela fonctionne il faut copier la valeur de la cellule (dans la barre de formule Excel) et la le Ctrl+V va fonctionner.

Sauf que si je fais ca, je ne sais pas pkoi l'étape que j'ai rajouté (en bleue) ne fonctionne pas et le fichier .pdf garde le nom que j'ai utilisé pour enregistrer ma macro.

Je ne sais pas si j'ai été clair, c'est loin d'être évident d'expliquer ça.

Voila mon code si ca peut aider.

Sub Enregistrement()
'
' Enregistrement Macro
'

'
Range("A1").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "2332021001"

'Sélection des cellules a enregistrer'

Range("G1:O30").Select
ChDir "C:\Users\geo.tho\Desktop\"
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\geo.tho\Desktop\Fiche Journalière\2332021001.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Voila. je pense que l'erreur est sur ces deux lignes mais je ne sais pas quoi faire :

- ActiveCell.FormulaR1C1 = "2332021001"

- "C:\Users\geo.tho\Desktop\Fiche Journalière\2332021001.pdf"

Merci de votre aide

Bonjour,

Pour rendre dynamique ton nom de fichier :

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\geo.tho\Desktop\Fiche Journalière\" & Range("A1") &".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Cdlt,

Merci Bcp. Ca marche au top. Exactement ce que je voulais.