Bonjour à tous.

J'ai un fichier excel qui sert à automatiser des commandes qui a été crée par une personne qui ne travaille plus dans la structure.

J'ai donc une erreur 1004 que je n'arrive pas à résoudre, après avoir regardé les nombreux post sur cette erreur. Je ne suis absolument pas spécialiste en VBA... merci d'avance pour votre aide.

l'erreur vient de la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
travail = Sheets("Accusé Réception Cdes").Range("travail").Value
Voici le code en entier :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'Macro enregistrée le 05/03/01 par VERO
'Cette procédure enregistre l'Accusé réception Cdes et le reporte sur la feuille COMMANDES
'
Sub mise_jour()
    Dim i As Integer 'ligne du dernier enregistrement
    Dim z As Integer
 
    Sheets("COMMANDES").Select
    Cells(11, 1).Activate
    Columns(1).Find("", after:=ActiveCell).Activate
    i = ActiveCell.Row
    NDC = Cells(i - 1, 1).Value
    NDC = NDC + 1
        Cells(i, 1).Value = NDC
    Sheets("Accusé Réception Cdes").Select
    Range("NDC").Value = NDC + 1
 
 
    Sheets("COMMANDES").Select
    dateclt = Sheets("Accusé Réception Cdes").Range("dateclt").Value
    Name = Sheets("Accusé Réception Cdes").Range("société").Value
    nclt = Sheets("Accusé Réception Cdes").Range("nclt").Value
    travail = Sheets("Accusé Réception Cdes").Range("travail").Value
        Qté = Sheets("Accusé Réception Cdes").Range("Qté").Value
    délai = Sheets("Accusé Réception Cdes").Range("délai").Value
    Cells(i, 2).Value = dateclt
    Cells(i, 3).Value = Name
    Cells(i, 4).Value = travail
    Cells(i, 5).Value = nclt
    Cells(i, 6).Value = Qté
    Cells(i, 7).Value = délai
 
    Sheets("Accusé Réception Cdes").Select
 
End Sub