Macro enregistrer sous PDF + Renommer avec contenu de cellules Résolu/Fermé

Question

Bonjour,

Je souhaite éditer une feuille excel en PDF et la classer dans un dossier spécifique.
J'ai réussi à l'aide de la macro suivante : 

Sub Macro6()
'
' Macro6 Macro
'

'
    ChDir _
        "S:\10 Compta\Facturation Q42013\Facturation Excellium\FACTURES A CLASSER PAR MOIS"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "S:\10 Compta\Facturation Q42013\Facturation Excellium\FACTURES A CLASSER PAR MOIS\MACRO PDF.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

Mon problème : je souhaite renommer le fichier en prenant des informations contenues dans les cellules de la feuille
R7  = numéro de facture
R8 = nom du client
R9 = date de facture

pour avoir quelque chose comme : 14-199 NOM CLIENT 21-08-2014

J'ai essayé de remplacer "MACRO PDF" dans le titre par différents essais du style [R7].value&[R8].value etc...
mais cela ne fonctionne pas.

Quelqu'un pourrait-il me venir en aide ?
Merci beaucoup

skk201 · Answer

Bonjour

pour récupéré la valeur d'une cellule c'est 

Cells(numéro de ligne, numéro de colonne).Value

Enfin il y a plein d'autres manières...

je vous conseille aussi de précisier le nom de la feuille. Donc par exemple la valeur de la cellule E4 de la "Feuil1".

Sheets("Feuil1").Cells(4, 5).Value

Macro enregistrer sous PDF + Renommer avec contenu de cellules

1 réponse

Discussions similaires