comment ouvrir un fichier avec une valeur Résolu/Fermé

Question

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

Bidouilleu_R · Answer

bonjour,


problème de syntaxe....
tu dis ....
J'applique le code suivant : 
Fournisseur = Sheets("Bon").Range("a8") ' aucune erreur
NomF = "Command_" & Fournisseur ' donc nomF contient Command_toto le contenu de A8
MsgBox NomF ' c'est bien d'avoir vérifier.
j'aurai écris NomF=NomF& ".xls" car NomF représente le nom du fichier que tu essaie de recontruire.
et tu as écris....
Application.Workbooks.Open "C:\Documents and Settings\GPAO\Mes documents\NomF.xls" 


solution: 
Application.Workbooks.Open "C:\Documents and Settings\GPAO\Mes documents\NomF & ".xls" 

pour infos il y a aussi la cette méthode qui peut t'aider.
Application.GetOpenFilename

A+

Bidouilleu_R · Answer

Oups!
j'ai fait une erreur.


Application.Workbooks.Open "C:\Documents and Settings\GPAO\Mes documents\" & NomF & ".xls" 

Désolé je croyais l'avoir corrigé.
Comme cela ça marchera!
A+
ou A vendredi

Comment ouvrir un fichier avec une valeur

2 réponses

Discussions similaires

Newsletters