valeur msgbox dans une cellule Résolu/Fermé

Question

Bonjour,
voila j'ai récupéré un bout de code sur internet qui recherche dans un répertoire donné le nombre de fichier correspondant a leur extention de fichier, le souci c'est qu'il me donne le nombre de fichier dans un msgbox, alors que je veux le nombre de fichier dans une cellule, merci de votre aide.

Sub Main()

Set fs = Application.FileSearch
With fs
   '.LookIn = "C:\Documents and Settings\abc123\Mes documents\"
    .LookIn = "C:\Documents and Settings\" & Range("A1").Value & "\Mes documents\"
    .Filename = "*.*" '"*.doc"
    
    
    If .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With
End Sub

freddv · Answer

J'ai trouvé, voici la réponse si cela peut aider quelqu'un...ma cellule de destination est E13.

Sub Main() 

Set fs = Application.FileSearch 
With fs 
'.LookIn = "C:\Documents and Settings\abc123\Mes documents\" 
.LookIn = "C:\Documents and Settings\" & Range("A1").Value & "\Mes documents\" 
.Filename = "*.*" '"*.doc" 


If .Execute(SortBy:=msoSortByFileName, _ 
SortOrder:=msoSortOrderAscending) > 0 Then 

  Range("E13").Select
ActiveCell.FormulaR1C1 = Format(.FoundFiles.Count , "")

'MsgBox "There were " & .FoundFiles.Count & _ 
" file(s) found." 
For i = 1 To .FoundFiles.Count 
'MsgBox .FoundFiles(i) 
Next i 
Else 
'MsgBox "There were no files found." 
End If 
End With 
End Sub

Valeur msgbox dans une cellule

1 réponse

Discussions similaires