Code en VBA
Résolu
jijudu
Messages postés
215
Statut
Membre
-
xav3601 Messages postés 3390 Statut Membre -
xav3601 Messages postés 3390 Statut Membre -
Bonjour cher forum,
Est-ce que qq1 de vous connaîtrez le bout de code VBA pour dire :
Pour tous les fichiers de tel dossier faire
1) lire le nom du fichier
2) Si une partie de ce nom comporte un "OK" alors ........
je ne sais vraiment pas comment dire en VBA pour dire lire le nom du fichier etc .....
Merci
Est-ce que qq1 de vous connaîtrez le bout de code VBA pour dire :
Pour tous les fichiers de tel dossier faire
1) lire le nom du fichier
2) Si une partie de ce nom comporte un "OK" alors ........
je ne sais vraiment pas comment dire en VBA pour dire lire le nom du fichier etc .....
Merci
A voir également:
- Code en VBA
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - 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
