Walaboss
-
Modifié par Walaboss le 28/05/2015 à 16:11
Bonjour,
J'essaye d'importer des données de fichiers, mais pour faire simple ça ne veux pas fonctionner pour le deuxième fichier importé, il m'affiche "Erreur d'exécution '9' : L'indice n'appartient pas à la sélection", sans plus de détail et sans surligner une ligne de code à mettre en évidence pour l'origine du bug... Je vous transmet les lignes de codes effectuées pour cette importation :
'21 - MISE À JOUR DONNÉES --------------------------------------------------------------------------------------------------------------------------
Sub Conditions_initiales()
'21.1 - Séléction de la feuille de départ et dévérouillage
Windows("Outil GPEC (en construction).xlsm").Activate Sheets("GPE 5 ans").Select ActiveSheet.Unprotect "nutella37"
'21.2 - Suppression des données précédentes
Dim feuilles As Worksheet
For Each feuilles In Worksheets
If feuilles.Name <> "GPE 5 ans" And feuilles.Name <> "Matrice Secteur-Unité + Métiers" _ And feuilles.Name <> "Graphique GLOBAL + Unité" And feuilles.Name <> "Graphique par métier" Then
feuilles.Delete
End If
Next feuilles
'21.3 - Importation des données de HRA Etat Agent
Workbooks.Open Application.GetOpenFilename("Extraction HRA Etat Agent (*.xls), HRA Etat Agent.xls")
Dim Données_Pénibilité As Range Set Données_Pénibilité = Worksheets("Condition Salariale").Columns("A:AE").CurrentRegion ActiveWorkbook.Names.Add Name:="Données_Pénibilité", RefersTo:=Données_Pénibilité
'21.5 - Importation des données du Compteur CET
Workbooks.Open Application.GetOpenFilename("Extraction Compteur CET (*.xls*), *.xls*")
Workbooks("Compteur CET.xlsx").Activate
Sheets("Page1_1").Select Sheets("Page1_1").Copy After:=Workbooks("Outil GPEC (en construction).xlsm"). _ Sheets(5)
Dim Données_CET As Range Set Données_CET = Worksheets("Page1_1").Columns("A:BA").CurrentRegion ActiveWorkbook.Names.Add Name:="Données_CET", RefersTo:=Données_CET