Discussion :

[fuyo2004]

Bonjour à tous,

je souhaite, dans une macro, copier les données de 6 fichiers différents (ne comprenant qu'une feuille chacun) dans six feuilles de mon fichier actuel (regrouper six fichiers en un seul quoi).

J'ai donc créé une macro en effectuant manuellement les opérations, mais quand je veux la relancer ensuite j'ai le message d'erreur suivant :

"Erreur de compilation :
instruction incorrecte à l'extérieur d'une procédure"

qui me surligne la ligne :

Code :

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

1
2
Workbooks.Open Filename:= _
        "C:\Documents and Settings\mondoc1.xls"

A quoi cela est-il dû ?

Par ailleurs, avez-vous une méthode plus simple pour faire ce que je veux faire, c'est à dire regrouper 6 fichiers en un sans avoir à ouvrir les six fichiers (les six fichiers auront toujours le même nom et le même nombre de colonnes, par contre leur nombre de lignes est différent).

Merci d'avance.

[casefayere]

Bonjour,
à tout hasard, as-tu bien mis cette ligne dans ta procédure (question bête, mais on ne sait jamais), envoies plus de code pour voir plus clair.

[fuyo2004]

Voilà mon 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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
Sub importer()
'
' importer Macro
' Macro enregistrée le 06/04/2010 par Stephane
'
 
'
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\mondoc1.xls"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\mondoc2.xls"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\mondoc3.xls"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\mondoc4.xls"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\mondoc5.xls"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\mondoc6.xls"
 
    Windows("mondoc1.xls").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("analyse_resultats3.xls").Activate
    Range("A1").Select
    ActiveSheet.Paste
 
    Windows("mondoc2.xls").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("analyse_resultats3.xls").Activate
    Sheets("donnees2").Select
    Range("A1").Select
    ActiveSheet.Paste
 
    Windows("mondoc3.xls").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("analyse_resultats3.xls").Activate
    Sheets("donnees3").Select
    Range("A1").Select
    ActiveSheet.Paste
 
    Windows("mondoc4.xls").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("analyse_resultats3.xls").Activate
    Sheets("donnees4").Select
    Range("A1").Select
    ActiveSheet.Paste
 
    Windows("mondoc5.xls.xls").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("analyse_resultats3.xls").Activate
    Sheets("donnees5").Select
    Range("A1").Select
    ActiveSheet.Paste
 
    Windows("mondoc6.xls").Activate
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("analyse_resultats3.xls").Activate
    Sheets("donnees6").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

[casefayere]

Si tu as fait ton code manuellement, peut-être que le chemin indiqué est mauvais,
tu devrais faire un test par l'enregistreur de macro et voir si il stipule un chemin différent.
je suis sur ex2007 et vista, pour mes documents perso, exemple de chemin

Code :

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

C:\Users\Dominique\Documents.....

A voir .....sans garantie

[fuyo2004]

Non j'ai utilisé l'enregistreur de macro...

N'y a-t-il pas un moyen (sans l'enregistreur) d'importer mes données sans ouvrir le fichier ?

[casefayere]

Si, mais il faut passer par une connection, là c'est un peu plus de boulot, tu dois pouvoir trouver ton bonheur sur le site en cherchant un peu, beaucoup de discussions traitent de ce sujet, perso je ne l'ai pas encore fait, je préfère ouvrir, prendre mes données et fermer

bon courage