Bonjour,

Je me permets de vous solliciter car je n'arrive pas à bidouiller mon code correctement:

Pour faire simple, j'ai une base de données qui doit être informée avec des valeurs situées dans des fichiers excel distincts.

J'ai bidouillé le code suivant mais j'ai une erreur " Erreur exécution'9': L'indice n'appartient pas à la sélection"

Je pense que ma définition de la variable "FichierB" n'est pas correcte mais je trouve pas pourquoi et comment je dois la définir.

Y aurait-il parmi vous une bonne âme pour m'éclairer?

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
Sub Copie_valeurs_fiches()
 
'Déclaration variabée
 
Dim Nomfichier1 As Variant, Nomclasseur As Variant
 
Dim wkA As Workbook, wkB As Workbook
 
Dim FichierA As String, FichierB As String
 
Dim Numcell As Integer
 
'Boucle
 
Numcell = 2
 
While Numcell <= 524
 
    'Ouverture fichier
 
    Nomfichier1 = Range("L" & Numcell).Value
 
    Workbooks.Open "Y:\TEMPORAIRE\CEDRIC\0_AFFAIRES\TPG\15-xxx TPG_En Chardon\0_BATEC\1_Locaux\2_VERSION_7 - Export info fiches\1_Fiches\" & Nomfichier1 & ".xls"
 
    'Définition des fichiers
 
    FichierA = "Liste Locaux_v6_26.09.16.xlsm"
    FichierB = "& " & Nomfichier1 & ".xls" & ""
 
    Set wkA = Workbooks(FichierA)
    Set wkB = Workbooks(FichierB)
 
    'Copie valeur fiche dans base donnée
 
            With wkA.Sheets("BASE DONNEES")
            .Range("O & numcell & ").Value = wkB.Sheets("Feuil1").Range("c9").Value
            End With
 
Numcell = Numcell + 1
 
Wend
 
End Sub