Valeur msgbox dans une cellule
Résolu
freddv
Messages postés
13
Statut
Membre
-
freddv Messages postés 13 Statut Membre -
freddv Messages postés 13 Statut Membre -
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
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
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Valeur msgbox dans une cellule
- Comment aller à la ligne dans une cellule excel - Guide
- Verrouiller une cellule excel - Guide
- Cette valeur ne correspond pas aux restrictions de validation des données pour cette cellule ✓ - Forum Excel
- Excel si cellule contient partie texte ✓ - Forum Excel
- Dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. ✓ - Forum Google Docs
1 réponse
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
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
