Macro enregistrer sous PDF + Renommer avec contenu de cellules

Résolu/Fermé

LNA2002 Messages postés 6 Date d'inscription jeudi 21 août 2014 Statut Membre Dernière intervention 21 août 2014 - 21 août 2014 à 11:06
Styla27 Messages postés 44 Date d'inscription mardi 16 février 2016 Statut Membre Dernière intervention 18 mars 2016 - 16 févr. 2016 à 12:03

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:

Macro pdf
Lire le coran en français pdf - Télécharger - Histoire & Religion
Save as pdf - Télécharger - Bureautique
Comment faire un pdf - Guide
Comment modifier un pdf - Guide
Macro word - Guide

1 réponse

Réponse 1 / 1

skk201 Messages postés 938 Date d'inscription jeudi 11 septembre 2008 Statut Membre Dernière intervention 16 octobre 2016 54
21 août 2014 à 11:18

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

LNA2002 Messages postés 6 Date d'inscription jeudi 21 août 2014 Statut Membre Dernière intervention 21 août 2014
21 août 2014 à 11:32

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...

LNA2002 Messages postés 6 Date d'inscription jeudi 21 août 2014 Statut Membre Dernière intervention 21 août 2014
21 août 2014 à 11:33

Est ce que sheet doit être nommé comme sur la feuille "New Fac" (2ème onglet)
J'ai essayé aussi.

Merci à vous

Discussions similaires

Enregistrement automatique en PDF au nom d'une cellule.

créer FICHIER PDF avec nom récupérer dans une cellule

macro pour enregistrer sous, en fonction d'une cellule

Le nom du fichier Excel contenu dans une cellule

Enregistrer sous, un classeur avec le nom d'une cellule

Sauvegarder un fichier avec le nom d'une cellule d'une autre feu

Discussions similaires

Newsletters