Automatiser import/export fichiers normalisés

Question

Bonjour, 

Je recupere des fichiers excels pour les importer dans des tables, je fais cela en vba, une boite de dialogue s'ouvre pour selectionner le fichier,cependant au vu du nombre important de fichier à importer, je voudrais pouvoir faire une boucle qui va chercher tous les fichiers. Mes fichiers seront donc enregistré sous cette forme nomfichier_import_201011.xls/csv

Ensuite avec un autre bouton, j'execute des requetes qui crée d'autres tables.
Ces tables je voudrais pouvoir les exporter en les nommant toujours avec une norme (nomfichier_export_201011.xls).

Avez-vous des idées?

Krysstof · Answer

bout de code qui utilise l'objet FSO de windows script hosting


Dim fso As FileSystemObject
Dim fld As Folder
Dim f As File

Set fld = fso.GetFolder("mon dossier avec le chemin complet")

For Each f In fld.Files
    'test du nom si nécessaire
    If (LCase(Left(f.Name, 88)) = "il fait beau") Then
        'truc a faire
    End If
    'test extension
    If (UCase(Right(f.Name, 3)) = "XLS") Then
        'truc a faire
    End If
    '... ou autre test
    
    '... ou pas de test du tout et on traite TOUS les fichiers du dossier
    
Next

cela va parcourir tous les fichier d'un dossier

Automatiser import/export fichiers normalisés

1 réponse

Discussions similaires

Newsletters