Discussion :

[weed]

Hello tout le monde,

J'ai pour projet de me créer une macro VBA me permettant de fusionner 1 ou plusieurs fichiers Excel dans un unique fichier Excel.
La structure est identique.

L'algorithme n'est pas du tout optimum mais c'est un début :
1./ j'active le classeur source
2./ je sélectionne la première cellule B (paramétrable dans param(0, 0) ) et je fais comme si je fais Ctrl + Touche du Bas
3./ je copie

4./ j'active le classeur cible (paramètre fchierCible)
5./ je sélectionne la première cellule de la colonne B (paramètrable dans param(0, 1) )
6./ je me rends à la dernière cellule comme si je fais un Ctrl + touche du bas
7./ je descends d'une cellule
8./ et je colle

Ainsi je souhaite mes données les uns à la suite de l'autre dans mon fichier cible, c'est pourquoi je fais fais toute cette manip.
Quand le fichie cible, était le fichier courant contenant la macro, cela fonctionnait bien.

Maintenant, je souhaiterais éviter de communiquer des fichiers avec des macros. Je souhaiterais donc que mon fichier copie des données dans un classeur ouvert et les colle dans un autre classeur cible ouvert.



Voici ce que j'ai fait :

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Sub ConcatBoucleExt()
'
' CopieAutreSheet Macro
'
 
'
 
    'Colonne a copier
    Dim colonneSrc As String, colonneCible As String
    'Dim param(1, 2) As String
    Dim param(0, 2) As String
    Dim i As Integer
    param(0, 0) = "B" 'colonne source
    param(0, 1) = "B" 'colonne cible
    param(0, 2) = "source.xlsx" 'fichier source
 
    'param(1, 0) = "C" 'colonne source
    'param(1, 1) = "D" 'colonne cible
    'param(1, 2) = "source.xlsx" 'fichier source
 
    'param(1, 0) = "C" 'colonne source
    'param(1, 1) = "A" 'colonne cible
    'param(1, 2) = "source.xlsx" 'fichier source
 
    Dim fichierCible As String
    fichierCible = "cible.xlsx"
 
    ' Varaible objet d'un classeur
    Dim WB_Principal As Workbook
    ' Instanciation de la variable pour connaître le classeur actif
    Set WB_Principal = ActiveWorkbook
 
 
    ' on boucle jusqua la limite superieur de la dimension 1
    For i = 0 To UBound(param, 1)
 
        colonneSrc = param(i, 0)
        colonneCible = param(i, 1)
        fchierSrc = param(i, 2)
 
 
        Workbooks(fchierSrc).Activate
        Sheets("Sheet1").Select
 
        ' calcul du nombre de ligne à copier en se basant la premiere colonne
        Dim nbLigne As Integer
        nbLigne = Range("A" & Rows.Count).End(xlUp).Row
        ' on selectionne la colonne a copier
        Range(colonneSrc & "1", colonneSrc & nbLigne).Select
        Selection.Copy
 
        ' on reactive le classeur par defaut
         ' AVEC le classeur courant cela marche
         '   WB_Principal.Activate
 
        ' mais avec le classeur DISTANT, non
            Workbooks(fchierCible).Activate
 
 
        'on la colle dans le classeur
         Workbooks(fchierCible).Sheets("Sheet1").Select
        ' mais pas sur la premiere ligne, on va a la derniere
        Range(colonneCible & "1").End(xlDown).Select
        ' et on se positionne a la ligne suivante pour coller
        'ActiveCell.Offset(1, 0).Select
        ActiveSheet.Paste
    Next
End Sub

Malheureusement j'ai à chaque fois l'erreur :
Erreur d'execution '9'
"L'indice n'appartient pas à la section"


Lorsque je clique sur Debuggage, je tombe sur la ligne de sourligné avec : Workbooks(fchierCible).Activate

J’espère avoir été suffisamment claire parce que ce n'est pas souvent aidé de comprendre les différents problèmes.

[parmi]

Bonjour,

Es-tu certain que le fichier cible.xlsx est bien ouvert ?

[joe.levrai]

Bonjour,

moi je suis certain que ta variable utilisée dans l'activation du classeur est une chaine vide.

pourquoi ?

voici ta déclaration de variable et son affectation de valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim fichierCible As String
fichierCible = "cible.xlsx"

et ton utilisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks(fchierCible).Activate
Workbooks(fchierCible).Sheets("Sheet1").Select

tu vois le problème ?

Indice : ne pas mettre les "point" sur les "i", c'est courir à sa perte par incompréhension

[OBO29]

Bonsoir,

Personnellement, pour éviter les erreurs de frappes sur mes variables, je les déclare avec une majuscule.
Ensuite, lors de la frappe, je n'utilise que les minuscules. Si il n'y a pas d'erreur, alors le compilateur place automatiquement la majuscule.
ça m'a permis d'éviter pas mal de perte de temps.

A+

[weed]

C'était bien cela. Grhhh je n'avais pas tout faut dans mon cheminement.

Merci beaucoup pour ce coup d'oeil. Grhh

OBO29,e je n'ai pas l'habitude de mettre une majuscule pour une variable, je trouve cela bizzare.
Pour moi, une variable en minuscule et les constantes en majuscule mais cela dit je vais déroger à cette règle et je vais utiliser cette technique.