Discussion :

[Eric94360]

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 :

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
 
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

[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]

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 :

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

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 :

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

1
2
3
  With ThisWorkbook
  .Names.Add Name:="maPlage", RefersTo:=Range("t_maTable[Ref]")
  End With

[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

[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

[Eric94360]

Et bien je ne parviens toujours pas à indique le fichier source :

Code :

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

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

[Philippe Tulliez]

Bonjour,

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.

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 formule :

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

=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

[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.

[Philippe Tulliez]

Bonjour,

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

[Pierre Fauconnier]

Salut.

Merci Philippe pour les liens



@Eric

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