[EXCEL-VBA]

KdTcA, le mercredi 3 août 2005 à 16:19:55

Signaler ce message aux modérateurs

Je trouve que j'aide pas mal de monde non?

Bon tout çà pour dire que j'ai un gros souci avec une macro!

Le but est de rechercher une valeur dans plusieurs fichiers...

Au début çà marchait et depuis que j'ai ajouté des conditions supplémenntaires, une partie des recherches ne marchent plus!!!

En effet, c'est au niveau de la recherche par date que çà foire!!!!

Si dans ma macro je met rechercher "31/12/2005" ma macro le trouve et fait le copier/coller
Par contre, si je laisse mot_clef (qui est saisi par l'utilisateur) çà marche plus!

NB: Dans les autres colonnes tout marche!!!

Quelqu'un a une idée?? random peut être?

PS : Si je mets le code, tu vas rien comprendre sans les fichiers auxquels çà correspond...

Meilleures réponses pour « [EXCEL-VBA] »

28 réponses 12 Suivant

Posez votre question Répondre

Lupin.Arsene, le mercredi 3 août 2005 à 16:25:16

Salut,

Ça ressemble à une incompatibilité de type !

Ce que je comprends :
Si tu code en dure une valeur "jj/mm/aaaa" ça fonctionne
Si tu récupère la valeur par une variable ça coince.

Est-ce j'ai bien compris ?

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Répondre à Lupin.Arsene

KdTcA, le mercredi 3 août 2005 à 16:28:45

Code = huch... pourquoi pas starsky ???

Les fichiers où j'existe mes recherches sont identiques qu'auparavant!

mon code de recherche n'a pas été modifié, j'ai juste mis un if en plus... :S

Répondre à KdTcA

Lupin.Arsene, le mercredi 3 août 2005 à 16:42:38

Re :

code = huch... pourquoi pas starsky ???

ça veut dire quoi ?

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Répondre à Lupin.Arsene

KdTcA, le mercredi 3 août 2005 à 18:05:01

C'est le code que je dois taper pour marquer un message! ^^

Répondre à KdTcA

KdTcA, le jeudi 4 août 2005 à 10:28:02

!up

Si quelqu'un veux je peux lui envoyer les fichiers...

Répondre à KdTcA

KdTcA, le jeudi 4 août 2005 à 12:49:01

:'(

Ca veut vraiment pas marcher alors qu'avant aucun souci!!!

Je veux essayer autre chose mais je ne sais pas comment le faire:

Faire en sotre que le mot clef soit déclarer comme le type désiré!!

Par exemple, si je fais une recherche par date, j'aimerais que le mot clef saisi soit défini du type jj/mm/aaaa en espérant que ce soit çà qui bloque tout...

Merci de faire comme moi et d'aider ceux qui ont du mal!!!

:'( :'( :'(

Répondre à KdTcA

KdTcA, le jeudi 4 août 2005 à 13:15:32

Bon vous l'aurez voulu!!!!!!

1er programme :

Dim chemin, mot_clef As String
Dim valid, lancement, fin, k, choix As Integer
Dim ok As Boolean
Dim fso, Dossier, Flder As Object
Dim fichier
Dim cellule As Integer
Dim Msg1, Msg2, Style, Title, Box
Dim nb, derniere_colonne
Dim cellul As String

Sub main()
If lancement = 0 Then
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton5.Value = False
OptionButton6.Value = False
OptionButton7.Value = False
choix = 0
lancement = 1
End If
End Sub
Private Sub erreur()
mot_clef = Mot

    Msg1 = "Vous n'avez pas choisi de type de recherche!"
    Msg2 = "Vous n'avez saisi aucune recherche!"
    Style = vbOKOnly + vbExclamation
    Title = "Erreur!"
    valid = 0

If (choix = 0) Then
Box = MsgBox(Msg1, Style, Title)
ElseIf Mot = "" Then
Box = MsgBox(Msg2, Style, Title)
Else
valid = 1
End If
Mot = ""
End Sub
Function select_a_folder(message, directory)
  ok = False
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, message, NO_OPTIONS, directory)

On Error Resume Next
Set objFolderItem = objFolder.Self
If Err <> 0 Then
        select_a_folder = "ANNUL"
Else
        select_a_folder = objFolderItem.Path
          ok = True
End If
On Error GoTo 0


End Function

Private Sub OptionButton1_Click()
choix = 1
End Sub

Private Sub OptionButton2_Click()
choix = 3
End Sub

Private Sub OptionButton3_Click()
choix = 4
End Sub

Private Sub OptionButton4_Click()
choix = 4
End Sub

Private Sub OptionButton5_Click()
choix = 5
End Sub

Private Sub OptionButton6_Click()
choix = 6
End Sub

Private Sub OptionButton7_Click()
choix = 8
End Sub

Private Sub Recherche_Click()
erreur
If valid = 1 Then
chemin = select_a_folder("Veuillez sélectionner un dossier dans lequel s'effectuera la recherche par " & choix & " de " & Mot & "", "c:\Convoyeurs\EXCEL\")
If ok = True Then
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A7:L65536").Clear
Application.Workbooks("recherche.xls").Worksheets("listing").Cells.Clear
lister
chercher
End If
End If
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A" & k & "").Select
MsgBox ("" & ((k - 7) / 4) & " résultat(s) trouvé(s)")
End Sub

Function chercher()

k = 7
For cellule = 3 To (derniere_colonne + 2)
fin = Application.Workbooks("recherche.xls").Worksheets("listing").Cells(65536, cellule).End(xlUp).Row
For a = 1 To fin
Workbooks.Open Feuil2.Cells(a, cellule).Value
fichier = Split(Feuil2.Cells(a, cellule).Value, "\")
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, choix).End(xlUp).Row
For i = 20 To LaDerniere
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = mot_clef Then
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & (i + 3) & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 4
End If
Next i
Application.Workbooks(fichier(4)).Activate
ActiveWorkbook.Close
Next a
Next cellule
mot_clef = ""
End Function

Function lister()
TousLesDossiers "" & chemin & "", 0
TousLesFichiers
End Function

Function TousLesDossiers(LeDossier$, Idx As Long)

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Dossier = fso.GetFolder(LeDossier)
  'examen du dossier courant
  For Each Flder In Dossier.subfolders
    Idx = Idx + 1
    Feuil2.Range("a" & Idx & "").Value = Flder.Path
    Next
  
  Set fso = Nothing

End Function 'fs

Function TousLesFichiers()

Set fs = Application.FileSearch
If Feuil2.Range("A1").Value = "" Then
Feuil2.Range("A1").Value = Dossier
derniere_colonne = 1
Else
derniere_colonne = 4
End If
For F = 1 To derniere_colonne
With fs
.LookIn = "" & Feuil2.Range("A" & F & "").Value & ""
.Filename = "*"
.Execute
For i = 1 To .FoundFiles.Count
If F = 1 Then
cellul = "C"
ElseIf F = 2 Then
cellul = "D"
ElseIf F = 3 Then
cellul = "E"
ElseIf F = 4 Then
cellul = "F"
End If
Feuil2.Range("" & cellul & "" & i & "").Value = .FoundFiles(i)
Next i
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
Next F
End Function

2ème programme :

Dim chemin, mot_clef, mode As String
Dim valid, lancement, fin, k, choix As Integer
Dim ok As Boolean
Dim fso, Dossier, Flder As Object
Dim fichier
Dim cellule As Integer
Dim Msg1, Msg2, Style, Title, Box
Dim nb, derniere_colonne
Dim cellul As String

Sub main()
If lancement = 0 Then
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton5.Value = False
OptionButton6.Value = False
OptionButton7.Value = False
OptionButton8.Value = False
OptionButton9.Value = False
OptionButton10.Value = False
OptionButton11.Value = False
choix = 0
lancement = 1
mode = ""
End If
End Sub
Private Sub erreur()
mot_clef = mot

    Msg1 = "Vous n'avez pas choisi de type de recherche!"
    Msg2 = "Vous n'avez saisi aucune recherche!"
    Style = vbOKOnly + vbExclamation
    Title = "Erreur!"
    valid = 0

If (choix = 0) Then
Box = MsgBox(Msg1, Style, Title)
ElseIf mot = "" And mode <> "modif" Then
Box = MsgBox(Msg2, Style, Title)
Else
valid = 1
End If
mot = ""
End Sub
Function select_a_folder(message, directory)
  ok = False
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, message, NO_OPTIONS, directory)

On Error Resume Next
Set objFolderItem = objFolder.Self
If Err <> 0 Then
        select_a_folder = "ANNUL"
Else
        select_a_folder = objFolderItem.Path
          ok = True
End If
On Error GoTo 0


End Function

Private Sub OptionButton1_Click()
mode = "colonne"
choix = 1
End Sub


Private Sub OptionButton2_Click()
mode = "colonne"
choix = 3
End Sub

Private Sub OptionButton3_Click()
mode = "colonne"
choix = 4
End Sub

Private Sub OptionButton4_Click()
mode = "colonne"
choix = 4
End Sub

Private Sub OptionButton5_Click()
mode = "colonne"
choix = 5
End Sub

Private Sub OptionButton6_Click()
mode = "colonne"
choix = 6
End Sub

Private Sub OptionButton7_Click()
mode = "colonne"
choix = 8
End Sub

Private Sub OptionButton8_Click()
mode = "modif"
choix = 1
End Sub

Private Sub OptionButton9_Click()
mode = "partie"
choix = 1
End Sub

Private Sub OptionButton10_Click()
mode = "intervalle"
choix = 1
End Sub

Private Sub OptionButton11_Click()
mode = "cellule"
End Sub


Private Sub Recherche_Click()
erreur
If valid = 1 Then
If mode = "modif" Then
chemin = select_a_folder("Veuillez sélectionner un dossier dans lequel s'effectuera la recherche de toutes les modifications", "c:\Convoyeurs\EXCEL\")
Else
chemin = select_a_folder("Veuillez sélectionner un dossier dans lequel s'effectuera la recherche de " & mot_clef & "", "c:\Convoyeurs\EXCEL\")
End If
If ok = True Then
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A7:M65536").Clear
Application.Workbooks("recherche.xls").Worksheets("listing").Cells.Clear
lister
chercher
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A" & k & "").Select
MsgBox ("" & (k - 7) & " résultat(s) trouvé(s)")
End If
End If
End Sub

Function chercher()

k = 7
For cellule = 3 To (derniere_colonne + 2)
fin = Application.Workbooks("recherche.xls").Worksheets("listing").Cells(65536, cellule).End(xlUp).Row
For a = 1 To fin
Workbooks.Open Feuil2.Cells(a, cellule).Value
fichier = Split(Feuil2.Cells(a, cellule).Value, "\")
If mode = "colonne" Then
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, choix).End(xlUp).Row
For i = 20 To LaDerniere
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = mot_clef Then
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & i & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("B" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 1
End If
Next i


ElseIf mode = "modif" Then
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, choix).End(xlUp).Row
For i = 20 To LaDerniere
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value <> "" Then
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & i & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("B" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 1
End If
Next i


ElseIf mode = "cellule" Then
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("C5").Value = mot_clef Then
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, 1).End(xlUp).Row
For i = 20 To LaDerniere
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & i & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("B" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 1
Next i
End If

ElseIf mode = "partie" Then
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, choix).End(xlUp).Row
For i = 20 To LaDerniere
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value <> "" Then
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & i & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("B" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 1
End If
Next i

ElseIf mode = "intervalle" Then
LaDerniere = Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(65536, choix).End(xlUp).Row
For i = 20 To LaDerniere
If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value <> "" Then
Application.Workbooks(fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & i & "").Copy
Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("B" & k & "").Select
ActiveSheet.Paste

With Worksheets("Résultats")
    .Hyperlinks.Add .Range("A" & k & ""), Feuil2.Cells(a, cellule).Value
End With

k = k + 1
End If
Next i

End If

Application.Workbooks(fichier(4)).Activate
ActiveWorkbook.Close

Next a
Next cellule
mot_clef = ""
End Function

Function lister()
TousLesDossiers "" & chemin & "", 0
TousLesFichiers
End Function

Function TousLesDossiers(LeDossier$, Idx As Long)

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set Dossier = fso.GetFolder(LeDossier)
  'examen du dossier courant
  For Each Flder In Dossier.subfolders
    Idx = Idx + 1
    Feuil2.Range("a" & Idx & "").Value = Flder.Path
    Next
  
  Set fso = Nothing

End Function 'fs

Function TousLesFichiers()

Set fs = Application.FileSearch
If Feuil2.Range("A1").Value = "" Then
Feuil2.Range("A1").Value = Dossier
derniere_colonne = 1
Else
derniere_colonne = 4
End If
For F = 1 To derniere_colonne
With fs
.LookIn = "" & Feuil2.Range("A" & F & "").Value & ""
.Filename = "*"
.Execute
For i = 1 To .FoundFiles.Count
If F = 1 Then
cellul = "C"
ElseIf F = 2 Then
cellul = "D"
ElseIf F = 3 Then
cellul = "E"
ElseIf F = 4 Then
cellul = "F"
End If
Feuil2.Range("" & cellul & "" & i & "").Value = .FoundFiles(i)
Next i
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
Next F
End Function

Dites moi ce qui différe l'un de l'autre mise à part les conditions if mode ="..." parce que là je vois pas ce qui fait merder mon programme!!!

Répondre à KdTcA

random, le jeudi 4 août 2005 à 14:04:30

D'abord déclare clef utilisateur en variant
ensuite tu pourrais dans l'inspecteur d'objet examiner filesearch
c'est jusue une idée comme ca

elle est pas belle, la vie ?

Répondre à random

KdTcA, le jeudi 4 août 2005 à 14:10:39

Dim mot_clef As Variant

çà n'a rien changé...

C'est quoi filesearch?
Pourquoi le premier programme fonctionne sans problème mais pas le deuxième?
Y'a rien de changer par rapport à la variable mot_clef!!!

Je deviens fou!!!

Répondre à KdTcA

Lupin.Arsene, le jeudi 4 août 2005 à 14:57:31

Salut KdTcA,

Voici quelques observations (1er prog), celles-ci ne font pas force de loi,
c'est tout simplement ma façon de travailler. Cela pourra peut-être
te mettre sur une piste. Ces observations sont tirés de la syntaxe
du code et non sur la structure. Je me pencherai plus sur la structure
ultérieurement si besoin est...

Je répète, prend ces observations avec un grain de sel !!!

'Beaucoup de variable globale pour un si petit
'programme, certaines devraient être traduite
'en local et passer en paramètres.
Dim Chemin, Mot_Clef As String
Dim Valid, Lancement, Fin, K, Choix As Integer
Dim Ok As Boolean
Dim Cellule As Integer
Dim Cellul As String

'Lupin -> Déclaration contreversé
'Les variables utilisées avec des objets de scripting
'devrait toujours être déclaré en variant
Dim Fso, Dossier, Flder As Variant
'Lupin -> Les variables devrait toujours être typé
'même si implicite, meilleur compréhension du système
Dim Nb, Derniere_Colonne As Variant
Dim Msg1, Msg2, Style, Title, Box As Variant
Dim Fichier As Variant
'

Sub Main()

    If Lancement = 0 Then
        OptionButton1.Value = False
        OptionButton2.Value = False
        OptionButton3.Value = False
        OptionButton4.Value = False
        OptionButton5.Value = False
        OptionButton6.Value = False
        OptionButton7.Value = False
        Choix = 0
        Lancement = 1
    End If
    
End Sub
'

Private Sub Erreur()
    
    Mot_Clef = Mot
    Msg1 = "Vous n'avez pas choisi de type de recherche!"
    Msg2 = "Vous n'avez saisi aucune recherche!"
    Style = vbOKOnly + vbExclamation
    Title = "Erreur!"
    Valid = 0

    If (Choix = 0) Then
       Box = MsgBox(Msg1, Style, Title)
    Else
        If Mot = "" Then
            Box = MsgBox(Msg2, Style, Title)
        Else
            Valid = 1
        End If
    End If
    Mot = ""
    
End Sub
'

Function Select_A_Folder(message, directory)
  
    Ok = False
    Const WINDOW_HANDLE = 0
    Const NO_OPTIONS = 0

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder _
        (WINDOW_HANDLE, message, NO_OPTIONS, directory)

    On Error Resume Next
    
    Set objFolderItem = objFolder.Self
    If Err <> 0 Then
        Select_A_Folder = "ANNUL"
    Else
        Select_A_Folder = objFolderItem.Path
        Ok = True
    End If
    
    'Lupin -> Je ne comprends pas la necessité de cette ligne
    On Error GoTo 0

End Function
'

Private Sub OptionButton1_Click()
    Choix = 1
End Sub
'

Private Sub OptionButton2_Click()
    Choix = 3
End Sub
'

Private Sub OptionButton3_Click()
    Choix = 4
End Sub
'

Private Sub OptionButton4_Click()
    Choix = 4
End Sub
'

Private Sub OptionButton5_Click()
    Choix = 5
End Sub
'

Private Sub OptionButton6_Click()
    Choix = 6
End Sub
'

Private Sub OptionButton7_Click()
    Choix = 8
End Sub
'

Private Sub Recherche_Click()
    
    Erreur
    If Valid = 1 Then
        Chemin = Select_A_Folder("Veuillez sélectionner un dossier dans lequel s'effectuera la recherche par " & Choix & " de " & Mot & "", "c:\Convoyeurs\EXCEL\")
        If (Ok) Then
            Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A7:L65536").Clear
            Application.Workbooks("recherche.xls").Worksheets("listing").Cells.Clear
            Lister
            Chercher
        End If
    End If
    Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
    Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A" & K & "").Select
    MsgBox ("" & ((K - 7) / 4) & " résultat(s) trouvé(s)")
    
End Sub

Function Chercher()

    K = 7
    For Cellule = 3 To (Derniere_Colonne + 2)
        Fin = Application.Workbooks("recherche.xls").Worksheets("listing").Cells(65536, Cellule).End(xlUp).Row
        'Lupin -> Où est définit la variable [a]???
        For a = 1 To Fin
            Workbooks.Open Feuil2.Cells(a, Cellule).Value
            Fichier = Split(Feuil2.Cells(a, Cellule).Value, "\")
            LaDerniere = Application.Workbooks(Fichier(4)).Worksheets("Tableau").Cells(65536, Choix).End(xlUp).Row
            'Lupin -> Où est définit la variable [i]???
            For i = 20 To LaDerniere
                If Application.Workbooks(Fichier(4)).Worksheets("Tableau").Cells(i, Choix).Value = Mot_Clef Then
                    Application.Workbooks(Fichier(4)).Worksheets("Tableau").Range("A" & i & ":L" & (i + 3) & "").Copy
                    Application.Workbooks("recherche.xls").Worksheets("Résultats").Activate
                    Application.Workbooks("recherche.xls").Worksheets("Résultats").Range("A" & K & "").Select
                    ActiveSheet.Paste
                    With Worksheets("Résultats")
                        .Hyperlinks.Add .Range("A" & K & ""), Feuil2.Cells(a, Cellule).Value
                    End With
                    K = K + 4
                End If
            Next i
            Application.Workbooks(Fichier(4)).Activate
            ActiveWorkbook.Close
        Next a
    Next Cellule
    Mot_Clef = ""
    
End Function
'

Function Lister()
    TousLesDossiers "" & Chemin & "", 0
    TousLesFichiers
End Function
'

Function TousLesDossiers(LeDossier$, Idx As Long)

    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Dossier = Fso.GetFolder(LeDossier)
    'examen du dossier courant
    For Each Flder In Dossier.subfolders
        Idx = Idx + 1
        Feuil2.Range("a" & Idx & "").Value = Flder.Path
    Next
  
    Set Fso = Nothing

End Function
'

Function TousLesFichiers()

    'Lupin -> Où est définit la variable [fs]???
    Set fs = Application.FileSearch
    
    If Feuil2.Range("A1").Value = "" Then
        Feuil2.Range("A1").Value = Dossier
        Derniere_Colonne = 1
    Else
        Derniere_Colonne = 4
    End If
    'Lupin -> Où est définit la variable [F]???
    For F = 1 To Derniere_Colonne
        With fs
            .LookIn = "" & Feuil2.Range("A" & F & "").Value & ""
            .Filename = "*"
            .Execute
            'Lupin -> Où est définit la variable [i]???
            For i = 1 To .FoundFiles.Count
                If F = 1 Then
                    Cellul = "C"
                Else
                    If F = 2 Then
                        Cellul = "D"
                    Else
                        If F = 3 Then
                            Cellul = "E"
                        Else
                            If F = 4 Then
                                Cellul = "F"
                            End If
                        End If
                    End If
                End If
                Feuil2.Range("" & Cellul & "" & i & "").Value = .FoundFiles(i)
            Next i
            If .FoundFiles.Count = 0 Then
                MsgBox "Aucun fichier n'a été trouvé."
            End If
        End With
    Next F
    
End Function

Je me pencherai sur le deuxième prog ultérieurement.
Bon courage.

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Répondre à Lupin.Arsene

KdTcA, le jeudi 4 août 2005 à 14:59:44

Merci!

Mais en fait le 1er programme me sert plus à rien vu que c'est le deuxième qui doit marcher pour être mis en place en maitenance d'un secteur de l'usine... :S

Répondre à KdTcA

KdTcA, le jeudi 4 août 2005 à 15:03:33

 'Lupin -> Où est définit la variable [F]???

Réponse pour à chaque fois que tu as mis çà:
çà sert à rien de les définir ces variables...

'Lupin -> Je ne comprends pas la necessité de cette ligne On Error GoTo 0

J'ai trouvé çà tout fait et je crois que c'est pour empêcher de venir dans le programme en cas d'erreur...

Répondre à KdTcA

Lupin.Arsene, le jeudi 4 août 2005 à 15:21:07

Re:

...çà sert à rien de les définir ces variables...

À mon avis :

Une variable non déféni pourra entrainer une erreur de type [1004]
Le genre qui te pose problème actuellement !!!

Dans le cas de [On Error GoTo 0] n'a aucun impact à mon avis
puisque c'est la ligne [On Error Resume Next
] qui est interprèté en premier.

Bon, je vais jeter un oeil sur le deuxième ... !!! ???

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Répondre à Lupin.Arsene

KdTcA, le jeudi 4 août 2005 à 15:25:32

Je n'ai aucun message d'erreur!

Au niveau de ce type de ligne :

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = mot_clef Then

> marche pas

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = "" & mot_clef & ""Then

> marche pas

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = "31/12/2005" Then

> marche

Répondre à KdTcA

KdTcA, le jeudi 4 août 2005 à 16:41:19

Problème non résolu (merci de poster un complément d'information pour faire remonter le fil de discussion)
voilà c'est fait... lol
L'intelligence c'est comme la confiture moi on en a plus on l'étale...

Répondre à KdTcA

Lupin.Arsene, le jeudi 4 août 2005 à 16:41:50

Re:

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = format(mot_clef, "dd/mm/yyyy") Then

ou

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = format(mot_clef, "jj/mm/aaaa") Then

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Répondre à Lupin.Arsene

KdTcA, le jeudi 4 août 2005 à 16:45:21

:S

Ni l'un ni l'autre! :'( L'intelligence c'est comme la confiture moi on en a plus on l'étale...

Répondre à KdTcA

random, le jeudi 4 août 2005 à 17:05:37

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = format(mot_clef, "dd/mm/yyyy") Then
msgox("je suis dans la boucle")
si on n'a pas le message
on n'entre pas dans lacondition

sinon le pb vien d'ailleurs
elle est pas belle, la vie ?

Répondre à random

KdTcA, le jeudi 4 août 2005 à 18:07:06

Ben c'est çà qui marche pas! L'intelligence c'est comme la confiture moi on en a plus on l'étale...

Répondre à KdTcA

Lupin.Arsene, le jeudi 4 août 2005 à 17:29:28

Suite:

si :

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = FormatDateTime(mot_clef) Then

ou

Dim DateCible As Date

DateCible = FormatDateTime(Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value)

if ( DateCible = FormatDateTime(mot_clef) Then

Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Répondre à Lupin.Arsene

KdTcA, le jeudi 4 août 2005 à 18:07:29

Ok je tente demain! L'intelligence c'est comme la confiture moi on en a plus on l'étale...

Répondre à KdTcA

KdTcA, le vendredi 5 août 2005 à 09:44:55

If Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value = FormatDateTime(mot_clef)

çà marche!!!! incompréhensible!!!! parce que comme Lupin.Arsene a pu le voir, il n'y avait pas besoin de mettre çà dans le premier programme pour que çà marche! allez savoir pourquoi...

Merci, je vous tiens au courant pour la suite... L'intelligence c'est comme la confiture moi on en a plus on l'étale...

Répondre à KdTcA

28 réponses 12 Suivant

Posez votre question Répondre

Excel VBA - Textbox à saisie conditionnée (Résolu) Bonjour, Après avoir longtemps suivi en visiteur, j'ai décidé de m'inscrire, pour faciliter les échanges. Une fois n'est pas coutume, je suis sur une petite programmation Excel VBA pour laquelle je rencontre quelques difficultés. Je vais tenter de les... www.commentcamarche.net/forum/affich-3696419-excel-vba-textbox-a-saisie-conditionnee

Lien internet sous excel VBA bonjour, réalisant une base de donnée sous Excel VBA, je souhaiterai à partir d'une action sur un bouton, ouvrir un site internet à partir de son adresse inscrite dans une TextBox Merci d'avance. www.commentcamarche.net/forum/affich-2967300-lien-internet-sous-excel-vba

Protection classeur excel VBA (Résolu) Bonjour à tous, Tout d'abord, précisons que je travaille sous excel 97... Désolé!! J'ai créé un classeur, avec plein de codes VBA, que je voudrais protéger à 100%. Pour cela j'ai protéger mon classeur par Outils/Protection/protéger le classeur. Il n'y... www.commentcamarche.net/forum/affich-11236816-protection-classeur-excel-vba

Résultats pour [EXCEL VBA]

Insérer un gif animé dans ExcelPour insérer une image gif animée dans un classeur Excel, le réflexe est de faire le menu insertion / image, mais cela ne fonctionne pas. C'est normal car l'animation est faite par plusieurs images et l'importation se limite à la première. Pour que... www.commentcamarche.net/faq/sujet-8019-inserer-un-gif-anime-dans-excel

VBA et les collections d'objets.VBA et les collections d'objets Quand plusieurs (beaucoup de) contrôles sont mis sur une feuille ou un Userform il est parfois fastidieux d'écrire du code dans chaque évènement des contrôles. Ce Tuto vous permet de traiter vos contrôles comme... www.commentcamarche.net/faq/sujet-10397-vba-et-les-collections-d-objets

Résultats pour [EXCEL VBA]

[Excel VBA] Filtre sur couleur de cellules... (Résolu)Bonjour, Je cherche a faire une macro VBA qui filtre les données d'une colonne sous Excel 2003 avec comme critère la couleur des cellules... Par exemple, dans une colonne de 200 données, j'ai 50 cellules jaunes, et je ne veux voir que ces 50 cellules... www.commentcamarche.net/forum/affich-3801914-excel-vba-filtre-sur-couleur-de-cellules

Excel VBA macro mots clésbonjour tout le monde je suis neophyte en ce qui concerne le monde de VBA et des macros j aurai aimé savoir s il etait possible sans y passé 6 mois (pour moi)de faire une macro qui me permettre de rechercher des mots clés dans un fichier excel si... www.commentcamarche.net/forum/affich-2277677-excel-vba-macro-mots-cles

Comparer cellules de 2 feuilles excel VBABonjour à tous, je suis débutante en VBA. Je me casse la tête depuis plusieurs heures sur un problème certainement simplissime... Voilà j'ai deux tableaux dans deux feuilles excel d'un même classeur. J'aimerais pouvoir coloriser en jaune toutes les... www.commentcamarche.net/forum/affich-2688157-comparer-cellules-de-2-feuilles-excel-vba

Résultats pour [EXCEL VBA]