Discussion :

[SheNigt_]

Bonjour,

Je souhaiterai qu'un utilisateur puisse 'sauvegarder' une table Access.
Pour cela j'utilise la fonction CopierObjet dans une macro.
J'aimerai que l'utilisateur indique lui même le nom de la table sauvegardée, et là je ne sais pas comment m'y prendre...

Quelqu'un pourrait m'aider ?

Merci d'avance,

[helas]

Créer un nouveau Module et copier cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Function CopieDeTable()
 Dim NomTable As String, ok As Boolean
 
 ok = True
 NomTable = InputBox("Entrer le nom de la table à sauvegarder : ", "Saisie")
 Do
  
  Rem *** Teste la présence de la table ***
  For Each t In CurrentDb.TableDefs
   If t.Name = NomTable Then
    ok = False          'la table existe déjà
    Exit For
   End If
  Next t
  
  If ok Then
   Exit Do      'la table peut être copier
  Else
   NomTable = InputBox("Cette table existe déjà" & vbCrLf & "Entrer un autre nom de table à sauvegarder : ", "Saisie")
   ok = True
  End If
 
 Loop
 
 DoCmd.CopyObject , NomTable, acTable, "MaTable"
 
End Function

la fonction valide le nom si la table n'existe pas sinon invite à entrer un nouveau nom pour la table à sauvegarder
Le nom MaTable est à modifier avec le vrai nom de la table à sauvegarder

Pour lancer à partir d'une macro, sélectionner l'action ExecuterCode et entrer dans le nom de la fonction CopieDeTable ()

[SheNigt_]

Merci mille fois, t'es un champion