Discussion :

[redstoff]

bonjour,

je souhaiterai connaitre la commande qui permet d'ouvrir un fichier nommé avec un format particulier

exemple
je demande à des gens d'enregistrer leur fichier sous la forme

prenom-nom.xls (au pif)

le "prenom" et le "nom" est variable mais le "-" et le ".xls" est commun

donc comment ouvrir les fichier avec le format xxx-yyy.xls?

[jfontaine]

Bonjour,

Dans l'exemple ci dessous A1 contient le Prenom et A2 le Nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
application.Workbooks.Open ThisWorkbook.Path & "\" & Range("A1").value & "-" & Range("A2").value & ".xls"

[redstoff]

salut je pense mettre mal exprimer

ce que je cherche à savoir c'est s'il est possible d'ouvrir un fichier nommé

"texte" - "texte" .xls

il n'y a pas de nom stocké quelque part

en gros
si le fichier à le format "texte" & "-" & "texte" & ".xls"
alors tu l'ouvres

"texte" peut être n'importe quoi

[mercatog]

Bonjour

Une proposition, le code boucle sur tous les fichiers excel d'un dossier chemin, si le nom du fichier comporte au moins un tiret alors il l'ouvre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Essai()
Dim Wbk As Workbook
Dim Chemin As String, Fichier As String
 
Chemin = "C:\Documents and Settings\Administrateur\Bureau\" 'Dossier de recherche
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
    If UBound(Split(Fichier, "-")) >= 1 Then
        Set Wbk = Workbooks.Open(Chemin & Fichier)
        'Suite code avec Wbk
        '.....
        Wbk.Close
        Set Wbk = Nothing
    End If
    Fichier = Dir
Loop
End Sub

[redstoff]

bonjour merci pour ta réponse.

avant de tester ta solution j'aimerai connaitre la définition de "*".
a quoi ce symbole se rapporte?

merci

[mercatog]

* remplace n'importe quoi