Discussion :

[frolland46]

Je prépare un projet pour compiler des données provenant de plusieurs fichiers dans un seul. Lesdits fichiers ont des noms qui incluent l'année en cours i.e (saisie2008.xls vers compilation2008.xls). Je dois utiliser des variables pour prévoir les changements d'année.
Au transfert des données. je veux activer les fichiers avec leur nom en variable, mais je retouve une erreur 9 (L'indice n'appartient pas à la sélection).
La variable est bien définie (vérifié).
Est-ce une erreur de déclaration?

[fring]

Bonjour and ouelkom,

Le fournisseur de boules de cristal est en rupture de stock depuis quelques jours, montre ton code qu'on puisse se faire une idée, en indiquant la ligne qui fait couiner

[frolland46]

Voici mon code:

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
44
45
46
47
48
49
50
51
Sub Transfert()
Dim fichierC As String
Dim fichierST As String
Application.ScreenUpdating = False
'Composer les noms de fichier (B5=2008)
fichierC = Worksheets("Parametres").Range("B13").Value & "Compilation" & Worksheets("Parametres").Range("B5").Value & ".xls"
fichierST = Worksheets("Parametres").Range("B13").Value & "SaisieTemps" & Worksheets("Parametres").Range("B5").Value & ".xls"
Workbooks.Open Filename:=fichierC
Windows(fichierST).Activate
'positionne le curseur à la première ligne non compilée
Range("CompilT").Select
Do While ActiveCell.Value = "Oui"
    ActiveCell.Offset(1, 0).Select
Loop
 
Do While ActiveCell.Value = "Non"
    If ActiveCell.Offset(0, -5) = "" Then GoTo vide
' activer le fichier Compilation et placer le curseur à la ligne suivante
    Workbooks(fichierC).Worksheets("Temps").Activate
    Range("A10000").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
'Inscrire le nom de l'employé
    ActiveCell.FormulaR1C1 = Workbooks(fichierST).Worksheets("Parametres").Range("B9")
    ActiveCell.Offset(0, 1).Select 'positionne le curseur pour la prochaine donnée à coller
'copie les données d'une ligne dans le fichier Compilation
    Windows(fichierST).Activate
    Range(ActiveCell.Offset(0, -6), ActiveCell.Offset(0, -2)).Copy
    Windows(fichierC).Activate
    ActiveSheet.Paste
'copie le format de la ligne suivante
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 4)).Copy
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
     Windows(fichierST).Activate
     Application.CutCopyMode = False
  'inscrit que la ligne est compilée et se place à la ligne suivante
     ActiveCell.FormulaR1C1 = "Oui"
  ' Protège la ligne transférée
  Range(ActiveCell.Offset(0, -6), ActiveCell).Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveCell.Activate
vide:
     ActiveCell.Offset(1, 0).Select
Loop
 
  Workbooks(fichierC).Close SaveChanges:=True
 
End Sub

L'erreur se produit à la ligne:

Windows(fichierST).Activate

Si je remplace la variable par le nom du fichier, l'erreur se produit à une autre utilisation d'une des 2 variables