Discussion :

[Orakle]

Bonjour,

je cherche l'expression VBA qui me traduit :

Code :

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

Si la Table MaTable existe alors la supprimer !

J'ai trouvé quelque chose d'à peu près similaire sur les requêtes mais ce n'est pas exactement ce que je cherche.

Si quelqu'un pouvait m'aider

merci

[random]

on error resume next
supprimer table
on error goto 0

[Orakle]

Je ne comprend pas le sens de cette réponse, tu peux m'en dire plus stp ?

[Tofalu]

Je ne comprend pas le sens de cette réponse, tu peux m'en dire plus stp ?

Tout simplement, tu tentes de supprimer la table, et si une erreur survient tu la gère. C'est ce que fait le on error resume next

Exemple :

On error resume next
CurrentDb.Execute "DROP TABLE MATABLE"

[Mahefasoa]

Salut,

Consulte dans l'aide d'Access la méthode DeleteObject de DoCmd qui (je crois) te permettras de supprimer un objet de la base de données.
Pour vérifier l'existence d'une table dans la base, recherche dans le FAQ tu y trouveras ce dont tu as besoin.

Bon courage

Voici l'extrait du fichier d'aide d'Access qui t'explique l'utilisation de la méthode DeleteObject

La méthode DeleteObject exécute l'action DeleteObject dans Visual Basic.

expression.DeleteObject(TypeObjet, NomObjet))
expression Requise. Expression renvoyant l'un des objets figurant dans la liste Application.

TypeObjet AcObjectType facultatif.

AcObjectType peut être l'une de ces constantes AcObjectType.
acDataAccessPage
acDefault default
acDiagram
acForm
acFunction
acMacro
acModule
acQuery
acReport
acServerView
acStoredProcedure
acTable

NomObjet Variant facultatif. Expression chaîne qui est le nom valide d'un objet du type sélectionné avec l'argument typeobjet . Si vous exécutez du code Visual Basic contenant la méthode DeleteObject dans une base de données bibliothèque, Microsoft Access recherche un objet de ce nom d'abord dans la base de données bibliothèque, puis dans la base de données en cours.

Remarques
Pour plus d'informations sur le mode de fonctionnement de l'action et de ses arguments, reportez-vous à la rubrique Action.

Si vous laissez les arguments typeobjet et nomobjet vierges (la constante par défaut acDefault est choisie pour typeobjet), Microsoft Access supprime l'objet sélectionné dans la fenêtre Base de données. Vous pouvez utiliser l'action SelectObject ou la méthode SelectObject en attribuant Oui (True) à l'argument In Database Window.

Exemple
Cet exemple supprime la table spécifiée :

Code :

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

DoCmd.DeleteObject acTable, "Former Employees Table"

[Orakle]

Bonjour,

déjà merci à vous pour vos réponses !

@mahefasoa, merci pour le docmd.deleteObject mais c'est déjà ce que j'utilise !

Je me rend compte que je ne me suis peut être pas suffisament exprimer sur ma première demande, don je vais tenter d'améliorer.

Lors du démarrage d'une base déployée sur plusieurs postes utilisateurs je fais des deleteobject de plusieurs tables, pour ensuite les réimporter, or, il arrive pour une raison X, que parfois les tables sont absentes au moment du démarrage, ce qui m'occasionne une erreur puisque je tente de supprimer quelque chose qui n'est pas présent.

Jusque là il existait une macro pour réimporter manuellement ces tables, mais cela induisait que je devais me déplacer sur le poste en question et intervenir manuellement en, supprimant les tables pour éviter des redondances et lancer la macro des imports.

Ma premiere idée était de faire simplement un réimport des tables et m'envoyer un mail pour m'avertir du poste qui avait eu ce probleme, mais au final il aurait toujours fallu me déplacer pour supprimer les tables réimportées qui étaient déjà présentes (réimport avec renommage MaTable et MaTable1)

J'aurais pu chercher une solution qui tente à suprimer les table avec un caractere numerique à la fin, seulement il existe déjà dans cette base des tables avec des caracteres numeriques, donc pas possible non plus.

Mais la solution je viens de la trouver grace à vous tout de même !

Code :

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

On Error Resume Next

est le cas vraiment parfait de ce que je recherchais comme solution, je l'avais déjà vu mais n'en comprennais pas toujours la subtilité. C'est chose faite maintenant !

Donc merci à random et Tofalu !