Bonjour,

J'ai créé une macro permettant de copier des formules dans des cellules à chaque fois que le nom d'un fichier à changé. Le nom de ce fichier s'affiche dans la case E1 (cf. code ci-dessous).
Cette macro marchait très bien jusqu'à présent mais cela fait quelques jours que mon collègue a une erreur d'exécution "1004" au moment où la macro exécute les formulalocal. Pourtant il a Excel 2007 tout comme moi et son PC est bien en Français pour les formules Excel.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nblig As Integer
Dim Statut, Etat, Client, Bureau, Raison, Code, Nombre, Planif, Previsite As Integer
 
  If Target.Address = "$E$1" Then
 
    If ValPrec <> Range("E1") Then
 
    Statut = ThisWorkbook.Worksheets("Param").Range("B6").Value
    Etat = ThisWorkbook.Worksheets("Param").Range("B7").Value
    Client = ThisWorkbook.Worksheets("Param").Range("B8").Value
    Bureau = ThisWorkbook.Worksheets("Param").Range("B9").Value
    Raison = ThisWorkbook.Worksheets("Param").Range("B10").Value
    Code = ThisWorkbook.Worksheets("Param").Range("B11").Value
    Nombre = ThisWorkbook.Worksheets("Param").Range("B12").Value
    Planif = ThisWorkbook.Worksheets("Param").Range("B13").Value
    Previsite = ThisWorkbook.Worksheets("Param").Range("B14").Value
    nblig = ThisWorkbook.Worksheets("PLANNING").Range("AD65000").End(xlUp).Row
 
    'Recherchev dernier état planif
    ThisWorkbook.Worksheets("PLANNING").Range("AE5").FormulaLocal = "=RECHERCHEV(AD5;'" & Lien & "[" & Fichier_source & "]Listing'!$A$2:$Zz$2700;" & Statut & ";faUX)"
    ThisWorkbook.Worksheets("PLANNING").Range("AE5").AutoFill Destination:=Range("AE5:AE" & nblig)
    'Recherchev dénier état demandé
    ThisWorkbook.Worksheets("PLANNING").Range("AF5").FormulaLocal = "=RECHERCHEV(AD5;'" & Lien & "[" & Fichier_source & "]Listing'!$A$2:$Zz$2700;" & Etat & ";faUX)"
    ThisWorkbook.Worksheets("PLANNING").Range("AF5").AutoFill Destination:=Range("AF5:Af" & nblig)
    'Recherchev n° code agence
    ThisWorkbook.Worksheets("PLANNING").Range("E5").FormulaLocal = "=RECHERCHEV(AD5;'" & Lien & "[" & Fichier_source & "]Listing'!$A$2:$AX$2700;" & Client & ";faUX)"
    ThisWorkbook.Worksheets("PLANNING").Range("E5").AutoFill Destination:=Range("E5:E" & nblig)
    'Recherchev n° bureau
    ThisWorkbook.Worksheets("PLANNING").Range("F5").FormulaLocal = "=RECHERCHEV(AD5;'" & Lien & "[" & Fichier_source & "]Listing'!$A$2:$zz$2700;" & Bureau & ";faUX)"
    ThisWorkbook.Worksheets("PLANNING").Range("F5").AutoFill Destination:=Range("F5:F" & nblig)
    'Recherchev raison sociale
    ThisWorkbook.Worksheets("PLANNING").Range("G5").FormulaLocal = "=RECHERCHEV(AD5;'" & Lien & "[" & Fichier_source & "]Listing'!$A$2:$zz$2700;" & Raison & ";faUX)"
    ThisWorkbook.Worksheets("PLANNING").Range("G5").AutoFill Destination:=Range("G5:G" & nblig)
    'Recherchev CP
    ThisWorkbook.Worksheets("PLANNING").Range("H5").FormulaLocal = "=RECHERCHEV(AD5;'" & Lien & "[" & Fichier_source & "]Listing'!$A$2:$zz$2700;" & Code & ";faUX)"
    ThisWorkbook.Worksheets("PLANNING").Range("H5").AutoFill Destination:=Range("H5:H" & nblig)
    'Recherchev NB BORNE
    ThisWorkbook.Worksheets("PLANNING").Range("I5").FormulaLocal = "=RECHERCHEV(AD5;'" & Lien & "[" & Fichier_source & "]Listing'!$A$2:$zz$2700;" & Nombre & ";faUX)"
    ThisWorkbook.Worksheets("PLANNING").Range("I5").AutoFill Destination:=Range("I5:I" & nblig)
    'Recherchev Date de planfication
    ThisWorkbook.Worksheets("PLANNING").Range("V5").FormulaLocal = "=RECHERCHEV(AD5;'" & Lien & "[" & Fichier_source & "]Listing'!$A$2:$zz$2700;" & Planif & ";faUX)"
    ThisWorkbook.Worksheets("PLANNING").Range("V5").AutoFill Destination:=Range("V5:V" & nblig)
    'Recherchev Date de prévisite
    ThisWorkbook.Worksheets("PLANNING").Range("AA5").FormulaLocal = "=RECHERCHEV(AD5;'" & Lien & "[" & Fichier_source & "]Listing'!$A$2:$zz$2700;" & Planif & ";faUX)"
    ThisWorkbook.Worksheets("PLANNING").Range("AA5").AutoFill Destination:=Range("AA5:AA" & nblig)
 
    End If
 
  End If
 
End Sub
Merci d'avance pour votre aide.

Angélique.