Code en VBA
Résolu
jijudu
Messages postés
211
Date d'inscription
Statut
Membre
Dernière intervention
-
xav3601 Messages postés 3289 Date d'inscription Statut Membre Dernière intervention -
xav3601 Messages postés 3289 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Code en VBA
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
7 réponses
tu fais un truc qui ressemble a ca:
Set fs = CreateObject("Scripting.FileSystemObject")
set rep = fs.getfoleder("nom repertoire")
for each fileitem in rep
msgbox(fileitem.Name)
next
pour ce qui est de la recherche du OK dans le nom... c'est un peu plus complique, je ne me souviens plus de la fonction associe!
Set fs = CreateObject("Scripting.FileSystemObject")
set rep = fs.getfoleder("nom repertoire")
for each fileitem in rep
msgbox(fileitem.Name)
next
pour ce qui est de la recherche du OK dans le nom... c'est un peu plus complique, je ne me souviens plus de la fonction associe!
Salut et merci,
Non j'ai réfléchi mais rien tenté ....
Ton code comporte un probléme :
car il affiche "propriété ou méthode non gérée par cet objet" à la ligne
For Each fileitem In rep
Merci
Non j'ai réfléchi mais rien tenté ....
Ton code comporte un probléme :
Set fs = CreateObject("Scripting.FileSystemObject")
Set rep = fs.getfolder("C:\Calcul\Mauleon\Brut\Retranscri")
For Each fileitem In rep
MsgBox (fileitem.Name)
Next
car il affiche "propriété ou méthode non gérée par cet objet" à la ligne
For Each fileitem In rep
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Sub LitleDossier()
Dim fs, F, f1, s, sf
Dim Chemin As String
'mettre le nom du chemin
Chemin = "C:\Data"
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(Chemin)
Set sf = F.Files
For Each f1 In sf
If InStr(1, f1, "OK") > 0 Then ' il y a ok dans le nom du fichier
'mettre le reste du code ici
End If
Next
End Sub
Dim fs, F, f1, s, sf
Dim Chemin As String
'mettre le nom du chemin
Chemin = "C:\Data"
Set fs = CreateObject("Scripting.FileSystemObject")
Set F = fs.GetFolder(Chemin)
Set sf = F.Files
For Each f1 In sf
If InStr(1, f1, "OK") > 0 Then ' il y a ok dans le nom du fichier
'mettre le reste du code ici
End If
Next
End Sub
