Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre CFI
bonjour d'abord charger la réf Microsoft dao 3.xxx Sub modifNomChamp() Dim bd As Database, F As Field Set bd = OpenDataBase("chemin et nom base.mdb") Set F = bd.TableDefs("client").Fields("AncienNom") F.Name = "NouveauNom" bd.close set bd = nothing
End Sub
-- Pierre CFI MVP Microsoft Access
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "José" a écrit dans le message de news: 3f3f39de$0$27043$
Bonjour,
Quelqu'un saurait-il comment modifier le nom d'un champ d'une table Access à partir d'Excel ?
Merci
bonjour
d'abord charger la réf Microsoft dao 3.xxx
Sub modifNomChamp()
Dim bd As Database, F As Field
Set bd = OpenDataBase("chemin et nom base.mdb")
Set F = bd.TableDefs("client").Fields("AncienNom")
F.Name = "NouveauNom"
bd.close
set bd = nothing
End Sub
--
Pierre CFI
MVP Microsoft Access
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"José" <perez.jose@free.fr> a écrit dans le message de news: 3f3f39de$0$27043$626a54ce@news.free.fr...
Bonjour,
Quelqu'un saurait-il comment modifier le nom d'un champ d'une table Access à
partir d'Excel ?
bonjour d'abord charger la réf Microsoft dao 3.xxx Sub modifNomChamp() Dim bd As Database, F As Field Set bd = OpenDataBase("chemin et nom base.mdb") Set F = bd.TableDefs("client").Fields("AncienNom") F.Name = "NouveauNom" bd.close set bd = nothing
End Sub
-- Pierre CFI MVP Microsoft Access
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "José" a écrit dans le message de news: 3f3f39de$0$27043$
Bonjour,
Quelqu'un saurait-il comment modifier le nom d'un champ d'une table Access à partir d'Excel ?