Je n'arrive pas à exécuter ma macro

Version imprimable

Bonjour,

Je suis débutante en macro excel.
Je n'arrive pas à exécuter ma macro.
L'"erreur d'exécution 9: l'indice n'appartient pas à la sélection"
Je ne comprends pas pourquoi...
Merci beaucoup de votre aide.

Code:

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
86
87
88
89
Sub creaVilles_liste()
 
    'fichiers et onglet macro
    fichierMacroCrea = "Macro.xls"
    ongletmacro = "feuille1"
 
    'fichiers et onglet source
    fichiersource = "fichier1.xls"
    ongletsce = "feuille2"
 
 
    'adresse du dossier destination:
    dossierDest = "\\a\b\c\dossier\"
    nomFichDest = "fichier ville"
 
 
    Windows(fichiersource).Activate
    Sheets(ongletsce).Select
 
    Windows(fichierMacroCrea).Activate
    Sheets(ongletmacro).Activate
 
    Dim X As Integer
    Dim Texte1 As String
'    Dim Texte2 As String
 
    X = 3
 
    Texte1 = Range("E" & X)
'    Texte2 = Range("D" & X)
 
    Windows(fichiersource).Activate
 
    While (X <> 43)
 
'    While (X <> 43)
 
    Windows(fichiersource).Activate
    Sheets(ongletsce).Select
 
'vérifier que le champ sélectionné est bien
    Selection.AutoFilter Field:=22, Criteria1:="=*" & Texte1 & "*", Operator:=xlAnd
 
'    Cells.Select
'    Selection.Copy
'
'    Workbooks.Add
'    ActiveSheet.Paste
'
    Cells.Select
    Range("H1").Activate
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
'mise en forme allégée
    Columns("D:D").Select
    Selection.NumberFormat = "000000000000000"
    Columns("N:N").Select
    Selection.NumberFormat = "0000000000000"
    Columns("L:L").Select
    Selection.NumberFormat = "m/d/yyyy"
    Columns("E:E").Select
    Selection.NumberFormat = "m/d/yyyy"
    Columns("O:P").Select
    Selection.NumberFormat = "m/d/yyyy"
 
    Range("A1").Select
'    ActiveWorkbook.Save
    ActiveWorkbook.SaveAs Filename:= _
        dossierDest & nomFichDest _
        & Texte1 & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
 
    Windows(fichierMacroCrea).Activate
    Sheets(ongletmacro).Activate
 
 
    X = X + 1
    Texte1 = Range("E" & X)
'    Texte2 = Range("D" & X)
 
    Wend
 
 
End Sub

Imposible de répondre directement, ça peut être à pas mal d'endroits différents.

Pour d'abord trouver la ligne qui pose problème, ils te faut utiliser le mode pas-à-pas, comme décrit dans cet excellent didacticiel : mets un point d'arrêt au début de ton code, descends tout avec [F8], et tu verras ou est l'erreur.

Sinon, ton code est optimisable. Par exemple
Code:

1 2 3 4 5 6 7 8 9 10 Columns("D:D").Select Selection.NumberFormat = "000000000000000" Columns("N:N").Select Selection.NumberFormat = "0000000000000" Columns("L:L").Select Selection.NumberFormat = "m/d/yyyy" Columns("E:E").Select Selection.NumberFormat = "m/d/yyyy" Columns("O:P").Select Selection.NumberFormat = "m/d/yyyy"
s'écrira plus proprement(et rapidement à l'execution)
Code:

1 2 3 4 5 Columns("D:D").NumberFormat = "000000000000000" Columns("N:N").NumberFormat = "0000000000000" Columns("L:L").NumberFormat = "m/d/yyyy" Columns("E:E").NumberFormat = "m/d/yyyy" Columns("O:P").NumberFormat = "m/d/yyyy"

23/01/2013, 17h16
melissa88

Merci de ta réponse.
En effet, j'avais fermé le fichier source, c'est ça qui fait que ça n'a pas marché... ( Je débute pour de vrai! rire)

Parcontre, je rencontre une autre difficulté.

Cette macro crée un fichier par ville ( colonne 22) et moi je voudrais la modifier pour quelle crée des fichiers par départements (colonne 18).

Je ne comprend pas ce code alors j'ai tenté vraiment beaucoup de choses en vain...

Est ce que quelqu'un y voit plus claire?
J'aimerais au moins comprendre les lignes suivantes:

Code:

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
 Dim X As Integer
    Dim Texte1 As String
 
    X = 3
 
    Texte1 = Range("E" & X)
'    Texte2 = Range("D" & X)
 
    Windows(fichiersource).Activate
 
    While (X <> 43)
 
'    While (X <> 43)
 
    Windows(fichiersource).Activate
    Sheets(ongletsce).Select
 
'vérifier que le champ sélectionné est bien
    Selection.AutoFilter Field:=18, Criteria1:="=*" & Texte1 & "*", Operator:=xlAnd
 
'    Cells.Select
'    Selection.Copy
'
'    Workbooks.Add
'    ActiveSheet.Paste
'
    Cells.Select
    Range("H1").Activate
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
'mise en forme allégée
    Columns("D:D").Select
    Selection.NumberFormat = "000000000000000"
    Columns("N:N").Select
    Selection.NumberFormat = "0000000000000"
    Columns("L:L").Select
    Selection.NumberFormat = "m/d/yyyy"
    Columns("E:E").Select
    Selection.NumberFormat = "m/d/yyyy"
    Columns("O:P").Select
    Selection.NumberFormat = "m/d/yyyy"
 
    Range("A1").Select
'    ActiveWorkbook.Save
    ActiveWorkbook.SaveAs Filename:= _
        dossierDest & nomFichDest _
        & Texte1 & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 
 
    Windows(fichierMacroCrea).Activate
    Sheets(ongletmacro).Activate
 
 
    X = X + 1
    Texte1 = Range("E" & X)

Merci d'avance.