Discussion :

[geraldmasteau]

Bonjour,

J'ai une base de données avec des cellules qui vont rechercher dans d'autres classeurs Excel des données, de ce côté pas de problème.

Formule simple de la cellule :

Code :

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

='N:\IMMOBILIER RESIDENTIEL\LOGEMENTS COLLECTIFS\[001.XLS]IDENTIFICATION IMMEUBLE'!$C$8

Les classeurs sont tous désignés par le numéro (001, 002, ..., etc.)

J'ai 500 fichiers et donc 500 lignes environ, et au lieu ligne après ligne de changer le numéro dans la formule ci-dessus pour qu'il aille chercher le classeur 02 etc..., existe t-il une fonction ou un code qui permet de remplacer le 001 dans la formule ci-dessus par la valeur inscrit dans la cellule de la première colonne ?

Remarque : dans la base de données, la 1ère colonne correspond à l'identifiant numéraire de 001 à 500 par exemple.

Suis-je clair ? (pas facile à expliquer)

Merci d'avance
Gerald

[decondelite]

Je te propose une minuscule macro VBA qui te le fera:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Remplir_cellules()
    Dim i As Integer, numero As String
    For i = 1 To 500
        numero = i
        While Len(numero) < 3
            numero = "0" & numero
        Wend
        ThisWorkbook.Worksheets(1).Range("A" & i).Value = _
        "='N:\IMMOBILIER RESIDENTIEL\LOGEMENTS COLLECTIFS\[" & numero & _
        ".XLS]IDENTIFICATION IMMEUBLE'!$C$8"
    Next
End Sub

Tu l'exécutes une fois et voilà c'est fait. Ceci dit, cela te le fait de A1 jusqu'à A500: tu risque d'avoir besoin d'adapter.

[geraldmasteau]

Merci beaucoup de votre réponse rapide.

J'ai essayé et adapter et çà marche!

Par contre, j'ai encore besoin de vos compétences puisque qu'il faudrait améliorer encore.

Je vous explique:

le compteur i est une bonne idée, par contre les fichiers comporte des trous et ne suivent pas au n+1 tout le temps.

Exemple 301, 302, 306, 308, 309 etc... du coup il me demande le chemin, ca c'est pas grave...

Je n'avais pas trop compliqué au départ, mais il y a aussi des fichiers qui se nomment L01, L02 etc

Dans ce fameux tableau de synthèse est référencé en première colonne le numéro de désignation correspondant au nom du fichier Excel à rappeller.

Comment faire pour lui dire:
- ligne après ligne, va chercher dans la colonne B (sur la même ligne), le numéro de référence, qui correspondra au nom du fichier à aller chercher??


N:\\Immobilier Résidentiel\Logements individuels\[" référence de la colonne B" sur la même ligne.XLS]Identification immeuble'!$D$14"

Merci d'avance ca me depanne trop

[deuxmains]

bonjour geraldmasteau,

C'est une bonne idée ce référencement des classeur dans une partie du classeur de synthèse cela permet de "simplifier" le code car on peut alors se passer de la varable numéro

ci-dessous une réadaptation du code doné par decondelite

Code :

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

1
2
3
4
5
6
7
8
9
Sub Remplir_cellules()
    Dim i As Integer
    For i = 1 To 500
        'la boucle donée précédemment n'est plus nécessaire de meme que le compteur
                ThisWorkbook.Worksheets(1).Range("A" & i).Value = _
        "='N:\IMMOBILIER RESIDENTIEL\LOGEMENTS COLLECTIFS\[" & Range("B" & i) & _
        ".XLS]IDENTIFICATION IMMEUBLE'!$C$8"
    Next
End Sub

voila