Macro enregistrer sous PDF + Renommer avec contenu de cellules
Résolu
LNA2002
Messages postés
6
Statut
Membre
-
Styla27 Messages postés 51 Statut Membre -
Styla27 Messages postés 51 Statut Membre -
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
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:
- Macro pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
- Télécharger dictionnaire larousse pdf gratuit - Télécharger - Dictionnaires & Langues
- Notices gratuites pdf - Guide
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...
J'ai essayé aussi.
Merci à vous