Ignorer certain caracteres avec workbook open

Bonjour
dnas ma fonction workbook open, je voudrais que le (6) ne soit pas pris en compte en fait le 6 correspond au nombre de rectification du fichier qui en fait n'est jamais le meme il me semblait que l'on pouvait remplacé ce type de données par * mais je ne me rapelle plus comment

Code:

---

1 2 3

Private Sub CommandButton1_Click() ndep = TextBox1 'n° semaine de depart Workbooks.Open Filename:="F:\tour de service\arveyre-mussidan/CalendrierCollectifHebdo 2019-" & ndep & "-20181030 (6).xls"

---

cela fait ennormement de temp que je n'ai pas programmé et en plus j'etais sous exel 97 à l'époque je suis maintenant sous exel 2010 et beaucoup de formule n'existe plus donc je suis un peu largué
merci de vos reponses

Il faut commencer par trouver le bon nom de fichier en utilisant la fonction Dir().
https://docs.microsoft.com/fr-fr/off...p/dir-function
Ensuite, tu pourras utiliser ton Open avec ce nom de fichier.

Bonjour
le paramètre filename est de type string et un chemin complet.
Un chemin complet ne saurait être défini en utilisant un/des caractère(s) générique(s).
Quel est exactement ton besoin ?
S'il est d'ouvrir le dernier (celui de plus fort "index" dans tes noms), il te faut d'abord le déterminer à l'aide de la fonction dir (qui, elle, accepte les caractères génériques) ; et l'ouvrir une fois identifié

Salut Menhir (on s'est croisé et mon café a ralenti ma frappe). ;)

Citation:

---

Envoyé par Menhir

Il faut commencer par trouver le bon nom de fichier en utilisant la fonction Dir().
https://docs.microsoft.com/fr-fr/off...p/dir-function
Ensuite, tu pourras utiliser ton Open avec ce nom de fichier.

---

merci de ta reponse mais visiblement je n'arrives pas a utiliser la fonction dir()
sur le fichier que je dois ouvrir tout ce qui est aprés ndep n'as pas d'importance en fait ndep correspond a un n° de semaine
avec la fonction dir j'ai droit au debogage a chaque fois je ne dois pas trouver les bon arguments pour la faire fonctionner

Citation:

---

mais visiblement je n'arrives pas a utiliser la fonction dir()
sur le fichier que je dois ouvrir

---

on n'utilise pas la fonction Dir "sur un fichier" ...

Citation:

---

avec la fonction dir j'ai droit au debogage a chaque fois je ne dois pas trouver les bon arguments pour la faire fonctionner

---

montre donc (c'est la règle) le code que tu as écrit

Citation:

---

Envoyé par unparia

on n'utilise pas la fonction Dir "sur un fichier" ...

montre donc (c'est la règle) le code que tu as écrit

---

en fait je viens de trouver un code qui permet d'ouvrir tous les classeurs d'un fichier et du coup cela resout mon probleme
merci beaucoup de votre aide
je vous met le code si cela peut depaner quelqu'un

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub CommandButton1_Click()   ndep = TextBox1 'n° semaine de depart Dim Fichier As String, Chemin As String Dim Wb As Workbook   Chemin = "F:\tour de service\arveyre-mussidan/" Fichier = Dir(Chemin & "*.xls")   Do While Fichier <> "" ndep = ndep + 1 Set Wb = Workbooks.Open(Chemin & Fichier) ActiveWorkbook.SaveAs Filename:= _ "F:\test\arveyre-mussidan\arveyre-mussidan" & ndep & ".xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWindow.Close 'suite de la procedure '   Set Wb = Nothing Fichier = Dir Loop MsgBox "fin" End Sub

---