Discussion :

[béodéo]

Bonjour à tous,

Peut-être pourrez-vous m'aider :
Une ligne de code qui fonctionnait parfaitement jusqu'à maintenant sur tous les postes ou mon appli était installée, me renvoie une erreur 3051 sur un nouveau poste :

Code :

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

DoCmd.CopyObject chemin, [NomTAB], acTable, [NomTAB]

Cette commande est située dans une boucle qui permet de copier des tables, une à une, vers une autre base.
L'erreur d'exécution se lance au bout d'un nombre variable de copie de tables déjà effectuées.La base destinataire semble d'après le message d'erreur, être ouverte ou en mode exclusif ce qui empêcherait la commande.
Merci à celles et ceux qui pourront m'apporter leur lumière.

[loufab]

Bonjour,
Si je décrypte ta question :

Tu as créé une boucle sur l'instruction docmd.copy.

visiblement il n'a pas le temps de refermer la base distante avant la prochaine ouverture.

Tu devrais essayer de temporiser avec un doevents.

Code :

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

1
2
3
4
5
6
for.../while...
...
DoCmd.CopyObject chemin, [NomTAB], acTable, [NomTAB]
doevents
...
next/wend

Si le problème persiste il faudra envisager une autre approche.
Ouverture de la base destination via VBA, puis copie des tables à la volée avec SQL.

Cordialement,