VBA RechercheV dans une feuille d'un autre Classeur Excel

Version imprimable

Bonjour à tous,

Voila je débute en VBA et je cherche désespérément à effectuer une rechercheV dans une feuille d'un autre classeur en utilisant une variable. Car le nom de mon classeur (exemple Probat1, Probat2...) peut varier mais pas la feuille (Prem's).

Mon code :

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 Probat()
 
    Columns("F:F").Select
    Selection.Find(What:="Total à périmètre comparable" & Chr(10) & "PLATRE" & Chr(10) & "CIMENT", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        lgfin1 = ActiveCell.Row - 1
        ActiveSheet.Cells(2, 10).Value = lgfin1
 
            Columns("F:F").Select
    Selection.Find(What:="Total GENERAL" & Chr(10) & "PLATRE" & Chr(10) & "CIMENT", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        lgfin2 = ActiveCell.Row - 4
        ActiveSheet.Cells(2, 10).Value = lgfin2  
 
For nbcell = 2 To lgfin1
 
    ActiveSheet.Cells(nbcell, 10).Formula = "=VLOOKUP(RC[-8],'[Probat]Prem''s'!C2:C8,7,FALSE)"
 
Next nbcell
 
For nbcell = lgfin1 + 4 To lgfin2
 
   ActiveSheet.Cells(nbcell, 10).Formula = "=VLOOKUP(RC[-8],'[Probat]Prem''s'!C2:C8,7,FALSE)"
 
Next nbcell
 
End Sub

Merci de votre précieuse :)

27/09/2017, 09h51
Menhir

La propriété Formula est de type String. On peut donc construire ce qu'on y envoie comme une simple chaine de caractères.
En supposant que le nom de ta feuille soit dans la variable MaFeuille :

Code:

ActiveSheet.Cells(nbcell, 10).Formula = "=VLOOKUP(RC[-8],'[Probat]" & MaFeuille & "'!C2:C8,7,FALSE)"

Edit : j'avais oublié un " dans mon code.
27/09/2017, 10h56
Feijjj

Bonjour Menhir,

Merci pour ta réponse. Je pense avoir compris ce que tu me dis :) et du coup j'apporte un peu plus de précision sur mon cas.

En claire, j'ai un fichier destination (la ou j'ai ma macro) et trois fichiers sources. Les libellé des fichiers sources est Probat1, Probat2 et Probat2 (Probat peut être la chaine de caractère à exploiter si j'ai bien compris) dans ces trois fichiers le nom des feuilles est différent Probat1 --> Prem's, Probat2 --> Batico et Probat3 --> Expco

Dans mon cas, je ne sais pas comment déclarer la variable (malgré des recherches sur différents forums). Si tu pouvais m'amener sur le chemin du code ça serait the Heaven ;) ?
27/09/2017, 11h10
Ben_L

Bonjour,

Citation:

Envoyé par Feijjj

le nom de mon classeur (exemple Probat1, Probat2...) peut varier mais pas la feuille (Prem's).

Citation:

Envoyé par Feijjj

dans ces trois fichiers le nom des feuilles est différent Probat1 --> Prem's, Probat2 --> Batico et Probat3 --> Expco

Tout ça ne semble pas très cohérent...

De plus, je me permets de corriger une coquille dans la ligne proposée par Menhir (il manquait un guillemet) :

Code:

ActiveSheet.Cells(nbcell, 10).Formula = "=VLOOKUP(RC[-8],'[Probat]" & MaFeuille & "'!C2:C8,7,FALSE)"
27/09/2017, 11h10
Pierre Fauconnier

Salut.

Perso, j'importerais les données dans mon classeur et je travaillerais en local. Ce serait beaucoup plus stable. Les liaisons entre classeurs au travers de formules, je n'ai jamais trouvé cela performant, stable, portable, bref... professionnel.
27/09/2017, 12h05
Menhir

Citation:

Envoyé par Feijjj

En claire, j'ai un fichier destination (la ou j'ai ma macro) et trois fichiers sources. Les libellé des fichiers sources est Probat1, Probat2 et Probat2 (Probat peut être la chaine de caractère à exploiter si j'ai bien compris) dans ces trois fichiers le nom des feuilles est différent Probat1 --> Prem's, Probat2 --> Batico et Probat3 --> Expco

Mettre une apostrophe dans un nom de feuille ou de fichier, c'est vraiment chercher les ennuis. :?
Commence par transformer ton Prem's en Prems.

Etant donné qu'il n'y a qu'un seul nom de feuille est associé à chaque nom de fichier, je ne comprends pas pourquoi tu as besoin d'une variable.

A moins que ton problème soit la détermination du nom de fichier, mais dans ce cas tes explications sont insuffisantes.

Citation:

Dans mon cas, je ne sais pas comment déclarer la variable (malgré des recherches sur différents forums).

Comme n'importe quelle déclaration de variable : avec un Dim.

Code:

Dim MaFeuille As String