Discussion :

[isma616]

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

[jojo86]

J'ai une erreur sur cette ligne :

Range("Adresse").Value
Adresse correspond à quoi?

[isma616]

C'est une case nomée dans ma fiche

[jojo86]

Et que contient cette case?

[isma616]

L'adresse complète du fichier qui sera ouvert.

[mayekeul]

bonjour,

l'erreur se produit sur quelle ligne?

[Jean-Philippe André]

salut,
des l'instant que tu utilises un workbook et/ou un worksheet dans ton code, l'objet Range ne sait plus sur quelle feuille danser.
Aussi tu te dois de specifier le classeur (ThisWorkbook devrait faire l'affaire) et la feuille dans laquelle tu vas chercher la cellule.