Ajout d'une syntaxe dans une macro qui genere un PDF

**wonder68** · 10/04/2019, 13h08

Bonjour a tous,

Ayant une connaissance limitée en macro, je m'adresse a vous pour changer un bout de code. J'ai récupéré un fichier de mon boulot que je veux modifier. Quand on clique sur le bouton, il prend le fichier Excel et le transforme en PDF. Pour nommer le PDF, il prend le NOM du client et rajoute OFFER. Par contre, j'aimerais qu'il rajoute dans ce nom le Numéro de l'offre qui apparaît dans la cellule B6.
Voici le bout de code qui génère le nom du PDF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'Chemin + PDF-File-Name
Customer_name = Range("G6") & "_OFFER"
'sPathPDF = sPathPDF & Customer_name & "_" & Left(.Name, InStrRev(.Name, ".")) & "pdf"
sPathPDF = sPathPDF & Customer_name & ".pdf"

Je sais que je dois définir le Numéro de l'offre qui se situe en B6 mais je ne sais comment l’intégrer dans la syntaxe

Merci pour toute l'aide que vous pourrez m'apporter

**mercatog** · 10/04/2019, 13h11

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
with worksheets("NOM DE TA FEUILLE") ² à adapter
    Customer_name = .Range("G6").Text & "_OFFER" & .Range("B6").Text
end with

**BENNASR** · 10/04/2019, 13h12

bonjour
essaye avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Customer_name = Range("G6").text & Range("B6").text

**wonder68** · 10/04/2019, 13h28

Je suis scotche par la rapidite. C'est genial, merci a vous 2: J'ai remplace avec la syntaxe de BENNASR car celle de mercatog, il ne prenait pas le . avant le RANGE

En tout cas, je suis super heureux de votre aide.
Mille mercis a vous

**mercatog** · 10/04/2019, 13h46

Tu comprendras quand tu aurais la surprise si la feuille active n'est pas celle que tu voulais.

**MarcelG** · 10/04/2019, 13h48

Salut,

Pas d'accord.

Il faut toujours rattacher les objets Range à leur parent Worksheet avec un ".".
Dans le ca contraire, les cellules considérées sont issues de la feuille active, ce qui pourrait être source d'erreur.
Si les 2 cellules appartiennent à la même feuille alors tu peux adapter l'argument de l'objet Worksheets.

Hé salut, mercatog.
Nos post se sont croisés.