Discussion :

[supertof57]

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

[ouskel'n'or]

Bonjour supertof57, bienvenue sur le forum
Je crois simplement qu'il ne faut pas de "\" pour le dernier répertoire ("\FIPL")
Ne pas confondre avec Dir qui en réclame un.
Bonne nuit (!)

[supertof57]

Merci pour ta réponse,
Mais ce bout de programme fonctionnne parfaitement, mon probleme consiste à le faire fonctionner avec excel 2007.
Excel 2007 ne prenant plus en compte "Application.filesearch" il me faut utiliser la classe "Clfilesearch".
Malheureusement je n'arrive pas à utiliser cette classe correctement.
Donc si quelqu'un pouvai m'aider a convertir le bout de code ci dessus cela m'aiderai beaucoup.

Merci