Erreur d'exécution 1004 erreur définie par l'application ou par l'objet

Bonjour groupe,

Suite à des recherche sur des forum j'avance tranquillement dans ma résolution de problème. Maintenant c'est un "erreur d'exécution 1004 erreur définie par l'application ou par l'objet" qui me donne du fil a retorde. Étant donné que ce type d'erreur semble etre occasionné par plusieurs chose, pouvez-vous m'aider?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub
Cancel = True
End Sub
Sub Commande()
'Macro enregistrée le 2012/11/14 par CM

If IsEmpty(Range("A12")) Then MsgBox "LE NOM DU FOURNISSEUR doit être inscrit": Range("a12").Select: End
If IsEmpty(Range("h5")) Then MsgBox "LIVRÉ A doit être inscrit": Range("h5").Select: End
If IsEmpty(Range("g34")) Then MsgBox "LE NOM DU REQUÉRANT doit être inscrit": Range("g34").Select: End
If IsEmpty(Range("d17")) Then MsgBox "EXPÉDIÉ VIA doit être inscrit": Range("d17").Select: End

Dim Nomfichier As String, chemin As String
With Sheets("Commande")
.Activate
.Unprotect
.Copy
Nomfichier = Range("i2") & " " & Range("j2") & " " & Range("a12")
End With
Range("a17").Value = Format(Now, "DD MMM YYYY")
Dim Imprimante As String
  ' L'imprimante actuelle
  Imprimante = ActivePrinter
  Application.Dialogs(xlDialogPrinterSetup).Show
  ' L'imprimante sélectionnée
  Imprimante = ActivePrinter
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
chemin = "\\CLAUDE\Documents\commande\"
'on définit le nom du futur fichier et son extension en tant que fichier xls
ActiveWorkbook.SaveAs Filename:=chemin & Nomfichier & ".xls"
'.SaveAs Filename:=chemin & Nomfichier, FileFormat:=52
'Sheets("Soumission client").Name = Nomfichier
'là un petit message pour faire joli et indiquer que la sauvegarde a bien été exécutée
msg = "Votre Commande a été sauvegardée sous le nom et que vous lui avez donné." & Nomfichier
Title = "Sauvegarde de la commande actuelle"
Style = vbOKOnly + vbInformation
Reponse = MsgBox(msg, Style, Title)
'ActiveSheet.Protect
ActiveWorkbook.Close
'sur le fichier d'origine on incrémente la cellule H3 de 1 et on efface la cellule G3
Sheets("Commande").Range("j2") = Range("j2") + 1
 Range("h5") = ""
 Range("a12") = ""
 Range("d17") = ""
 Range("g17") = ""
 Range("h11") = ""
 Range("a20:i30") = ""
 Range("a32:a33") = ""
 Range("g34") = ""

'on reprotège la feuille
ActiveSheet.Protect
ActiveWorkbook.Save
'ActiveWorkbook.Close
End Sub

Bonsoir,

normalement il y a une ligne de surlignée lors du débogage de l'erreur, quelle est cette ligne ?

@ bientôt

LouReeD

le pas a pas cesse après l'impression dû à cette ligne

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Mais aucune ligne n'est surligné en jaune.

J'ai trouvé!!!! Simplement en enlevant le .xls

Excel ne veux pas que je force l'extension de ficher faut croire. Mais bref je n'ai plus mon erreur et c'est l'important!

Merci

Bonjour,

merci pour ce retour qui peut servir à d'autre "demandeurs"

Bravo à vous d'avoir trouvé une solution !

@ bientôt

LouReeD

Rechercher des sujets similaires à "erreur execution 1004 definie application objet"