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'éxécution '9' (L'indice n'appartient pas à la sélection)
 
Code :
 
[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
 
]

Tu devrais poster dans la bonne section et vérifier que tu es bien GDPR compliant.  
 

Ce sujet a été déplacé de la catégorie Discussions vers la categorie Windows & Software par Fdaniel