Discussion :

[kanabzh29]

Bonjour,

J'ai importé mon fichier Excel (fait a partir d'excel 2003) excel 2007, et lorsque je lance la macro, j'ai cette erreur :

Erreur d'exécution '1004
La méthode 'Range' de l'objet '_Global' a échoué.

voila la partie du code qui pause problème :

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
 
'Préparation des listes d'objets
Sheets("ACT").Select 'table_objets et table projets dans ACT
    Application.Goto Reference:="table_act"
        Selection.End(xlToRight).Offset(0, 2).Select
        ActiveCell.FormulaR1C1 = "CodeAct"
        ActiveWorkbook.Names.Add Name:="Extract", RefersToR1C1:=Selection
    Range("table_act").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("X1:X2"), CopyToRange:=Range("Extraction"), _
        Unique:=True
    Application.Goto Reference:="Extraction"
        ActiveCell.FormulaR1C1 = "CodeAct/CodeLot"
        ActiveCell.Offset(0, 2).FormulaR1C1 = "CodeAct/CodeLot"
        ActiveCell.Offset(0, 4).FormulaR1C1 = "CodeAct/CodeLot"
        ActiveCell.Offset(0, 6).FormulaR1C1 = "CodeAct/CodeLot"
        ActiveCell.Offset(1, 6).FormulaR1C1 = "P*"
        ActiveCell.Offset(0, 8).FormulaR1C1 = "DESC_GROUPE"

Si quelqu'un a une explication

[kanabzh29]

c'est bon j'ai trouvé

[laloune]

marrant ton petit jeu "trouvez la réponse que j'ai moi-même trouvée"

est-ce que ca vient de là ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Application.Goto Reference:="table_act"
        Selection.End(xlToRight).Offset(0, 2).Select
        ActiveCell.FormulaR1C1 = "CodeAct"
        ActiveWorkbook.Names.Add Name:="Extract", RefersToR1C1:=Selection
Range("table_act").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("X1:X2"), CopyToRange:=Range("Extraction"), _ '<= Cette ligne là
        Unique:=True

"Extraction" n'est pas définie, c'est "Extract" qui l'est...

j'ai bon ?

[kanabzh29]

Vi c'est bien cela. Merci quand même de ta réponse, il est vrai que j'aurais pu expliquer la résolution du pb