Valeur msgbox dans une cellule

Résolu/Fermé

freddv Messages postés 13 Date d'inscription mardi 9 juin 2009 Statut Membre Dernière intervention 18 septembre 2012 - 9 juin 2009 à 11:38
freddv Messages postés 13 Date d'inscription mardi 9 juin 2009 Statut Membre Dernière intervention 18 septembre 2012 - 9 juin 2009 à 12:26

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

A voir également:

Valeur msgbox dans une cellule
Aller à la ligne dans une cellule excel - Guide
Si cellule contient texte alors ✓ - Forum Excel
Verrouiller cellule excel - Guide
Excel renvoyer la valeur d'une cellule en fonction d'une autre ✓ - Forum Excel
Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel

1 réponse

Réponse 1 / 1

freddv Messages postés 13 Date d'inscription mardi 9 juin 2009 Statut Membre Dernière intervention 18 septembre 2012
9 juin 2009 à 12:26

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

Discussions similaires

Problème de restrictions

Excel VBA : Récupérer la valeur d'une cellule

Excel:récupérer le contenu d'une cellule en fonction d'une autre

formule de calcule

Comment affecter une valeur à une cellule contenant du texte

Discussions similaires

Newsletters