Discussion :

[AndréPe]

Bonjour,
Pour supprimer une table d'une base externe, j'ai utilisé avec succès

Code :

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

1
2
3
4
5
 
Dim oWks As DAO.Workspace
  Set oWks = DBEngine.CreateWorkspace("", "admin", "", "dbusejet")
  Set db = oWks.OpenDatabase(nombase,False, False, "MS Access;PWD=")
  db.TableDefs.Delete strNom

Pour renommer la table strNom, dans le même environnement, je pensais que par analogie

Code :

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

1
2
 
db.TableDefs.Rename nouveau Nom, acTable, strNom

serait OK
Mais erreur "table strNom introuvable"

Il ya là qque chose qui m'échappe.
Dans le cas de la suppression, l'aide à la saisie sur la ligne
"db.TableDefs.Delete" ne donne rien, et la commande fonctionne,
alors que sur la ligne
"db.TableDefs.Rename" l'aide à la saisie fonctionne., mais la commande engendre une erreur.

Amitiés

[ft035580]

Salut,

Code :

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

1
2
3
4
5
6
7
Dim oWks As DAO.Workspace
Dim Tbl As DAO.TableDef
Set oWks = DBEngine.CreateWorkspace("", "admin", "", "dbusejet")
Set Db = oWks.OpenDatabase("Chemin Base.Mdb", False, False, "MS Access;PWD=")
Set Tbl = Db.TableDefs("NomTableOrigine")
Tbl.Name = ("NouveauNomTable")
Db.TableDefs.Refresh

[AndréPe]

Impeccable !
Un grand merci à toi et à tous ceux qui s'impliquent dans ce forum.

Il me reste encore beaucoup à apprendre et à comprendre.
Amicalement