impression pdf simple

[Jacques25]

Bonjour à tous,

j'essaye de faire une impression simple d'une feuille en pdf mais malgré les multiples post que j'ai lu je n'arrive pas à l'adapter à mon fichier. Je sollicite donc votre aide pour le mise en forme de mon code.

Mon souhait j'ai un fichier comportant plusieurs onglet, dans un de ces onglet je saisi mes données qui sont enregistrée dans un formulaire que je souhaite enregistrer au format xls ou xlsx (seulement l'onglet en question) et au format pdf. Les 2 enregistrement étant dans un même dossier.

Voici le début de mon code (simplifié):

Sub Bouton1_Cliquer()

'Déclaration du type de variables
Dim Doc As Worksheet, Liste As Worksheet, Envoi As Worksheet,

'Définition des variables
Set Doc = Workbooks("fichier source.xls").Worksheets("doc")
Set Liste = Workbooks("fichier source.xls").Worksheets("Liste")
Set Envoi = Workbooks("fichier source.xls").Worksheets("Envoi")
Nom = Doc.[A4].value

==> je souhaiterai que l'onglet envoi soit imprimé en pdf et en enregistré en xls ou xlsx dans le dossier :
\\serveurX\réseau1\réseau2\réseau3\Nom.pdf

Merci pour votre aide.
@ plus

Jacques

 

[Jacques25]

Re : impression pdf simple

Bonjour tout le monde,

Je me permet de remonter un peu le message, si toutefois quelqu'un arrive à me donner une solution.

Merci de votre compréhension.

Jacques