Discussion :

[pirateman]

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 :

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

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

[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.

[pirateman]

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

[unparia]

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" ...

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

[pirateman]

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 :

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
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

[unparia]

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).