T77XDD
XLDnaute Occasionnel
Bonjour,
je cherche à enregistrer un document en pdf.
Je suis parti de là
Pour arriver là:
[/COLOR]
Je me retrouve avec une erreur de compilation, erreur de syntaxe.
Voilà je ne sais pas pourquoi cela ne fonctionne pas, j'ai cherché mais......
Je sais que en informatique la pluspart des problèmes sont entre le siège et le clavier.
Merci de votre aide.
je cherche à enregistrer un document en pdf.
Je suis parti de là
Code:
Sub creation_fichier_pdf()
Dim Boutique$, Mois$, Resp$, NomFichierPDF As String
Resp = Range("M2")
Mois = Range("E2")
Boutique = Range("B2")
NomFichierPDF = Mois & "_" & Boutique & ".pdf"
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _:
Filename:="K:\RDS\" & Resp & "\" & NomFichierPDF & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Code:
[COLOR="#FFFF00"]Sub creation_fichier_pdf()[/COLOR]
Dim Entr$, Objet$, Fax$, NomFichierPDF As String
Fax = Range("I2")
Objet = Range("C24")
Entr = Range("F14")
NomFichierPDF = "Fax " & " " & Fax & " " & Objet & " " & Entr & ".pdf"
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\ESSAI\" & Entr & "\" & NomFichierPDF & ".pdf"
[COLOR="#FF0000"]Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Je me retrouve avec une erreur de compilation, erreur de syntaxe.
Voilà je ne sais pas pourquoi cela ne fonctionne pas, j'ai cherché mais......
Je sais que en informatique la pluspart des problèmes sont entre le siège et le clavier.
Merci de votre aide.
Pièces jointes
Dernière édition: