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

[casefayere]

Bonsoir Philippe,

Suis-je bête, bien sur c'est la première chose à faire. Je serai déjà un peu mieux fixé.
Ce qui m'embête est que la version de mon fichier est restée au boulot mais je vais contourner le problème dès maintenant car pour ce test je n'ai pas obligatoirement besoin de ce fichier.

Merci, bonne soirée

[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

[Godzestla]

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

Si, malheureusement,

mais comme tu l'avais codé dans ton premier exemple cela passe sans erreur:

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
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"
    Set Recherche = ClFileSearch.Nouvelle_Recherche
    Else
    MsgBox "nok"
    Set Recherche = Application.FileSearch
End If
 
End Sub

[fring]

Je ne me contenterais pas de vérifier si l'on est en présence de la version 12.0 (2007), il y a maintenant la version 14.0 (2010)

Code :

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

1
2
3
4
5
If Val(vs) >= 12 Then
    Set Recherche = ClFileSearch.Nouvelle_Recherche
    Else
    Set Recherche = Application.FileSearch
End If

ou

Code :

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

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

[casefayere]

Bonjour à tou(te)s,

Merci Godzestla, je ne pourrai pas adapter avant cet après-midi, je pense contourner le problème pour le refus de déclaration de variable en passant par un module

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim vs As String
vs = Application.Version
If Val(vs) < 12 Then
  prog1
Else
    prog2
End If
 
End Sub

Code :

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

1
2
3
4
sub prog1()
dim Dim Recherche As object
Set Recherche = Application.FileSearch
...........

Code :

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

1
2
3
4
sub prog2()
Dim Recherche As ClFileSearch.ClasseFileSearch
Set Recherche = ClFileSearch.Nouvelle_Recherche
.....

Bonne journée