renomer fichier excel erreur 1004

Question

Bonjour, 
J'ai une erreur 1004 sur la Macro suivante: 
"Private Sub CommandButton1_Click()
'export facture au format PDF
info1 = Sheets("Facture de service").Range("G10")
info2 = Sheets("Facture de service").Range("H5")
info3 = Sheets("Facture de service").Range("H6")
Nom = info1 & "-" & info2 & "-" & ".xls"
ThisWorkbook.Save
ThisWorkbook.SaveAs (Nom)
ThisWorkbook.Activate
If MsgBox("Voulez-vous créer la facture ?", vbYesNo, "Format pdf") = vbYes Then
ChDir "C:\Users\amandine\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, quality:=xlQualityStandard, IncluseDocproperties:=True, ignorePrintAres:=False, from:=1, to:=1, openAfterpublish:=True
End If"
Quelqu'un peut-il m'aider ?
Cela me bloque et m'empêche d 'automatiser mon fichier 
D'avance je vous remercie

yg_be · Answer

bonsoir, sur quelle ligne l'erreur se produit-elle?

f894009 · Answer

Bonjour a tous,
Manque le nom de fichier avec le chemin, pas besoin de Chdir, exemple fait avec enregistreur de macro:
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\SWF\Downloads\Classeur1.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

Renomer fichier excel erreur 1004

2 réponses

Discussions similaires

Newsletters