Macro enregistrer sous PDF + Renommer avec contenu de cellules
Résolu
LNA2002
Messages postés
6
Statut
Membre
-
Styla27 Messages postés 44 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
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
1 réponse
-
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
-
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... -
-
