bonjour je me suis servie du totu “Modèle de facture avec incrémentation automatique du numéro - Docteur Excel” pour mon document mais cela ne fonctionne pas.
voici mon code :
Sub archiver_et_nouveau_formulaire()
ligne = Sheets(“Historique_formulaire”).Range(“A4”).End(xlDown).Row + 1
Sheets(“Historique_formulaire”).Range(“A” & ligne).Value = Sheets(“Formulaire”).Range(“C2”).Value
Sheets(“Historique_formulaire”).Range(“B” & ligne).Value = Sheets(“Formulaire”).Range(“E4:F4”).Value
Sheets(“Historique_formulaire”).Range(“C” & ligne).Value = Sheets(“Formulaire”).Range(“I4:L4”).Value
Sheets(“Historique_formulaire”).Range(“D” & ligne).Value = Sheets(“Formulaire”).Range(“E5:F5”).Value
Sheets(“Historique_formulaire”).Range(“E” & ligne).Value = Sheets(“Formulaire”).Range(“I5:L5”).Value
Sheets(“Historique_formulaire”).Range(“F” & ligne).Value = Sheets(“Formulaire”).Range(“E6:F6”).Value
Sheets(“Historique_formulaire”).Range(“G” & ligne).Value = Sheets(“Formulaire”).Range(“I6:L6”).Value
Sheets(“Historique_formulaire”).Range(“H” & ligne).Value = Sheets(“Formulaire”).Range(“I7:L7”).Value
Sheets(“Historique_formulaire”).Range(“I” & ligne).Value = Sheets(“Formulaire”).Range(“E7:F7”).Value
Sheets(“Historique_formulaire”).Range(“J” & ligne).Value = Sheets(“Formulaire”).Range(“E8”).Value
Sheets(“Historique_formulaire”).Range(“K” & ligne).Value = Sheets(“Formulaire”).Range(“J8:L8”).Value
Sheets(“Historique_formulaire”).Range(“L” & ligne).Value = Sheets(“Formulaire”).Range(“L13:M13”).Value
Sheets(“Historique_formulaire”).Range(“M” & ligne).Value = Sheets(“Formulaire”).Range(“L15:M15”).Value
Sheets(“Historique_formulaire”).Range(“N” & ligne).Value = Sheets(“Formulaire”).Range(“L19:M19”).Value
Sheets(“Historique_formulaire”).Range(“O” & ligne).Value = Sheets(“Formulaire”).Range(“L22:M22”).Value
Sheets(“Historique_formulaire”).Range(“P” & ligne).Value = Sheets(“Formulaire”).Range(“L37:M37”).Value
Sheets(“Historique_formulaire”).Range(“Q” & ligne).Value = Sheets(“Formulaire”).Range(“L39:M39”).Value
Sheets(“Historique_formulaire”).Range(“R” & ligne).Value = Sheets(“Formulaire”).Range(“L43:M43”).Value
Sheets(“Historique_formulaire”).Range(“S” & ligne).Value = Sheets(“Formulaire”).Range(“L45:M45”).Value
Sheets(“Historique_formulaire”).Range(“U” & ligne).Value = Sheets(“Formulaire”).Range(“E48:H48”).Value
Sheets(“Historique_formulaire”).Range(“V” & ligne).Value = Sheets(“Formulaire”).Range(“E51:H51”).Value
Sheets(“Formulaire”).Range(“E13:E15”).ClearContents
Sheets(“Formulaire”).Range(“E19:E33”).ClearContents
Sheets(“Formulaire”).Range(“E37”).ClearContents
Sheets(“Formulaire”).Range(“E43”).ClearContents
Sheets(“Formulaire”).Range(“G13:G15”).ClearContents
Sheets(“Formulaire”).Range(“G19:G33”).ClearContents
Sheets(“Formulaire”).Range(“G37”).ClearContents
Sheets(“Formulaire”).Range(“G43”).ClearContents
Sheets(“Formulaire”).Range(“C2”).Value = Sheets(“Formulaire”).Range(“C2”).Value + 1
End Sub
uand j essaie de le lancer j’ai un message “erreur execution 1004
erreur definie par l"application ou par l’objet”
pouvez vous m’aider?