Créer un PDF

Bonjour à tous,

Tout d'abord un grand merci pour votre aide!! Je prend pas mal de choses que je trouve sur ce forum qui m'aide beaucoup.

J'ai un petit soucis avec une macro que j'ai créé. Je souhaite créer en PDF l'onglet "Wxx - Cust" cependant rien ni fait.

J'ai fait tout le forum mais je ne trouve pas de solution.

Si quelqu'un pouvait m'aider... J'ai attaché le fichier.

Merci d'avance à tous!!!

Bonjour

Un essai.

Le fichier PDF est enregistré dans le même dossier que le dossier d'origine. Celui-ci doit donc être enregistré.

Cela te convient-il ?

Bonjour,

Ci-joint ton fichier test ...

Merci beaucoup!!!!

Surtout pour la rapidité de traitement!!!

C'est impeccable!

Re,

Merci pour tes remeciements ...!!!

P.S. GE quelle boite absolument géniale ...!!! Félicitations ...!!!

Est-il possible que le fichier PDF ait le nom du fichier Excel?

Je viens de noter un problème: La macro génère la première feuille mais pas la 4ème.

Serait-il possible de corriger les deux points ci-dessus?

Merci d'avance pour votre aide!!!!!!!!!

Bonsoir,

Ma petite contribution.

Par contre, je pensais que seule la feuille active devait être enregistrée en pdf.

Quelle est cette page 4 que tu veux ajouter dans le fichier?

Cdlt.

Option Explicit
Option Private Module
Public Sub Creer_PDF()
Dim myPath As String, myFile As String

    myPath = ThisWorkbook.Path & Application.PathSeparator
    myFile = Split(ThisWorkbook.Name, ".")(0)

    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            fileName:=myPath & myFile, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=True, _
            From:=1, _
            To:=1, _
            OpenAfterPublish:=False

End Sub

Bonjour Jean-Eric,

Merci beaucoup pour le document transmis c'est nickel!!!

En faite je ne sais pas pourquoi j'importais l'onglet 1 et non l'onglet 4 lorsque j'appuyais sur le bouton "Créer PDF".

Super boulot en tout cas merci à tous!!!!!!!