Dans un article précédent intitulé Stocker tous les fichiers d’un répertoire dans une table Access, on a pu voir comment parcourir tous les fichiers d’un dossier, et stocker leur nom ou leur chemin complet...
Voici une petite fonction VBA qui permet de compter le nombre de sous-dossiers dans un dossier particulier. En pratique, cette fonction servira rarement toute seule, mais on verra plus tard comment la réutiliser dans...
L’instruction Dir En VBA, la commande Dir permet de lister les fichiers ou les sous-dossiers d’un répertoire précis. Généralement, le principe consiste à écrire une boucle qui va extraire, à chaque « tour », le nom...
Dans l’article Sauvegardes datées, il était question d’automatiser des sauvegardes d’un fichier de base de données, en copiant ces sauvegardes dans un dossier précis. Une lectrice m’a demandé comment vider ce dossier de manière...
Dans l’article d’hier, vous avez pu voir comment trier une liste de chaînes grâce à l’algorithme QuickSort. Mais on s’était arrêté sur un exemple un peu théorique. Aujourd’hui, on va se servir de cette...
Imaginez qu’en VBA vous ayez besoin de créer un fichier sur le bureau Windows de l’utilisateur. La première solution consiste à créer un fichier à cet emplacement : C:\Users\IDENTIFIANT\Desktop\monfichier.txt. Oui, mais : L’identifiant varie...
Le saviez-vous ? On a souvent besoin du chemin d’un dossier ou d’un fichier, par exemple pour le récupérer dans du code VBA. Plutôt que de retaper manuellement ce chemin, vous pouvez l’obtenir grâce...
Je souhaiterais automatiser la sauvegarde de ma base de données, en dupliquant le fichier MDB de temps en temps. Pour différencier les sauvegardes, l’idéal serait de dater chaque copie. Comment faire ?
Comment déclencher l’ouverture d’un dossier (répertoire) de Windows, comme le ferait un double-clic sur « Mes documents » par exemple ? Tapez le code qui suit dans l’événement Sur clic d’un bouton (ou à tout autre...
Comment obtenir la liste de tous les fichiers d’un répertoire (dossier) donné ? Le code Voici un bout de code qui devrait faire l’affaire (à recopier dans un module standard Access, comme d’habitude).
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
' --- ' AFFICHAGE DU CONTENU D'UN DOSSIER ' --- ' Sub ContenuDuDossier(ByVal strDossier As String) Dim strFichier As String ' Vérifier que le dossier existe bien If Dir(strDossier, vbDirectory) = "" Then MsgBox "Dossier introuvable !", vbExclamation Exit Sub End If ' Lister tous les fichiers du dossier strFichier = Dir(strDossier, vbNormal) While strFichier <> "" ' Afficher le nom du fichier Debug.Print strFichier ' Lire le fichier suivant strFichier = Dir Wend End Sub |
...
