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
A voir également:
- Valeur msgbox dans une cellule
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Bloquer une cellule excel - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Google Docs
- Attribuer une valeur à une cellule texte excel - Forum Excel
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
