Macro enregistrer sous PDF + Renommer avec contenu de cellules

Résolu
LNA2002 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
Styla27 Messages postés 44 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   54
 
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

0
LNA2002 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Je tente d'appliquer votre conseil mais il doit me manquer une étape.
J'ai fait ceci :

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\Sheets("sheet2").Cells(7, 18).Value.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

Mais sans succès...
0
LNA2002 Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Est ce que sheet doit être nommé comme sur la feuille "New Fac" (2ème onglet)
J'ai essayé aussi.

Merci à vous
0