Discussion :

[victorzecat]

* Bonjour, *

A chaque import de fichier, je souhaiterai renseigner automatiquement un champ de ma base du nom du fichier importé:

Exemple

Imaginons une base simple

Fournisseur | Regroupement | Valeur | Source

A chaque import de fichier, mon champ source aurait pour valeur contenue le nom de mon fichier source.

Merci pour votre aide

Cordialement

[Invité]

Bonjour

Comment fais-tu l'import de ce fichier ?

Si c'est manuellement je ne pense pas que ce soit possible.

Par contre si c'est par programmation, il faut utiliser par exemple une requête d'ajout (ou mise à jour) pour renseigner ton champs.

Philippe

[victorzecat]

Bonjour,

L'import est automatisé:

Un code VBA importe l'ensemble des fichiers situé dans un répertoire;

A chaque passage de boucle:
Les données de la table IMPORT sont éffacées
Import des données dans la table d'import
Déversement via une requête mise à jour dans une table BASE
C'est dans la requête mise à jour qu'il a un champ dont la valeur par défaut est définie à la main.

C'est cette étape que je souhaite automatiser

[/Edit]
Vu que le programme est en cours de dvpt;

Pour le côté pratique, j'ai pour l'instant volontairement limité le nombre de fichier dans le répertoire à 1, pour des raisons pratiques (sinon on se paumerait)

[jj4822]

Bonjour.


Voir Sauf erreur de ma part :
http://www.developpez.net/forums/d81...titre-fichier/

Le titre du post est "[AC-2003] inserer une valeur dans un champ selon le titre d'un fichier " poste par Maestro 972 le 18/09/09 ma reponse le meme jour a 19h44.

Je pense que ca devrait resoudre le probleme.

Cdlt

[victorzecat]

Merci pour vos réponses;

Entre temps j'ai trouvé la solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim oFSO As Scripting.FileSystemObject
Dim strChemin As String
 
strChemin = "Le chemin/01-02.txt"
 
Set oFSO = New Scripting.FileSystemObject
 
gauche = Left(oFSO.GetBaseName(strChemin), 2)
droite = Right(oFSO.GetBaseName(strChemin), 2)
 
DoCmd.RunSQL "UPDATE IMPORT SET Période1 =" & gauche & ";"
DoCmd.RunSQL "UPDATE IMPORT SET Période2 =" & droite & ";"

Merci pour tout!!!