Recherchev + Indirect classeur fermé

Bonjour à tous,

La fonction INDIRECT ne fonctionne que si le classeur est ouvert.

Avez vous une macro disponible sous Excel 2010 (morefunc indisponible sur 2010) afin de résoudre ce problème?

Merci à tous pour votre aide car je ne trouve pas de solutions....

Bonjour,

MoreFunc est disponible sur Excel2010 :

après installation :

1. ouvrir fichier Excel
2. fichier
3. Option Excel
4. complément
5. voir si l'onglet gérer et bien sur ( complément excel )
6. choisir un complément d'application actif (n'importe lequel )
7. appuyer sur " atteindre "
8. dans la fenêtre macro complémentaire faire " parcourir "
9. là tu cherches le fichier "Morefunc" en principe dans =>C:/progame files/Morefunc
   tu dois voir 3 macros complémentaire, tu choisis en premier la macro nommé "Morefunc" => OK => elle doit apparaître maintenant dans la fenêtre => OK
   recommence l'opération pour les macros nommées "Morefunc11" et "Morefunc12"

@ + +

Rectification Morefunc est disponible mais on ne peut avoir les codes...ce qui est contraignant...

Quelqu'un a t il une macro disponible?

Merci de votre aide.

J'ai trouvé ce code mais il me renvoie #VALEUR!

Il est nécessaire d'active DAO aussi.

Option Explicit

Public Function XRECHERCHEV(ByVal valRecherchee As Variant, _
                            ByVal TabMatrice As Variant, _
                            ByVal colonneIndex As Integer)

If TypeName(TabMatrice) = "Range" Then
    XRECHERCHEV = Application.WorksheetFunction.VLookup(valRecherchee, _
                                                        TabMatrice, _
                                                        colonneIndex, _
                                                        True)
Else
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sRange As String
    Dim sSheet As String
    Dim sWbook As String
    Dim sFPath As String
    Dim sSQL   As String

    sRange = Replace(Split(TabMatrice, "!")(1), "$", vbNullString)
    sSheet = Split(Split(TabMatrice, "]")(1), "'")(0)
    sWbook = Split(Split(TabMatrice, "[")(1), "]")(0)
    sFPath = Mid(Split(TabMatrice, "[")(0), 2)

    valRecherchee = "'" & Replace(valRecherchee, "'", "''") & "'"

    sSQL = "SELECT [F" & colonneIndex & "] " & _
           "FROM [" & sSheet & "$" & sRange & "] " & _
           "WHERE [F1] = " & valRecherchee

    Set db = DAO.OpenDatabase(sFPath & sWbook, False, False, "Excel 8.0;HDR=NO;")
    Set rs = db.OpenRecordset(sSQL, DAO.dbOpenSnapshot)

    If rs.EOF And rs.BOF Then
        XRECHERCHEV = "no match"
    Else
        XRECHERCHEV = rs.Fields(0)
    End If
    Set rs = Nothing
    Set db = Nothing
End If

End Function

Un exemple d'utilisation dans la feuille de calcul:

FormuleSélectionnez

=XRECHERCHEV(A2;"'C:\Perso\[" & D2 & "]_Synthèse'!$A$2:$F$35";6)

Pour ma part,c'est le nom de la feuille qui est variable: exemple

=XRECHERCHEV(A2;"'C:\Perso\[juju][" & D2 & "]'!$A$2:$F$35";6)

J'ai déjà essayé avec le underscore avant ou après mais n'y rien fait, j'ai toujours l'erreur #VALEUR!

Est ce que quelqu'un a une idée? Merci beaucoup en tout cas.

Personne n'a une solution snif...

Bonjour,

C'est le début du nom de ton dossier [juju] ?

Si oui essaie sur un nom plus classique, peut-être que les doubles [...] [...] le perturbe.

Si non peut-être plutôt ça : "'C:\Perso\[juju" & D2 & "]'!...

Pour le reste, ne maîtrisant pas DAO je ne peux pas faire grand chose.

eric

Bonsoir,

On peut écrire la formule Recherchev() dynamiquement:

http://boisgontierjacques.free.fr/pages_site/recherchev.htm#RechvFerme

http://boisgontierjacques.free.fr/fichiers/Tableur/RechercheVClasseurFerme.xls

Ceuzin

Merci à vous deux.

Je vais creuser vos trouvailles et revient vers vous dès que j'ai plus d'info.

Bonne soirée

J'ai laissé tomber l'indirect et partie sur cette formule:

=SI(NB.SI(chemin à insérer,$A2)>0,RECHERCHEV($A2,'Chemin à insérer,4,0),SI(NB.SI(chemin à insérer,$A2)>0,RECHERCHEV($A2,'chemin à insérer,4,0),SI(NB.SI(chemin à insérer,$A2)>0,RECHERCHEV(chemin à insérer,4,0),"-")))

Mais j'ai le même problème, quand je mets à jour les données, j'obtiens l'erreur #VALEUR!.... Pour enlever ces erreurs je suis obligé d'ouvrir le classeur EXcel ou je puise ces données pour mettre à jour ce classeur et là tout fonctionne....

Dois je à chaque fois mettre à jour les autre classeurs Excel pour obtenir mes valeurs?

Ce n'est pas pratique si je dois à chaque fois ouvrir mes classeurs Excel ou je vais chercher les données...

Avez vous une solution?

Merci beaucoup

Bonsoir,

J'ai pu mettre des SI à la place des NB.SI. La formule est moins plaisante mais fonctionne classeur fermé.

Bonne soirée et merci au forum pour vos retours