Discussion :

[Albatros182]

Bonjour tous,

J'utilise le code suivant pour enregistrer ma feuille de classeur en PDF:

Code :

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

1
2
3
4
5
6
Sub Edition_Epicerie_pdf()
 
 Sheets("Epicerie").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\" & Worksheets("Saisie des effectifs").[D1] & " " & Worksheets("Saisie des effectifs").[E1] & Value & " Epicerie "
 
End Sub

Le nom de l'onglet (ici Epicerie) change souvent en fonction des fournisseurs, et je voudrais que le code puisse enregistrer l'onglet sous lequel je suis en tenant compte du nom de ce dernier.

Peux on avoir un code, que lorsque je clique sur le bouton, il enregistre la feuille active au nom de l'onglet ?

Je ne sais pas si je suis assez clair.............

Merci par avance.

[joe.levrai]

Bonjour,

en remplaçant

Code :

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

" Epicerie "

par

Code :

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

ActiveSheet.Name

?

[Pierre Fauconnier]

[...]
Le nom de l'onglet (ici Epicerie) change souvent en fonction des fournisseurs, et je voudrais que le code puisse enregistrer l'onglet sous lequel je suis en tenant compte du nom de ce dernier.[...]

alors, il te suffit de ne pas sélectionner la feuille "épicerie" et donc de supprimer la ligne Sheets("Epicerie").Select



@ Joe... L'apéro de midi était trop bien tassé? => CE que tu proposes revient à faire Sheets(ActiveSheet.Name).Select... Oui, l'apéro de midi était un peu trop dur

[joe.levrai]

Non Pierre, j'ai même pas eu le temps ce midi

Je parlais (manque de clarté de ma part), de remplacer au sein de la méthode ExportAsFixedFormat, tout au bout

Code :

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

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="E:\" & Worksheets("Saisie des effectifs").[D1] & " " & Worksheets("Saisie des effectifs").[E1] & Value & ActiveSheet.Name

Mais ça restait très caca comme méthode, là on va être d'accord

[Pierre Fauconnier]

ARf, Joe, j'avais pas fait attention que tu parlais de la fin de la deuxième ligne... C'est donc mon apéro (ou plutôt mon manque d'apéro) qui était trop dur

[Albatros182]

Super messieurs,

C'est exactement ce que j'avais besoin.

De plus si je ne me trompe pas, je peux utiliser le même code pour tous mes onglets et donc éviter des pages d'écriture.

Merci