Code en VBA Résolu/Fermé

Question

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

xav3601 · Answer

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!

lermite222 · Answer

Bonjour,
Tu a déja fait un essais de code ?
Si oui, montre ce que tu a déja fait.
A+

jijudu · Answer

Salut et 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

lermite222 · Answer

Voir les sous fonctions de cette démo
A+

Bidouilleu_R · Answer

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

Bidouilleu_R · Answer

Oups!
j'avais pas vu le post 4 de lermite222,
Désolé!
A+

jijudu · Answer

OK super vos exemples et le lien ont rendu la tache facile.

Merci

Code en VBA

7 réponses

Discussions similaires