ouvrir un fichier avec un passage de paramètre

  • Initiateur de la discussion ptit_coco
  • Date de début
P

ptit_coco

Guest
<HTML>Bonjour, j'aimerais pourvoir ouvrir un fichier avec la saisie d'un paramètre...

ex : mes fichiers se nomment s1, s2, s3...

Juste en saisissant le chiffre ou 's1' , est ce que je peux le fichier correspondant ?

Merci d'avance.</HTML>
 
T

Thierry

Guest
<HTML>Salut ptit' coco (!)

Voici un méthode toute simple, à condition que les fichiers soient tous dans un répertoire unique, sinon il faut adapter...

Sub Ouverture()
Dim Message, Title, MyValue
Message = "Entrez le nom du fichier à ouvrir"
Title = "Ouverture de fichier"
MyValue = InputBox(Message, Title, Default)
Workbooks.Open Filename:="c:\Mes documents\" & MyValue & ".xls"
End Sub

(à arranger en fonction du répertoire avec le chemin d'accès complets au lieu de "c:\Mes documents\"

Bon Dimanche
@+Thierry</HTML>
 

Discussions similaires

Réponses
4
Affichages
215