[VBA] Importation données dans un classeur Excel

Fermé
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")

Workbooks("HRA Etat Agent.xls").Activate

Rows("1:1").Insert
Rows("1:1").Insert
Rows("4:4").Insert

Columns("O:O").Select
Selection.Copy

Windows("Outil GPEC (en construction).xlsm").Activate

Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Workbooks("HRA Etat Agent.xls").Activate

Range("A:C,H:H").Select
Selection.Copy

Windows("Outil GPEC (en construction).xlsm").Activate

Columns("D:D").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Workbooks("HRA Etat Agent.xls").Activate

Range("I:J,AK:AK").Select
Selection.Copy

Windows("Outil GPEC (en construction).xlsm").Activate

Columns("I:I").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Workbooks("HRA Etat Agent.xls").Activate

Columns("U:W").Select
Selection.Copy

Windows("Outil GPEC (en construction).xlsm").Activate

Columns("L:L").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Workbooks("HRA Etat Agent.xls").Activate

Columns("AF:AH").Select
Selection.Copy

Windows("Outil GPEC (en construction).xlsm").Activate

Columns("P:P").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


'21.4 - Importation des données de HRA Condition Salariale

Workbooks.Open Application.GetOpenFilename("Extraction HRA Condition Salariale (*.xls), *.xls")

Workbooks("HRA Condition Salariale.xls").Activate

Sheets("Condition salariale").Select
Sheets("Condition salariale").Copy After:=Workbooks( _
"Outil GPEC (en construction).xlsm").Sheets(4)

Columns("A:F").Select
Selection.Delete Shift:=xlToLeft

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

End Sub


Merci pour votre soutien !
A voir également: