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 : 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
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