Bonjour,

J'ai créé un classeur excel avec un bouton qui lorsque je clique dessus va récupérer des données dans un autre classeur excel.

j'obtiens ce message:

Erreur d'exécution '9' (L'indice n'appartient pas à la sélection)
Sur votre forum j'ai trouvé des personnes qui ont le même problème mais je n'ai malheureusement pas réussi à résoudre le mien. Voici mon code du bouton.

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
Sub MaJ_Data()
 
 
    Dim nom_fichier As String
    Dim WbkData As Workbook
 
 
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
 
 
    'chemin d'accès repertoire de la base de données
    ChDir "C:\Users\M.ES-SADQI\Desktop\Nouveau dossier\"
 
    'Recupération du nom du fichier de la base de données
    'le nom du fichier n'est pas statique
 
    nom_fichier = Application.GetOpenFilename("fichiers Excel (*.), *.")
 
    'Initialisation de la variable wbkData= => elle prend la valeur de classeur issu de la base de donnée
 
    Set WbkData = Workbooks.Open(nom_fichier)
 
    'Efface le contenu de la feuille a mettre a jour (DATA_BASE)
 
    ThisWorkbook.Activate
    Sheets("DATA_BASE").Select
    Range("A2:D34").Select
    Selection.ClearContents
    Range("A2").Select
 
    'Recupération du contenu de la nouvelle feuille excel
 
    WbkData.Activate
    Sheets("Test").Select
    Range("A2:D34").Select
    Selection.Copy ' copy des données du classeur data_base
 
 
    Windows("Rayonnage.xlsm").Activate
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
    WbkData.Close
 
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
 
 
 
End Sub