[Catégorie modifiée VB6 --> VBA] [Excel] Recherche d'un fichier grâce à un copié

ange180190 Messages postés 2 Date d'inscription mardi 20 juillet 2010 Statut Membre Dernière intervention 20 juillet 2010 - 20 juil. 2010 à 11:38
ange180190 Messages postés 2 Date d'inscription mardi 20 juillet 2010 Statut Membre Dernière intervention 20 juillet 2010 - 20 juil. 2010 à 15:11
Bonjour ,

je suis un peu bloquée sur mon projet et j'aurais besoin de votre aide

alors je vais essayer d'être le plus claire possible :

j'ai une feuille excel dans laquelle je demande à l'utilisateur d'entrer un numéro , celui-ci est copié dans la cellule B1 . Je copie donc ce numéro et j'aimerais ouvrir tout les fichiers dans mon répertoire qui commencent par ce numéro...

j'ai commencé mon code comme ceci :

Sub Macro1()


Range("B1").Select
Selection.Copy
ChDir "C:\MonRepertoire\MesFichiers"
Workbooks.Open Filename:= _
"C:\MonRepertoire\MesFichiers\Copier numéro de la cellule B1 *.xls"
End Sub


voila , j'espere que c'est assez "clair" et que vous pourrez me mettre sur la voie , merci d'avance !



Ange

2 réponses

cs_abdellatyif Messages postés 32 Date d'inscription jeudi 10 juillet 2003 Statut Membre Dernière intervention 29 juillet 2010
20 juil. 2010 à 14:08
salut
essai cette methode ç peu t'aidée
ChDir "C:\MonRepertoire\MesFichiers"
Range("B1").Select
valeurB1 = ActiveCell.Text
    request = CurDir & "" & valeurB1 & "*.xls"
nomfichier = Dir(request, vbDirectory)
Do While nomfichier <> ""
    Workbooks.Open nomfichier
    nomfichier = Dir
Loop
0
ange180190 Messages postés 2 Date d'inscription mardi 20 juillet 2010 Statut Membre Dernière intervention 20 juillet 2010
20 juil. 2010 à 15:11
Merci !

Ange
0
Rejoignez-nous