Trouver fichier avec un joker dans VBA/Access

Question

Bonjour,

J'essaie de mettre à jour une table avec un code VBA.

Ça fonctionne si je nomme mon fichier exactement le même que dans mon répertoire.

Par contre, mon fichier commence par "testa" mais le reste du nom peut varier genre "testagon1m5.csv".

Je veux importer le fichier qui commence par "testa" et qui termine par ".csv"

J'ai essayé ceci : 
DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM Test"
    DoCmd.TransferText acImportDelim, "SPECIF", "Test", "C:testa" & "*" & ".csv", False
    DoCmd.SetWarnings True

Mais ça ne fonctionne pas.

Merci de m'aider.

NHenry · Answer

Bonjour, 

Si c'est du VBA, il faut que ce soit dans la catégorie VBA, je déplace.

Regardes la commande Dir$.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

ucfoutu · Answer

Bonjour,
- On commence par dresser la liste des fichiers correspondant à ce critère ===>>
Utilisation de la fonction Dir (à lire dans ton aide VBA avec exemple) qui permet l'utilisation de caractères génériques (ce que tu appelle "jokers")
- mais surtout :
Je veux importer le fichier qui commence par "testa" et qui termine par ".csv" 
et quid si plusieurs trouvés, correspondant à ce critère ?
Car ne me dis pas qu'il n'y en a qu'un ! car, si tel était le cas, j'ai des difficultés à "voir" pourquoi il n'aurazit pas été nommé tout simplement "testa.CSV, hein ... ===>> explique donc !

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

bigaccess · Answer

Oui il n'y en a qu'un qui commence par "testa".

ucfoutu · Answer

Rappel, donc :
Car ne me dis pas qu'il n'y en a qu'un ! car, si tel était le cas, j'ai des difficultés à "voir" pourquoi il n'aurait pas été nommé tout simplement "testa.CSV, hein ... ===>> explique donc ! 

Ma remarque reste on ne saurait plus d'actualité.
Ta réponse ? 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Trouver fichier avec un joker dans VBA/Access

4 réponses

Votre réponse

Discussions similaires