Bonjour,
Si tu n'a qu'un fichier qui commence par Test pourquoi mettre tout ces numéros après ?

A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  

Bonjour tu devrais t'en sortir avec la fonction DIR() qui va te renvoyer le contenu d'un repertoire

Essaye avec..
dim Fich as string
Fich = Dir("D:\Groupe\Test") & "*"

ouvrir Fich
Ca marche j'ai testé.
A+ L'expérience instruit plus sûrement que le conseil. (André Gide)  

Alors je viens de tout tester ^^

Fich = Dir("D:\Groupe\Test1") & "*"
MsgBox Fich

Ca renvoie * et pourtant j'ai bien un fichier Test128051653 dans mon dossier (et aussi un Test228051653 mais celui la ne doit pas etre pris en compte vu le chemin en dur) c'est bizarre non? :'(

Avant toutes mes instructions j'ai tenté un Application.DisplayAlert = false et ca plante :(
Erreur d'exécution '438'
Propriété ou méthode non gérée par cet objet

Snif :'(

J'ai oublié le "S"
Application.DisplayAlerts = False
pour le Dir je Re.Re contrôle.
EDIT:
bon, comme dit... je Re.Re contrôle
j'ai même créer un classeur avec le nom du tient, et contrairement à ce que j'avais dit il n'y a pas de différence entre maju et minuscule et CA FONCTIONNE NICKEL
Mais ile ne faut qu'un seul fichier avec ce début de nom
vérifie qu'il n'y a pas d'erreur dans le répertoir, la lettre du DD etc..
vas dans l'explorateur de fichier et control tout.
même si plusieur fichier qui commence par Test1 DIR renvoi le premier trouver....
Encore autre chose, fait un copier/coller du code que j'ai mis pour être sûr que tu a pas d'erreur.
L'expérience instruit plus sûrement que le conseil. (André Gide)  

Bonjour,
essaie de faire ça :

Option Explicit
 
' option à activer dans VBA menu Outils | Références : Cocher Microsoft Scripting Runtime (A NE PAS OUBLIER)
 
Const DossierFichiers As String = "C:\" 'le chemin de ton répertoire
Sub Ouvrir_fichier()
    ListeFichiersDans DossierFichiers
End Sub
 
Private Sub ListeFichiersDans(ByVal NomDossier As String)
Dim FSO As Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder
Dim Fichier As Scripting.File
Dim x As Long

 
    Set FSO = New Scripting.FileSystemObject
    Set DossierSource = FSO.GetFolder(NomDossier)
           
    x = 0
    For Each Fichier In DossierSource.Files
            x = x + 1
            Workbooks.Open Filename:=Fichier
            
    Next Fichier
         
    MsgBox Fichier
     
    Set Fichier = Nothing
    Set DossierSource = Nothing
    Set FSO = Nothing
End Sub

Euhhhh oui non euhhh y'a pas moins compliqué? Ou alors vous pouvez m'expliquer? dsl jsuis une buse :-(

Concernant le DIR ca renvoi tjs * :-( comprend pas pourquoi ca marche chez toi lermite :s une option a activer???

Non, rien à ajouter, Dir renvoi un fichier ou rien du tout si trouve pas ("") mais sûrement pas "*"
donc je persiste et signe, tu à une erreur soit dans le répertoir, soit dans les noms de fichiers.. à toi de la trouver, je suis pas devant ton PC

EDIT:
Fait un copier/coller le cette sub et tape F5

Sub TestDir()

Dim R As String
    R = ThisWorkbook.FullName
    R = Left(R, 8) & "*"
    MsgBox R 'le nom tronquer du classeur et chemin.
    MsgBox Dir(R) 'le nom complet du classeur
End Sub

Euhhh presque pour le premier, mais en fait le Dir ne fonctionne pas apparemment.

Sub TestDir()

Dim R As String
R = ThisWorkbook.FullName
R = Left(R, 8) & "*"
MsgBox R 'le nom tronquer du classeur et chemin. OK renvoie D:\Group
MsgBox Dir(R) 'le nom complet du classeur. KO ne renvoie rien
End Sub

Par contre....

Fich = "D:\Groupe\" & dir("D:\Groupe\Test1*") me renvoie le bon fichier.

:-) :-) :-) :-) :-)


Encore une petite question en rapport ;-) comme j'essaye d'être propre au lieu de mettre D:\Groupe\ je préfère mettre .\ et ensuite pour ouvrir le workbook je crois qu'il ne faut que le nom du .xls donc comment éliminer les caracteres donnant le chemin du fichier pour n'en garder que le nom sachant que ce nombre de caracteres est fixe?

Un grand merci lermite

Pour ouvrir le classeur il est préférable pour pas dire obligatoire de fournir le chemin + nom + extention, c'est à dire complet.
Pourquoi,
Ce n'est pas parce que tu travail dans un répertoir que c'est celui là qui est actif, donc si tu ne donne que le nom le classeur que tu tente d'ouvrir ce serra avec le chemin du répertoir courrant.
Pour rendre un répertoir actif il faut faire un Chdrive et un chDir. (voir aide) qui d'ailleur n'explique pas bien, il faut obligatoirement fair d'abord un ChDrive avec la lettre du DD et ensuite un ChDir sur le répertoir.
A+
EDIT:
Pour le test 2, remplace la ligne
R = Left(R, 8) & "*"
par
R = Left(R, 10) & "*"
En fait c'est parcequ'il manque le \ que ca fonctionnais pas. L'expérience instruit plus sûrement que le conseil. (André Gide)  

Fich = Dir("D:\Groupe\Test1") & "*"
MsgBox Fich

Ca renvoie * et pourtant j'ai bien un fichier Test128051653 dans mon dossier (et aussi un Test228051653 mais celui la ne doit pas etre pris en compte vu le chemin en dur) c'est bizarre non? :'(


La commande n'est pas plutôt Fich = Dir("D:\Groupe\Test1" & "*") ?

Bonjour onesdf,
voir poste 14 et 15
A+ L'expérience instruit plus sûrement que le conseil. (André G­ide)  

Mui non jsais pas ^^ ca m'emballe pas :D
J'aimerai pouvoir ouvrir mon fichier en donnant un chemin relatif :$

En fait c'est la seule contrainte au lancement du prog c'est d'avoir les documents annexes dans le même dossier que le principal (ca permet chaque mois de mettre un historique de côté)

Alors certes avec les méthodes ou je met le nom en dur D:\Groupe\Test1* ca passe mais ca serait mieux d'avoir .\Test1* sachant que mon fichier principal est forcément dans le même dossier Groupe *-)

Fich = ".\" & Dir(".\Test1*") 'ca ne marche pas ca renvoie .\

En fait dans le dossier on a forcément principal.xls d'où est lancé le programme et Test130051610.xls que l'on doit ouvrir
le truc c'est qu'on peut très bien être dans D:\Groupe1\ que dans D:\Groupe2\ la seule contrainte étant d'avoir principal.xls dans ce dossier ainsi que les fichiers annexes.

Un peu la misère en fait :-(

Ahhh ca marche nickel merci bien :-)

Hello, je me permet de poursuivre cette discussion ;p

Tout d'abord merci pour le code, bien utile :)

Voila, imaginons que nous ayons plusieurs Fichiers dans un répertoire genre test1 , test2, test4012 ...
Si on veut tous les supprimer faut-il passer par une boucle ?
J'ai tenté ceci, ca fonctionne, mais j'ai peur que se soit un peu barbare ^^'

Dim Fich As String
Fich = "C:\" & Dir("C:\test*")
Do While Fich <> "C:\"
Kill Fich
Fich = "C:\" & Dir("C:\test*")
Loop

Donnez moi vos avis ;P

Bonjour,
Kill "C:\test*"
Suffira..
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)  

En effet, c'est vraiment plus simple.
Merci
A+