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