Problème de fonction via GetOpenFileName

[OOLIVE]

Bonjour à tous,

Je viens vous voir afin de résoudre mon problème..

Voilà, j'aimerais que lorsqu'on double clique sur une cellule (à verouiller par la suite), le programme applique une recherchev dans le fichier ouvert via GetOpenFileName et qu'il inscrit le résultat de la recherche dans le cellule active (là où on a cliqué).

Le problème ici est que dans mon code, j'ai introduit une variable permettant d'identifier le nom du fichier mais celui me demande d'ouvrir en permanence le fichier. Il faut que je clique sur Annuler pour voir le fichier apparaitre.. Des idées ?

Le code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


' Sélection du classeur source à partir d'une fenêtre
cheminfichier = Application.GetOpenFilename("Fichiers Excels (*.xl*), *.xl*")

' Si on clique sur Annuler dans la fenêtre, on sort de la boucle
If cheminfichier = False Then
Exit Sub

End If
'Ouverture du classeur source
Workbooks.Open cheminfichier
nom = ActiveWorkbook.Name

'Sélection du nombre de jours passés par le consultant sur la mission
'ActiveCell.Select
Workbooks("Facturation.xlsm").Activate
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R16C3,[nom]Timesheet!R5C2:R47C3,2,FALSE)"
ActiveCell.Select

Workbooks(nom).Close False

End Sub

Merci à vous !

 

[Pierrot93]

Re : Problème de fonction via GetOpenFileName

Bonjour,

pas de souci chez moi avec exécution de ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

' Sélection du classeur source à partir d'une fenêtre
cheminfichier = Application.GetOpenFilename("Fichiers Excels (*.xl*), *.xl*")

' Si on clique sur Annuler dans la fenêtre, on sort de la boucle
If cheminfichier = False Then
Exit Sub

End If
'Ouverture du classeur source
Workbooks.Open cheminfichier
nom = ActiveWorkbook.Name
End Sub

bon après midi
@+

 

[Yaloo]

Re : Problème de fonction via GetOpenFileName

Bonjour OOLIVE,

Avec cette ligne

ActiveCell.Formula = _
"=VLOOKUP(R16C3,'[" & nom & "]Timesheet'!R5C2:R47C3,2,FALSE)"

Pas testé car pas de fichier, mais ça devrait se rapprocher de la solution.

A te relire

Martial

 

[Yaloo]

Re : Problème de fonction via GetOpenFileName

Salut Pierrot,

OOLIVE a le problème lorsqu'il copie sa formule avec la recherche.

A+

 

[Pierrot93]

Re : Problème de fonction via GetOpenFileName

Re, bonjour Yaloo

OOLIVE a le problème lorsqu'il copie sa formule avec la recherche.

oui, pas été jusqu'à là.. moi...

 

[OOLIVE]

Re : Problème de fonction via GetOpenFileName

Merci pour vos retours..

Avec la solution de Yaloo, je règle une partie du problème ("=VLOOKUP(R16C3,'[" & nom & "]Timesheet'!R5C2:R47C3,2,FALSE)

Maintenant, savez-vous comment faire pour que le résultat apparaisse directement et non pas la fonction (il faut appuyer sur Entrée pour valider la formule)?

Merci

 

[Pierrot93]

Re : Problème de fonction via GetOpenFileName

Re,

essaye peut être avec un :

Cancel = True

sinon regarde aussi du coté de :

Application.Calculate

 

[OOLIVE]

Re : Problème de fonction via GetOpenFileName

Tout simplement, merci 🙂

Je vous souhaite une excellente après midi