Nom de fichier variable

[MENOT72]

Bonjour,

Malgré une recherche intensive, je n'arrive pas à trouver une solution à mon problème:

Je voudrais ouvrir par une macro EXCEL 2007 un fichier dont le nom varie ( NOM du Fichier : CHIRURGIE+VISCERALE.Serv4120.M1-M5.2011.93.xls ); seule la partie "CHIRURGIE+VISCERALE.Serv4120" est fixe. Le nom du fichier est automatiquement attribué par une application et je ne peux pas l'enregistrer autrement.

Votre aide me serait très précieuse et je vous remercie par avance.

[jfontaine]

Bonjour,

Comment est on sensé connaitre le reste du nom? Info dans un onglet, l'utilisateur saisie?

[MENOT72]

Le nom est donné par une application qui incremente le nom du dossier à chaque demande de fichier.
Dans l'exemple M1 à M5 2011 correspond à janvier à mai 2011 et 93 est un compteur qui ne dépend pas du fichier.
Pour me faire comprendre: si je relance la même demande de fichier le suivant sera à 94, mais si je demande tout de suite derrière le fichier :MEDECINE.Serv4154.M1-M5.2011.95.xls ( il sera à 95.

Merci de votre aide.

[jfontaine]

la question

Comment est on sensé connaitre le reste du nom? Info dans un onglet, l'utilisateur saisie?

portait sur l'ouverture du fichier et non l'enregistrement

[White Mibu]

Bonjour,


Dim Nom As Variant, NomFichier As Variant

Chemin = "C:\Users...."
NomFichier = "CHIRURGIE+VISCERALE.Serv4120" & "." & Nom & ".xls"

Workbooks.Open Filename:= Chemin & "\" & NomFichier



Après il faut voir si t'arrive à déterminer ta variable "Nom"... Mais je pense que ces lignes peuvent t'aider !
Si ta des questions plus précises n'hésite pas !

[MENOT72]

Bonjour,

à force de chercher sur le forum, j'ai trouvé ce code qui fonctionne :

Code :

1
2
3
4
5
6
7
8
Sub test()
Dim Fichier As String, Repertoire As String
Repertoire = "D:\Documents and Settings\rmenot\Mes documents\"
Fichier = Dir(Repertoire & "CHIRURGIE+ORTHOPEDIE.SERV4410*.xls")
If Len(Fichier) > 0 Then
 Workbooks.Delete Filename:=Repertoire & Fichier
End If
End Sub

J'ai tout de même testé ta réponse et malheureusement elle ne fonctionne pas.

Merci de ton aide.