Bonjour,

Voila j'ai une erreur 1004 donc je ne trouve pas la cause malgrès mes recherchent précédentes sur internet.

Si quelqu'un pourait m'expliquer ce qui ne joue pas ça m'aidrait beaucoup.

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
Sub AjoutSaisie()
 
'Gestion d'erreur
'On Error GoTo errorHandler
 
    'Vérifie que le classeur existe
 
    Dim WB_Path As String
    WB_Path = Range("Adresse").Value
 
    Dim WB_Curent As String
    WB_Curent = ActiveWorkbook.Name
 
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
 
    If Not (fs.FileExists(WB_Path)) Then
        Exit Sub
    End If
 
    Dim WB As Workbook
    Set WB = GetObject(WB_Path)
    Windows(WB.Name).Visible = True
 
    'Ajoute une ligne à la base de donnée
    Workbooks(WB_Curent).Sheets("DataBase").Activate
    Workbooks(WB_Curent).Sheets("DataBase").Select
    Workbooks(WB_Curent).Sheets("DataBase").Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 
    'Récupère les informations du classeur indiquer
    Workbooks(WB_Curent).Sheets("DataBase").Activate
    Workbooks(WB_Curent).Sheets("DataBase").Select
    'l erreur se déclanche sur la ligne suivante
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("A2").Value = WB.Sheets("feuil1").Ranges("NumeroQualiac").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("B2").Value = WB.Sheets("feuil1").Ranges("NumeroFournisseur").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("C2").Value = WB.Sheets("feuil1").Ranges("NomAcheur").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("D2").Value = WB.Sheets("feuil1").Ranges("B11").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("E2").Value = WB.Sheets("feuil1").Ranges("PeriodeEvaluee").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("F2").Value = WB.Sheets("feuil1").Ranges("E15").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("G2").Value = WB.Sheets("feuil1").Ranges("Categorie").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("H2").Value = WB.Sheets("feuil1").Ranges("TotalRelationComerciales").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("I2").Value = WB.Sheets("feuil1").Ranges("TotalPolitiqueDePrix").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("J2").Value = WB.Sheets("feuil1").Ranges("TotalOffre").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("K2").Value = WB.Sheets("feuil1").Ranges("TotalProduitPrestation").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("L2").Value = WB.Sheets("feuil1").Ranges("TotalLivraison").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("M2").Value = WB.Sheets("feuil1").Ranges("TotalFacturation").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("N2").Value = WB.Sheets("feuil1").Ranges("TotalSAV").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("O2").Value = WB.Sheets("feuil1").Ranges("Resultat").Value
    Workbooks(WB_Curent).Sheets("DataBase").Ranges("P2").Value = WB.Sheets("feuil2").Ranges("TESTCLIENT").Value
Merci d'avance