Renommer un objet dans une base externe
Cette fonction permet de renommer un objet se trouvant dans une autre base de données.
L'argument "strDb" correspond au chemin complet de la base externe où l'on souhaite renommer un objet, il s'agit d'une donnée de type String.
L'argument "intType" correspond au type d'objet que l'on souhaite renommer, voir les commentaires de la fonction pour déterminer la valeur à mettre. (à partir d'Access 2000, il est possible de définir le type de donnée de cet argument comme AcObjectType en mettant intType As AcObjectType)
L'argument "strNew" correspond au nouveau nom que l'on souhaite donner à l'objet à renommer, il s'agit d'une donnée de type String.
L'argument "strOld" correspond au nom de l'objet que l'on souhaite renommer, il s'agit d'une donnée de type String.
Public Function RenameObjectExterne(strDb$, intType%, strNew$, strOld$)
'** intType : 0 pour table, 1 pour requête, 2 pour formulaire
'** 3 pour état, 4 pour macro et 5 pour moduleDim acApp As Object
Set acApp = CreateObject("Access.Application")
With acApp
.OpenCurrentDatabase strDb
.DoCmd.Rename strNew, intType, strOld
.CloseCurrentDatabase
End WithacApp.Quit: Set acApp = Nothing
End Function
Cette fonction pourra être appelée dans VBA de la façon suivante :
RenameObjectExterne "c:\...\BaseExterne.mdb", 2, "NouveauNomObjet", "AncienNomObjet"
Auteur : Jessy SEMPERE