Renomer fichier excel erreur 1004
anonyme4200
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Erreur d'exécution 1004 document non enregistré
- Comment reduire la taille d'un document - Guide
- Signer un document word - Guide
- Comment ouvrir un document docx - Guide
- Comment récupérer un document dans le presse-papier samsung - Guide
- Comment supprimer une page dans un document word - Guide
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonsoir, sur quelle ligne l'erreur se produit-elle?
Bonjour a tous,
Manque le nom de fichier avec le chemin, pas besoin de
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