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 0x80070643 - Accueil - Windows
- Erreur de lecture reconnecté en 3s - Forum TV & Vidéo
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
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