Texte Cellule ouvre un fichier

Résolu
lanxade Messages postés 32 Statut Membre -  
 katimini -
Bonjour à Tous,
Soient :
Un user form1
Un classeur ouvert : Gestion
Sheets("Bon").Range("a8").Select
Contenu de la cellule a8 = toto

Je voudrais rechercher le fichier existant "command_toto par le chemin C:\Documents and Settings\GPAO\Mes documents

J'applique le code suivant :
Fournisseur = Sheets("Bon").Range("a8")
NomF = "Command_" & Fournisseur
MsgBox NomF
Application.Workbooks.Open "C:\Documents and Settings\GPAO\Mes documents\NomF.xls"

Le MsgBox me confirme bien "command_toto"

Mais le fichier ne s'ouvre pas .....

Quelqu'un de sympa peut-il m'aider

Merci d'avance

1 réponse

katimini
 
Application.Workbooks.Open "C:\Documents and Settings\GPAO\Mes documents\" & NomF & ".xls"
0