Export automatique PDF

Bonjour,

Après avoir parcouru le forum et avoir essayer plusieurs code, je n'arrive toujours pas à réaliser mon export en PDF. Mon problème est que l'export fonction sur excel 2013 (version utilisé lors du codage). Mais il ne fonction pas avec excel 2007, cela me renvoi une erreur "424".

Je vous joint le code :

Sub Bouton7_Cliquer()
Dim sRep As String                  ' Répertoire de sauvegarde
    Dim sFilename As String             ' Nom du fichier

sRep = "D:\PAGODES LOCATION\Excel Baptiste\"                       ' Répertoire de sauvegarde (si non spécifié, répertoire actif par défaut)
sFilename = Range("E3") & "-" & Range("A8") & "." & "pdf"     ' Nom du fichier

Range("A1:G47").Select.Activate
Selection.ExportAsFixedFormat _
                     Type:=xlTypePDF, _
                     Filename:=sRep & sFilename, _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=True

    Range("I22").Select
    Sheets("Suivi_des_factures").Select
 End Sub

Merci par avance de votre aide .

Bonjour,

cela me renvoi une erreur "424".

sur quel ligne de la macro ?

surement ici:

Range("A1:G47").Select.Activate

si oui, remplacer par:

Range("A1:G47").Select

Bonsoir,

Sub ExportPDF()
    Dim sRep As String, sFilename As String
    sRep = "D:\PAGODES LOCATION\Excel Baptiste\"
    With ActiveSheet
        sFilename = .Range("E3") & "-" & .Range("A8") & ".pdf"
        .Range("A1:G47").ExportAsFixedFormat xlTypePDF, sRep & sFilename
    End With
End Sub

Cordialement.

Bonjour,

Merci de vos réponses, mais cela ne fonctionne toujours pas sur excel 2007. Je viens de l'essayer sur une version d'excel 2013, cela fonctionne parfaitement. Je voudrais juste que le PDF s'affiche automatiquement après publication.

Merci.

Bonjour,

Pas de raison que ça fonctionne sur l'un et pas sur l'autre ! A moins que ton appli ne soit endommagée...

Pour affichage...

        .Range("A1:G47").ExportAsFixedFormat xlTypePDF, sRep & sFilename, OpenAfterPublish:= True

Cordialement.

Voilà une version qui fonctionne pour moi (Excel 2010)

Sub Save_xls_to_pdf()
Dim dest As String
dest = "C:\Users\XX\Desktop\"
ActiveSheet.Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
dest & ActiveWorkbook.ActiveSheet.Name, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Edit: Salutations MFerrand

Salut Bayard !

Toutes fonctionneront tant qu'il n'y a pas d'erreur de syntaxe, et le problème semble avoir une autre cause, dès lors que l'intéressé ne reproduit pas l'erreur de sa première version...

Mais je conseillerai d'arrêter d'imiter l'enregistreur à chaque écriture du moindre bout de code, c'est à dire outre bannir complètement tout Select ou Activate, cesser de passer systématiquement les arguments (paramètres) par noms, et de les passer tous : on passe les arguments par position en se limitant aux obligatoires et on ne passe que les facultatifs qu'on utilise en modifiant leur valeur par défaut (en basculant le cas échéant sur une passation par nom pour éviter une accumulation de virgules marquant des positions vides).

Le code sera nettement plus réduit, et il gagnera en clarté et en rapidité d'exécution !

Cordialement.

Bonjour à tous,

Ne fallait il pas un complément (add-in) pour enregistrer en pdf avec Excel 2007 ?

Cdlt.

Jean-Eric a écrit :

Bonjour à tous,

Ne fallait il pas un complément (add-in) pour enregistrer en pdf avec Excel 2007 ?

Cdlt.

Salut Jean-Eric !

Je n'ai plus 2007 pour vérifier, mais ce serait tout de même curieux, la méthode a fait justement son apparition avec Excel 2007...

Bonne journée à toi.

bonjour

et oui sur 2007 il faut complément Microsoft

voir :

A+

Maurice

J'essai tout ça et je reviens vers vous.

Merci.

Je me le note dans un coin de neurone...

Baptou sait ce qu'il lui reste à faire...

Cela ne fonctionne toujours pas même après le téléchargement.

baptou26540 a écrit :

Cela ne fonctionne toujours pas même après le téléchargement.

Faut l'installer !

Après installation bien sur.

Personne a une idée de la source du problème ?

Tu as dû louper quelque chose, recommence l'installation.