Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1465 connectés 

  FORUM HardWare.fr
  Windows & Software
  Logiciels

  Erreur d'éxécution '9' (L'indice n'appartient pas à la sélection)

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Erreur d'éxécution '9' (L'indice n'appartient pas à la sélection)

n°3351045
essadqii
essadqii
Posté le 22-08-2019 à 12:53:00  profilanswer
 

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
 
]

mood
Publicité
Posté le 22-08-2019 à 12:53:00  profilanswer
 

n°3351046
mbl
Posté le 22-08-2019 à 14:37:37  profilanswer
 

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


---------------
-3dB
n°3351047
fdaniel
Have you got a 27B/6 ?
Posté le 23-08-2019 à 11:15:56  profilanswer
 

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


---------------
Topic des restos / Topic des boutiques gastronomiques

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Logiciels

  Erreur d'éxécution '9' (L'indice n'appartient pas à la sélection)

 

Sujets relatifs
Sélection de fichiers multiple... (ou batch)[Résolu] Erreur 0x800f0830 Windows update W10
Fenetre d'erreur au démarrage[RESOLU] Comment fermer le CMD lors de l'exécution d'un .bat
Xbox Game Pass PC : erreur 0x80070005message d'erreur en boucle pour l'activation xp
Erreur lors de la restauration de windowsErreur Reconstructing Cache Metadata
W10 BSOD Erreur d'indexationerreur 0xc000000e
Plus de sujets relatifs à : Erreur d'éxécution '9' (L'indice n'appartient pas à la sélection)


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR