Erreur de syntaxe VBA sur Excel 365

[Ptitloups56]

Bonjour à toutes et tous,
J'ai recopier ce code car j'avoue je n'y connais pas grand choses et il ne fonctionne pas (erreur de syntaxe) j'utilise Excel 365 :

ActiveSheet.ExportAsFixedFormat_
type:=xlTypePDF,_
Filname:=Chemin & range("E2").Value & ".pdf",_
quality:=xkqualitysandard,_
includedocproperties:=true,_
ignoreprintareas:=false, from:=1, to:=2,_
openaflerpublish:=False
Merci de votre aide

 

[Dranreb]

Bonjour
Essayez en ajoutant un espace devant les "_" de continuation.
Et mettez Option Explicit en tête de vos modules, comme ça il vous aurais aussi déjà signalé une erreur de compilation du fait qu'un objet Worksheet ne possède pas de membre nommé "ExportAsFixedFormat_" écrit comme ça, avec un "_" au bout.

 

[Ptitloups56]

Merci beaucoups

 

[Ptitloups56]

bonjour,
je souhaiterais enregistrer un fichier en PDF, le dossier se crée mais pas le fichier

 

[Dranreb]

Mettez en commentaire l'instruction On Error Resume Next sinon on n'a aucun message d'erreur expliquant ce qui ne va pas !

 

[TooFatBoy]

Bonjour,

J'ai signalé ce fil pour qu'il soit déplacé vers la bonne section du forum.

 

[Ptitloups56]

Bonjour,

J'ai signalé ce fil pour qu'il soit déplacé vers la bonne section du forum.

merci

 

[TooFatBoy]

Il manque un \ après Archives, donc c'est bizarre que le dossier soit bien créé.

A moins que "Archives" ne soit pas un dossier mais bien le début du nom du dossier.

 

[Ptitloups56]

Il manque un \ après Archives, donc c'est bizarre que le dossier soit bien créé.

A moins que "Archives" ne soit pas un dossier mais bien le début du nom du dossier.

J'ai modifier mais le problème reste le même le fichier en PDF ne se crée pas
Le dossier se crée bien dans le bon emplacement

 

[TooFatBoy]

Une proposition :

Sub Export_en_PDF()
'
    NomDossier = Application.InputBox("Non du dossier", "Création du dossier", "Entrer le nom du dossier")
    Chemin = "F:\Frais\Archives\" & NomDossier & "\"

    On Error Resume Next

'    Dossierexistant = GetAttr(dossier) And vbDirectory
    Dossierexistant = GetAttr(Chemin) And vbDirectory

    If Dossierexistant = False Then MkDir (Chemin)

    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Chemin & Range("E2").Value & ".pdf", _
            includedocproperties:=True, _
            quality:=xlqualitystandard, _
            ignoreprintareas:=False, _
            from:=1, to:=2, _
            openafterpublish:=False

    MsgBox ("le PDF a été créé")

End Sub

 

[Ptitloups56]

Une proposition :

Sub Export_en_PDF()
'
    NomDossier = Application.InputBox("Non du dossier", "Création du dossier", "Entrer le nom du dossier")
    Chemin = "F:\Frais\Archives\" & NomDossier & "\"

    On Error Resume Next

'    Dossierexistant = GetAttr(dossier) And vbDirectory
    Dossierexistant = GetAttr(Chemin) And vbDirectory

    If Dossierexistant = False Then
        MkDir (Chemin)
    End If

    ActiveSheet.ExportAsFixedFormat _
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=Chemin & Range("E2").Value & ".pdf", _
            includedocproperties:=True, _
            quality:=xkqualitysandard, _
            ignoreprintareas:=False, _
            from:=1, to:=2, _
            openafterpublish:=False

    MsgBox ("le PDF a été créé")

End Sub

Merci beaucoup

TooFatBoy un vrai expert​

 

[TooFatBoy]

Merci, mais en fait... non, pas un expert du tout : j'ai tâtonné. 😅

D'ailleurs j'ai édité mon message précédent pour "corriger" la macro. 😉

 

[TooFatBoy]

Pour info, il manquait un "e" à FileName:= et xlQualityStandard était mal écrit. 😉

 

[TooFatBoy]

Et mettez Option Explicit en tête de vos modules, comme ça il vous aurais aussi déjà signalé une erreur de compilation du fait qu'un objet Worksheet ne possède pas de membre nommé "ExportAsFixedFormat_" écrit comme ça, avec un "_" au bout.

Inutile dans ce cas puisqu'Excel signale déjà une erreur de syntaxe (en mettant le texte en rouge), et qu'on vérifie la syntaxe avant de lancer la compilation. 😉

En revanche, ça permet de signaler que xkQualitySandard n'existe pas. Et ça c'est top !👍