Discussion :

[menguygw]

Bonjour,

Je construit en ce momoent une base de données Access dans laquelle j'ai des données mise à jour par l'utilisateur et d'autres qui le sont par des personnes étrangères à l'entreprise. L'entreprise stocke ces informations dans un fichier excel mis en forme (couleur...) bref, ce qui pose problème, ce sont les noms de champs extrèmement long avec des caractères spéciaux... Ces données seront mise à jour tous les ans en écrasant la table de l'année passé. Pour facilité ces mises à jour, je cherche un code permettant de tranférer le contenu du tableau Excel vers une table existante d'access MAIS je souhaite choisir les champs d'importation :

Ex : je souhaite que le champs " Route circulation pendant l'ouverture de la ligne" de la table excel soit importé dans le champs "route_circu_ouv" de la table access auparavant créée. Bien sûr je pourrai le faire manuellement, mais je dois avoir 50 champs à importer du tableau excel et il se peux que les noms de champs du tableau excel changent d'année en année.

Connaissez-vous un code qui s'approcherai de ce que je veux faire (cf image)?

Je pense que ça pourrait ressembler à ça !



Merci de votre aide

Gwénaël

[Invité]

Bonjour

Je pense qu'en utilisant Split et Join

J'avais un peu de temps, je me suis amusé à faire une petite fonction en vitesse :

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function Test(strTest As String) As String
    Dim tabTest() As String
    Dim i As Long
    tabTest = Split(strTest, " ")
    For i = 0 To UBound(tabTest)
        tabTest(i) = Left(tabTest(i), 4)
    Next i
    Test = Join(tabTest, "_")
 
End Function

En fait avec Split on éclate la chaine (passé dans la fonction) en un tableau, et prend les 4 premiers termes de chaque mot, et avec Join cela recrée l'ensemble.

Starec