Erreur de syntaxe
Mitchi67 Messages postés 8 Statut Membre -
Bonjour, J'ai un souci de syntaxe dans une partie de mon code.
C'est un code pour exporter des factures dans un dossier PDF
A partir de Type jusqu'à openafterpublish:=False c'est écrit en rouge. Et le := est en bleue et clignotte. J'imagine que l'erreur est là??? La seule chose que je sais c'est ce qu'est une syntaxe mais ça ne m'aide pas car je ne connais rien en informatique. J'ai bien laissé un espace entre la, et le _ comme précisé par le site ou j'ai trouvé les info pour le code.
Merci d'avance si vous pouvez m'aider????
Mitchi
Sub Export_en_pdf()
NomDossier = Application.InputBox("Nom du dossier", "Création du dossier", "Entrer le nom du dossier")
Chemin = "C:\Users\miche\Desktop\Factures PDF2024\" & NomDossier & "\"
On Error Resume Next
Dossierexistant = GetAttr(dossier) And vbDirectory
If Dossierexistant = False Then
MkDir (Chemin)
End If
ActiveSheet.ExportAsFixedFormat_
Type:=xltypePDF, _
Filename:=Chemin&Range("G18").Value&"pdf", _
Quality:=xkqualitystandard, _
includedocproperties:=True, _
ignoreprintareas:False,from:1, to 1, _
openafterpublish:=False
MsgBox ("Le pdf à été créé")
End Sub
Windows / Chrome 130.0.0.0
- Erreur de syntaxe
- Erreur t32 ✓ - Forum Livebox
- Erreur upes 1025 - Forum Téléviseurs
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Corriger l'erreur 0x80070643 de la mise à jour KB5034441 de Windows 10 - Accueil - Windows
Oups, il y en a d'autres. Corrige le tout :
ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=Chemin & Range("G18").Value & "pdf", _ Quality:=xkqualitystandard, _ includedocproperties:=True, _ ignoreprintareas:=False, from:=1, to:=1, _ openafterpublish:=FalseDaniel