RechercheV entre 2 fichiers Excel

Version imprimable

Bonjour,
Je tente de réaliser une RechercheV entre 2 fichiers Excel ouverts, et je bloque sur le nom de la table matrice. Je ne parviens pas à nommer correctement le nom de la table (Plage_CI_G).

Code:

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
 
Sub RechercheV_2Fichiers()
 
Dim ws, wr As Workbook
Dim Dlign1 As Integer
Set ws = ThisWorkbook
Set wr = Workbooks("Indicateurs_redressement_national")
Dim Plage_CI_G As Range
 
'Déterminer la plage de la feuille CI G
With wr.Sheets("Taux de redres CI G S3C")
    Dlign1 = .Cells(.Rows.Count, 1).End(xlUp).Row
 
    Set Plage_CI_G = .Range("B6", .Range("O" & Dlign1)) 'ca ne met pas de nom à la zone sélectionnée
'ca affecte juste la zone sélectionnée à une variable nommée Plage_CI_G
End With
With Plage_CI_G
 
   .Name.Add Name:="Plage_CI_G", RefersToR1C1:=Plage_CI_G.Address 'Le code bloque à cet endroit
End With
 
'Et pour la RECHERCHEV :
 
    Sheets("Analyse S3C contrôle").Select 'feuille se trouvant sur le classeur ws
    Range("F18").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(R[-13]C[-2],Plage_CI_G,5,FALSE)"
 
 
End Sub

Merci par avance pour votre aide.

Eric

07/01/2021, 18h20
Philippe Tulliez
Bonjour,
Effectuer des calculs par liaison avec un ou plusieurs classeurs ouverts, n'est pas une très bonne idée.
Il est préférable de copier les tableaux qui servent aux calculs dans un seul classeur soit par VBA soit en utilisant PowerQuery

[EDIT]

Citation:

Je ne parviens pas à nommer correctement le nom de la table (Plage_CI_G).

L'origine de votre erreur vient du fait que vous utilisez la méthode Add sur un objet alors que ce devrait être la collection Names

Le code ci-dessous, non testé, irait mieux
Code:

1 2 3 With Plage_CI_G .Names.Add Name:="Plage_CI_G", RefersToR1C1:=Plage_CI_G.Address 'Le code bloque à cet endroit End With
[EDIT2]
Code testé
Ajout d'une plage nommée maPlage qui fait référence à la colonne nommée Ref d'un tableau structuré nommé t_maTable
Code:

1 2 3 With ThisWorkbook .Names.Add Name:="maPlage", RefersTo:=Range("t_maTable[Ref]") End With
07/01/2021, 18h51
Eric94360

Merci pour cette réponse. Mais j'ai toujours le même message d'erreur.

Évidemment, je pourrais rapatrier la feuille dans mon fichier. Mais j'ai cinq feuilles sources volumineuses dans lesquelles je dois puiser mes données. Et si je le fais, je vais obtenir un fichier trop lourd. De plus, je ne peux pas supprimer ces feuilles à l'issue de la RechercheV avec des copies valeur au préalable, car je dois pourvoir faire des recherches dynamiques par formulaires. La source ne peut donc être supprimée.

Cordialement,
Eric
07/01/2021, 18h54
Eric94360

Désolé, vous m'avez devancé : je n'avais pas vu votre Edit2 avec le code testé.
Je vais essayer et je vous tiens informé.

Eric
07/01/2021, 19h10
Eric94360
Et bien je ne parviens toujours pas à indique le fichier source :
Code:

1 2 3 4 With ThisWorkbook .Names.Add Name:="Plage_CI_G", RefersTo:=wr.Sheets("Taux de redres CI G S3C").Range("B6", Range("O" & Dlign1)) End With
Si je n'écris que le Range, j'obtiens bien le nom de ma plage, mais sur la plage de destination et non la source.

Eric
07/01/2021, 19h47
Philippe Tulliez

Bonjour,

Citation:

De plus, je ne peux pas supprimer ces feuilles à l'issue de la RechercheV avec des copies valeur au préalable, car je dois pourvoir faire des recherches dynamiques par formulaires. La source ne peut donc être supprimée.

Je n'ai jamais écrit qu'il fallait supprimer les feuilles sources.
Personnellement, je copie les plages (toujours des tableaux structurés) et ensuite je ferme le classeur source.

Citation:

Si je n'écris que le Range, j'obtiens bien le nom de ma plage, mais sur la plage de destination et non la source.

C'est logique, dans mon code, je fais référence au classeur où se trouve le code VBA.

Vous auriez intérêt à utiliser des tableaux structurés, bien plus simple à manipuler

Voici une formule placée dans un classeur A, utilisant la fonction RECHERCHEV qui fait référence à un tableau structuré nommé t_Personnel présent dans un classeur B nommé TimeSheet.xlsx

Code:

=RECHERCHEV([@Ref];'TimeSheet.xlsx'!t_Personnel[#Données];2;FAUX)

Ainsi, il n'y a aucune raison de créer une plage nommée. Il suffit simplement de copier la formule ci-dessus dans une cellule de la colonne d'un tableau structuré pour obtenir le résultat escompté

Je vous conseille vivement de vous intéresser à PowerQuery
Voir cette contribution de Pierre Fauconnier sur ce sujet [Power Query] Plage nommée Excel, fonctions personnalisées
08/01/2021, 08h34
Eric94360

Je me suis mal exprimé. Quand je parlais de suppression de la source, je ne désignais pas le fichier source, mais de la copie du tableau structuré, à la fin de la macro, pour ne pas alourdir mon fichier. Ce que je ne peux faire, car j'ai besoin de faire appel à des index, par listes déroulantes, afin de mettre à jour les champs qui s'y rapportent.

J'ai déjà essayé la RECHERCHEV directe, mais comme ma source évolue au fil du temps, le code doit donc être dynamique, d'où la désignation d'un champs "nom" évolutif dans le code.

J'ai regardé le lien que vous m'avez joint sur PowerQuery, mais je ne suis pas sûr d'y avoir accès avec ma version d'Excel (2013). Je ne peux la faire évoluer, car c'est celle de mon employeur.

Je vais donc revenir à votre premier conseil, qui est de copier par macro les tableaux sources dans mon fichier de destination en les structurant au maximum afin de ne pas trop alourdir l'ensemble. Et là je pourrai plus facilement créer mes liens.

Un grand merci pour vos conseils.
08/01/2021, 09h36
Philippe Tulliez
Bonjour,

Citation:

Je vais donc revenir à votre premier conseil, qui est de copier par macro les tableaux sources dans mon fichier de destination en les structurant au maximum afin de ne pas trop alourdir l'ensemble. Et là je pourrai plus facilement créer mes liens

Le faire avec des tableaux structurés est très simple.
Voir mon billet titré VBA pour Excel - Copier une table structurée sur une autre à l’aide de la méthode Copy

Pour rappel à lire éventuellement
- Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)
- Les tables de données en VBA
09/01/2021, 17h37
Pierre Fauconnier

Salut.

Merci Philippe pour les liens :plusser:

@Eric

Avec XL2013, tu pourrais aussi importer les tableaux par Power Query ;)