Erreur de syntaxe VBA sur Excel 365

Ptitloups56 · 28 Septembre 2023

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 · 28 Septembre 2023

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 · 28 Septembre 2023

Merci beaucoups

Ptitloups56 · 28 Septembre 2023

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

Dranreb · 28 Septembre 2023

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

TooFatBoy · 28 Septembre 2023

Bonjour,

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

Ptitloups56 · 28 Septembre 2023

TooFatBoy à dit:
Bonjour,

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

merci

TooFatBoy · 28 Septembre 2023

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 · 28 Septembre 2023

TooFatBoy à dit:
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 · 28 Septembre 2023

Une proposition :

VB:

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 · 28 Septembre 2023

TooFatBoy à dit:

Une proposition :

VB:

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 · 28 Septembre 2023

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 · 28 Septembre 2023

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

TooFatBoy · 29 Septembre 2023

Dranreb à dit:
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 !

Erreur de syntaxe VBA sur Excel 365

Ptitloups56

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Ptitloups56

XLDnaute Nouveau

Ptitloups56

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Ptitloups56

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Ptitloups56

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Ptitloups56

XLDnaute Nouveau

TooFatBoy un vrai expert

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires

Erreur de syntaxe VBA sur Excel 365

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

TooFatBoy un vrai expert​

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

TooFatBoy un vrai expert