Bonjour,
je suis actuellement en stage et mon maitre de stage vien de me refiler un classeur excel plein de macro comme on les aiment. Le probleme qu'il veut que je resoude et bien sur qu'il ne fonctionne pas sous excel 2007.

J'ai vite identifier le probleme grace a un precedent poste mais je n'arrive pas a me servir de la classe clfilesearch( bien qu'apparament elle serait tré facile a utilisé...)

Si vous pouvier m'aider sur ce petit bout de code a comprendre le fonctionnement je devrai pouvoir debuguer le reste trankilement

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
With Application.FileSearch
    Dim JourNb As Byte
    Dim jour As String
 
    JourNb = 0
    'on essaie tous les jours du mois
    Do
        'on incremente la valeur du jour
        JourNb = JourNb + 1
 
        'le jour doit être sur deux chiffres
        If JourNb < 10 Then
            jour = "0" & Right$(Str$(JourNb), 1)
        Else
            jour = Right$(Str$(JourNb), 2)
        End If
 
        Workbooks("Julie.xls").Worksheets("Variables").Range("jourChoisi").Value = jour
 
        'on regarde le fichier correspondant a ce jour
        .LookIn = Workbooks("Julie.xls").Worksheets("Variables").Range("dossierDonnéesEnCours").Value & "\FIPL\"
        .Filename = Workbooks("Julie.xls").Worksheets("Variables").Range("nomFIPL").Value
 
        'si le fichier existe ou si on a parcouru tous les jours on sort
        'sinon on réessaie pour le jour suivant
    Loop Until (.Execute > 0 Or JourNb > 31)

Mon probleme se situe surtout au .filname

Merci beaucoup