Renomer fichier excel erreur 1004

Fermé

anonyme4200 Messages postés 1 Date d'inscription jeudi 9 février 2017 Statut Membre Dernière intervention 9 février 2017 - 9 févr. 2017 à 19:40
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 11 févr. 2017 à 08:23

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

A voir également:

Erreur d'exécution 1004 document non enregistré
Erreur 0x80070643 - Guide
Signer un document word - Guide
Erreur vidéo freebox ✓ - Forum TV & Vidéo
Erreur d'exécution 1004 erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA
Erreur 38 free ✓ - Forum Mobile

2 réponses

Réponse 1 / 2

yg_be Messages postés 22720 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 23 avril 2024 1 476
9 févr. 2017 à 20:26

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

Réponse 2 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 11/02/2017 à 08:27

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

Discussions similaires

VBA erreur 1004

[PIX] Commencer chaque poème sur une nouvelle page

MACRO : Problème " Erreur d'exécution '1004' "

Instagram "Désolé, une erreur s'est produite"

Table des matières dont les titres n'apparaissent pas..

Discussions similaires

Newsletters