Bonjour,
Je vous explique le but de ma "mission" :

1) Je dois créer un bouton dans l’outil
2) Aller ouvrir un fichier déjà enregistré
3) Sélectionner certaines données dans le tableau du fichier que je viens d'ouvrir
4) Copier ces données dans un fichier X
5) Fermer le fichier que j'ai ouvert en 2)
6) Ouvrir un fichier similaire au 2) dans un dossier précis
7) Copier les lignes du fichier X sur celui-ci

J'espère que c'est assez clair, bref j'ai fais ce code :
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
Workbooks.Open ("I:\ddiv-diec-qualite\Qualite-Vie-Serie\Capitalisation\DELAI LUP QC\ListeQuotidienne_LUP_QC.xls")
'Effacer les données de l'onglet ListeQuestions
    Sheets("ListeQuestions").Select
    Rows("1:1").Select     '<--- C'est ici que j'ai un message d'erreur
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
 
'Ouvrir le fichier "Liste quotidienne Lup QC"
    Workbooks.Open Filename:= _
        "I:\ddiv-diec-qualite\Qualite-Vie-Serie\Capitalisation\SUIVI LUP\ListeQuotidienne_LUP_QC.xls"
    ActiveWindow.Visible = False
    Windows("ListeQuotidienne_LUP_QC.xls").Visible = True
 
'Trier colonne Direction et colonne Code source = Incidentologie
    Selection.AutoFilter Field:=6, Criteria1:=Array("DE-VD POLE AMERIQUES", "DE-VD POLE COREE", "DE-VD POLE FRANCE", "DE-VD POLE ROUMANIE", "DE-VE POLE AMERIQUES", "DE-VE POLE COREE", "DE-VE POLE FRANCE", "DE-VE POLE ROUMANIE"), Operator:=xlFilterValues
 
'Copier et coller les données dans le fichier "Entrées"
    Rows("6:6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("I:\ddiv-diec-qualite\Qualite-Vie-Serie\Capitalisation\DELAI LUP QC\Entrees_TdB_Delais_2013\ListeQuotidienne_LUP_QC.xls").Activate
    Sheets("DATA").Select
    Range("A4").Select
    ActiveSheet.Paste
 
'Fermer le fichier "Liste quotidienne Lup QC"
    Windows("ListeQuotidienne_LUP_QC.xls").Activate
    ActiveWorkbook.Close
 
 Sheets("ListeQuestions").Select
 
 Selection.AutoFilter Field:=6, Criteria1:=Array("DE-VD POLE AMERIQUES", "DE-VD POLE COREE", "DE-VD POLE FRANCE", "DE-VD POLE ROUMANIE", "DE-VE POLE AMERIQUES", "DE-VE POLE COREE", "DE-VE POLE FRANCE", "DE-VE POLE ROUMANIE"), Operator:=xlFilterValues
 
 
 
Selection.Copy
 
'Worksbooks.Open("D:\LocalData\a195267\Desktop\2ème mission\Copie.xls").Activate
 
Range("A1").Select
 
ActiveSheet.Paste
Message d'erreur :

Au plaisir de lire vos réponses !