Discussion :

[casefayere]

Bonjour à tou(te)s,

je travaille sur excel 2007 et n'ai pas de versions antérieures donc je ne peux tester mon code, j'aimerais savoir si le début de mon code est correct en fonction de la version d'excel de l'utilisateur, (la partie en rouge) :

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
26
27
28
29
30
31
32
33
34
35
36
Private Sub partienom_Change()
Dim i As Long, stmessage As String, vs

ListBoxARCHIVES.Clear
nomfeuil = ActiveSheet.Name
vs = Application.Version
If vs < 12 Then
    Set Recherche = Application.FileSearch
Else
    Set Recherche = ClFileSearch.Nouvelle_Recherche
End If
r = ThisWorkbook.Path & "\" & "archives pdf"
With Recherche
    'répertoire pour lancer la recherche
    .FolderPath = r
    'inclu les sous-dossiers dans la recherche
    .SubFolders = True
    'Option de tri:
    '(Sort_None, sort_Name, sort_Path, sort_Size, sort_DateCreated, sort_LastModified, sort_Type)
    'Pas de tri si le paramètre n'est pas spécifié.
    .SortBy = sort_DateCreated
    .Extension = "*" & partienom & "*.pdf"
    'procède à la recherche et capture le nombre de fichiers trouvés
    inombre = .Execute
    stmessage = VBA.Format(inombre, "0"" fichiers trouvés""")
    For i = 1 To .FoundFilesCount
        nom = .Files(i).strfileName
        nom2 = .Files(i).strpathName & "\" & nom
        ListBoxARCHIVES.AddItem nom2 'nom du fichier
    Next i
End With
    If inombre = 0 Then
        MsgBox "0" & " fichier trouvé"
    End If

End Sub

les variables non déclarées ici, le sont en "public"
Merci d'avance de vos conseils éclairés

bonne journée

[Godzestla]

Salut Casefayere,

j'ai testé ton code sous 2003.

Je rencontre un problème ici :

Code :

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

1
2
3
4
5
f vs < 12 Then
    Set Recherche = Application.FileSearch
Else
    Set Recherche = ClFileSearch.Nouvelle_Recherche
End If

je passe dans le else alors qu'il n'y a pas lieu.
En debug VS vaut "11.0", donc je pense que ta comparaison avec 12 en numérique est incorrecte.

[casefayere]

Bonsoir le forum, Godzestla,
Merci de t'être penché sur mon petit souci. Je te confirme que ma version excel 2007 est 12.0 mais tu as certainement raison, peut-être faut que je passe en format texte soit

Code :

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

1
2
3
vs =application.version
If vs < "12" Then
...

mais je ne peux tester moi-meme. J'aurai la réponse dès que j'essayerai sur un poste de mon boulot où tous travaillent encore sur excel 2003.

En attendant, je te remercie encore et te souhaite une bonne soirée.

[Philippe Tulliez]

Bonsoir,
Moi je code comme ceci mais le résultat est le même

Code :

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

1
2
3
 
 vs = Application.Version
 If Val(vs) < 12 Then

[casefayere]

Bonsoir corona,
merci, j'essayerai des deux façons et vous tiendrai au courant.

bonne soirée

PS : au moins, avec excel 2007 je ne rencontre pas de problème.

Bonne soirée

[Invité]

Bonjour

As-tu testé avec une variable de type String et en testant l'égalité avec "12.0" ?

Philippe

[fring]

Bonsoir,
Moi je code comme ceci mais le résultat est le même

Code :

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

1
2
3
 
 vs = Application.Version
 If Val(vs) < 12 Then

+1

[casefayere]

re,
résultat du test, vous comprendrez avec "=" pas le choix,et avec vos deux versions

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim vs As String
vs = Application.Version
If vs = "12.0" Then
   MsgBox "ok"
End If
If Val(vs) = 12 Then
    MsgBox "ok"
End If

j'ai bien mes deux fois "ok"
mais j'espère que sur excel 2003, je ne me retrouverai pas avec un message d'erreur, style :
"type défini par l'utilisateur non défini"
pour

Code :

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

Dim Recherche As ClFileSearch.ClasseFileSearch

encore merci