Discussion :

[FCL31]

Salut

J'ai une BDD Access "Base Test.mdb" avec une table "Presse"
Je voudrais modifier le nom des champs de la table depuis Excel :

J'ai par exemple le champ "'Date'" que je voudrais changer par le champ "Date"
Ou alors simplement supprimer les apostrophes de début et de fin des Champs

Malheureusement je n'ai aucune idée de la procédure a suivre

[sabzzz]

bonjour FCL31,

tu pourrais t'inspirer du code acces ici,
http://access.developpez.com/faq/?pa...ps#RenomChpADO
en creant un object acces avec Microsoft DAO 3.x Object Library

[FCL31]

Merci sabzzz

Moi j'ai fais ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim Tb As DAO.TableDef
    Dim Fd As DAO.Field
 
Set Db = DAO.OpenDatabase("C:\Users\FCL\Desktop\Base test.mdb", False, False)
 
For Each Tb In Db.TableDefs
For Each Fd In Tb.Fields
    If Fd.Name = "'Date'" Then
        Fd.Name = "Date"
    End If
Next Fd
Next Tb

Qui a l'air de marcher pour un champ mais je sais pas si sa peu s'adapter facilement pour une vingtaine de champs et pour une vingtaine de champs, j'ai peur que se soit long a faire

Que pensez vous du code ?

[rvtoulon]

Bjr, FCL31, sabzzz
tu peux essayer ceci :

Code :

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

1
2
3
4
5
6
7
For Each Tb In Db.TableDefs
If Tb.Name = "Presse" Then
For Each Fd In Tb.Fields
 Fd.Name = Replace(Fd.Name, "'", "")
   Next Fd
End If
Next Tb

en rajoutant un if tu n'appliqueras le changement qu'a la table Presse, sinon tu parcours chaque table.

[FCL31]

Salut rvtoulon

J'avais essayer un truc un peu similaire mais sans succès

j'ai donc pris le temps de faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set Db = DAO.OpenDatabase("C:\Users\FPRIEUR.SAG\Desktop\Base test.mdb", False, False)
 
For Each Tb In Db.TableDefs
For Each Fd In Tb.Fields
    If Fd.Name = "'Date'" Then
        Fd.Name = "Date"
    Else
    If Fd.Name = "'Désignation'" Then
        Fd.Name = "Désignation"
    Else
    If Fd.Name = "'Prix catalogue'" Then
        Fd.Name = "Prix catalogue"
    Else
    If Fd.Name = "'Prime'" Then
        Fd.Name = "Prime"
    Else
    If Fd.Name = "'Total'" Then
        Fd.Name = "Total"
    Else
...

Se qui a l'air de marcher

[rvtoulon]

As-tu essayé le code que j'ai mis?
Parce que j'ai essayé et il fonctionne

[FCL31]

Excuse moi mais je crois que je me suis mal expliqué

C'est au niveau des enregistrement (et pas le nom des champs) ma Table "Presse" sur Access au je voudrais remplacer le "£" par des apostrophe

[rvtoulon]

J'ai bien compris .
lorsque tu crées la table "presse" elle est vide, aucun enregistrement, ok. Le code que je viens te de donner permet lorsque tu inséres des données dans ta table de modifier en direct les apostrophes ou en modifiant la fonction les "£" dans le futur enregistrement, donc je modifie avant d'insérer ok. (C'est à mon avis plus simple et plus rapide)
Si j'ai compris tu inséres les données à partir d'une feuille Excel, donc ça devrait le faire, j'ai testé.

Maintenant le probleme est différent si tu a déjà insérer les données dans la base et que tu veuilles les modifier. C'est sur le code donné ne fonctionnera pas.
est-ce que j'ai bien compris ?

[FCL31]

Y'a pas moyen de faire un truc du style :

Code :

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

1
2
3
4
5
For Each Tbl In Db.TableDefs
For Each Fd In Tbl.Fields
    Fd.Name = Replace(Fd.Name, "£", "'")
Next Fd
Next Tbl

Comme je fait pour le nom des champs
Mais il me le faut pour les enregistrements
Je pense que se doit être possible ?


Edit : je pense que si je met "£" ou "''" sa reviendra au même sur Access, ils seront présent dans mes enregistrement sur ma table Access
Or avec n'importe qu'elle solution, il ne me faut que une apostrophe au lieu de deux

[rvtoulon]

Edit : je pense que si je met "£" ou "''" sa reviendra au même sur Access, ils seront présent dans mes enregistrement sur ma table Access

As-tu essayé pour les "''" ? Car pour les enregistrement çà fonctionne et c'est préconisé.

Fait ce test:
1) Tu crée une nouvelle base dans "C:\" que tu appelles "Test.mdb". quand elle est créee tu fermes Access.

2) Tu ouvres un nouveau fichier Excel dans lequel tu crée un module ou tu colle ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub test()
Dim Db As DAO.Database
Dim strSQL As String
 
[A1] = "Aujourd'hui"
 
Set Db = DAO.OpenDatabase("C:\Test.mdb", False, False)
 
strSQL = "CREATE TABLE T_ESSAI (Toto VARCHAR(30))"
Db.Execute strSQL 'Exécution de la reqête sql
'deconnexion de la base
Db.Close
 
Set Db = DAO.OpenDatabase("C:\Test.mdb", False, False)
strSQL = "INSERT INTO T_ESSAI VALUES ('" & DbleApostr(Range("A1")) & "')"
 Db.Execute strSQL
 
'deconnexion de la base
Db.Close
End Sub
 
Function DbleApostr(sEntree As String) As String
 Dim lLongueur As Long, sChar As String
 Dim sSortie As String, i As Long
 
 lLongueur = Len(sEntree)
 sSortie = ""
 
 For i = 1 To lLongueur 'on parcours toute la chaine de caractère
     sChar = Mid(sEntree, i, 1)
     If sChar = "'" Then 'si on trouve un '
        sChar = "''" ' alors on le double ''
     End If
     sSortie = sSortie & sChar
 Next i
 
 DbleApostr = sSortie
 End Function

3) Avant de lancer le code dans outils => Références => Coche Microsoft DAO x.x Object Library

4) Lance le code puis ouvre Access pour Vérifier :
Tu dois avoir une nouvelle Table Qui s'appelle "T_ESSAI" qui aura un champ du nom de "TOTO" et un enregistrement qui aura pour valeur "Aujourd'hui".

Pour afficher "Aujourd'hui" j'utilise la fonction DbleApostr qui transforme un "'" en "''".

Et on a bien "Aujourd'hui" dans la base et pas "Aujourd''hui".

[FCL31]

Je sais pas si c'est que je suis naze ou pas mais je viens de refaire avec mon code précédant en remplacement £ par ' et sa a l'air de marcher NIKEL


En tout cas, merci beaucoup a toi.

Heureusement que tu été là

PS: Si je remet tout en ordre dans mon code et si je rencontre un nouveau problème a se niveau là je reviendrais te voir