Discussion :

[colbubu]

bonjour a tous voila j'ai un petit probleme,

je dois récupérer la cellule A4 plein de classeur de plein de dossier alors voila je procede normalement avec une fonction Dir pour les trouver

ça se passe sans probleme c est génial

mais c'est quand je dois trier ces dossiers que ça pose un probleme

voila un bout de mon code:

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
37
38
39
40
41
 
    FichT = Dir(Repertoire & "\" & FichD & "\" & "CSV-" & "*.xls")
 
suivante:
    Do While FichT <> ""
 
 
        c = 4
 
        If FichT = "*" & "TEMPOREL" & "*" Then
            FichT = Dir
            GoTo suivante
        End If
 
 
        Workbooks.Open Repertoire & "\" & FichD & "\" & FichT
        Set objworkbooksource = ActiveWorkbook
        If FichT = "*" & "1799" & "*" Then
            Do While Not IsEmpty(objworkbooksource.ActiveSheet.Range("A" & c))
                objworkbooksource.ActiveSheet.Range("A" & c).Copy
                objworkbookcible.ActiveSheet.Range(Cells(l, i)).PasteSpecial
                c = c + 10
                i = i + 1
            Loop
        Else
            If FichT = "*" & "1887" & "*" Then
                For k = 1 To 16
                    objworkbooksource.ActiveSheet.Range("A" & k).Copy
                    objworkbookcible.ActiveSheet.Range(Cells(l, i)).PasteSpecial
                    i = i + 1
                Next
            Else
                objworkbooksource.ActiveSheet.Range("A4").Copy
                objworkbookcible.ActiveSheet.Activate
                Range(Cells(i, l), Cells(i, l)).PasteSpecial
                i = i + 1
            End If
        End If
        objworkbooksource.Close savechanges:=False
        FichT = Dir
    Loop

alors voila si le classeur contient dans son nom les mots temporel ou 1799 ou 1887 la macro doit soit les ignorer soit faire une manip précise

mais lorsque je regarde si FichT= un mot avec d'autres trucs possibles a coté il ne le voit pas

[zyhack]

Bonjour

utilise la fonction Instr

Code :

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

If InStr(1, FichT, "TEMPOREL") > 0 Then

si l'occurrence est trouvé, Instr renverra le n° du premier caractère (au minimum 1)

[colbubu]

merci beaucoup pour ton aide je ne connaissais pas du tout cette fonction

bien joué