Trouver un fichier word en fonction de son nom

Version imprimable

08/05/2020, 11h19
Hermelich

Trouver un fichier word en fonction de son nom
Bonjour à tous,

Je recherche actuellement à créer une fonction dans Word qui me permettrait de trouver, dans un répertoire donné, la dernière version d'un fichier.

Tous mes fichiers sont classés comme ceci : V01_fichier.docx

Le numéro de version est la seule chose qui varie.

J'ai donc testé de créer ce code :
Code:

1 2 3 4 5 6 Sub dernier_scenario() monrep = "C:\" monfic = Dir(monrep & "V & MAX(00,99) & _fichier.docx") MsgBox "Le dernière version du fichier est " & monfic End Sub
Mais ça ne marche pas, ma MsgBox ne me donne pas de valeur pour monfic. J'imagine qu'on ne peut pas utiliser la fonction MAX dans le nom d'un fichier.

Auriez-vous une solution qui permettrai de trouver cette dernière version ?

Merci à vous pour votre aide ! :)

Herme

Citation:

Envoyé par Hermelich

Bonjour,

Une solution possible avec FileSystemeObject

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
26
27
 
 
Sub dernier_scenario()
 
Dim MonRep As String
 
    MonRep = "C:\"
    MsgBox "La dernière version du fichier est " & DerniereVersion(MonRep)
 
End Sub
 
Function DerniereVersion(ByVal MonRep2 As String) As Integer
 
Dim Fso As Object, Fich As Object
Dim I As Integer, VersionEnCours As Integer
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    DerniereVersion = 0
    For Each Fich In Fso.GetFolder(MonRep2).Files
        If InStr(1, LCase(Fich.Name), "_fichier.docx", vbTextCompare) > 0 Then
           VersionEnCours = CInt(Mid(Fich.Name, 2, 2))
           If VersionEnCours > DerniereVersion Then DerniereVersion = VersionEnCours
        End If
    Next Fich
    Set Fso = Nothing
 
End Function

08/05/2020, 16h17
Hermelich

Bonjour Eric,

Merci pour ta réponse !

Cependant, ce que je cherche est à ouvrir la dernière version du fichier. (Désolé si je me suis mal exprimé.)

Cette méthode me donne le numéro de version. J'aimerai selectionner ce fichier pour pouvoir l'activer.

Merci pour ta patience..
08/05/2020, 16h22
Invité

Citation:

Envoyé par Hermelich

Ce n'est pourtant pas ce qui est écrit dans le message d'origine.
Sinon, il suffit de se servir de la fonction pour reconstituer le nom du fichier.
08/05/2020, 16h24
Hermelich

Merci bien, effectivement !

Je vais le faire de cette manière !

Citation:

Envoyé par Hermelich

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Function DerniereVersion2(ByVal MonRep2 As String) As String
 
Dim Fso As Object, Fich As Object
Dim I As Integer, VersionEnCours As Integer, VersionMax As Integer
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    VersionMax = 0
    DerniereVersion2 = ""
    For Each Fich In Fso.GetFolder(MonRep2).Files
        If InStr(1, LCase(Fich.Name), "_fichier.docx", vbTextCompare) > 0 Then
           VersionEnCours = CInt(Mid(Fich.Name, 2, 2))
           If VersionEnCours > VersionMax Then
               VersionMax = VersionEnCours
               DerniereVersion2 = MonRep2 & Fich.Name
           End If
        End If
    Next Fich
    Set Fso = Nothing
 
End Function

08/05/2020, 16h58
Hermelich

Wahou, super efficace Eric !

Je vais continuer à bosser mon VBA et à m'entrainer. Ca marche en tout cas !!

Je peux poursuivre mon projet, merci !