Ouverture d'un fichier EXCEL grace au contenu d'une cellule

[Nico17]

Salut a tous! Voila une question reserver aux pros! Je vous explique :

J'ai la reference 0125FG present dans une cellule d'un fichier quelconque.
Ce que je souhaite faire, c'est cliquer sur cette reference et de ce fait ouvrir le fichier 0125FG.xls!!!

Es ce possible? D'avance merci a tous ceux qui pourront m'aider.

 

[yvon51]

bonjour

sélectionner cellule , menu insertion puis "liens hypertextes".

à plus tard
yvon

 

[Nico17]

Ce n'est pas si simple, car je ne connait pas les references a l'avance qui seront presentent dans les cellules!

Le fichier 0125FG est creer a partir du remplissage d'un formulaire! Les informations de ce formulaire sont aussi transmisent a un tableau recapitulatif dans un autre classeur.

Et c'est a partir de ce tableau qui s'incremente au fur et a mesure du temps que je souhaite en cliquant sur n'importe qu'elle reference ouvrir le fichier qui lui correspond!

J'espere que c comprehensible tout ca!

D'avance Merci si vous avez des sol au pb!

Merci qd meme Yvon51, je vais tout de meme essayer de voir si c pas possible de parametrer des liens Hypertext!

 

[Temjeh]

Bonjour Nicol7 et Yvon51

J'ai déja eu se prob comme avec cela que tu peut modifié avec un inputbox

Private Sub UserForm_Activate()
Dim Nom_Fichier
Nom_Fichier = Application.InputBox(prompt:="Entrez le nom du fichier")

'ton dossier ou se trouve tes fichiers XLS

ChDir "C:\Program Files\Factures 2004.1.1\Dossier quelconque"

If FileExists("C:\Program Files\Factures 2004.1.1\Factures\" & Nom_Fichier & ".xls") = False Then
MsgBox "Fichier Inexistant"
Else
Workbooks.Open FileName:= _
"C:\Program Files\Factures 2004.1.1\Factures\" & Nom_Fichier & ".xls"
End If
End Sub

A++
Temjeh

 

[Pascal76]

Bonjour

tiens voilà une solution à adapté à tes plages et à ton repertoire

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("A1:C1")) Is Nothing Then

  monfichier = Target.Value

  On Error GoTo erreur

  Workbooks.Open Filename:="C:\TEMP\" & monfichier & ".xls"

End If

Exit Sub

erreur:
MsgBox "Fichier Inexistant"

End Sub


Bon courage

Pascal

 

[Nico17]

Un grand merci a tous! Vive le forum!

 

[Nico17]

Un petit soucis avec ton code Temjeh! FileExists ne fonctionne pas!

Je narrive pas a resoudre ce probleme! Si tu peu mexpliquer!? Merci d'avance

 

[Arnaud]

salut,

tient va voir par ici pour le FileExists

http://www.excel-downloads.com/html/French/forum/messages/1_103633_103633.htm

 

[Nico17]

Merci pour le lien arnaud, mais je ne trouve toujours pas!! Quel galere!

Ca fait 2 heures que je tourne en rond et rien!

Je dois mettre quelques chose devant le FileExists?

 

[Arnaud]

et ben le post que je t donner montre comment l'utiliser le FileExists.
tu dois initialiser l'object ActiveX "FileSystemObject " et c ce que je montre dans le fil

 

[Temjeh]

Tu as raison mettre ceci dans un module:

Function FileExists(FileName As String) As Boolean
FileExists = Dir(FileName) <> ""
End Function

Sorry

 

[Nico17]

Merci a tous! Cela fonctionne maintenant! Vous etes vraiment des AS!