Discussion :

[sizzlak]

Bonjour,

je travaille sur ACCESS 2000 et je cherche à automatiser une procédure de copîe de sauvegarde mensuelle de table. j'utilise le code suivant pour ça :


Public Sub OuvrirCommandes()
DoCmd.OpenTable "BLOCGYN", acViewNormal, acReadOnly
DoCmd.CopyObject , "BLOCGYN_", acTable, "BLOCGYN"
DoCmd.Close acTable, "BLOCGYN"

End Sub


seulement je voudrais savoir si il est possible de rajouter dynamiquement le mois et l'année dans le nom de la table copiée (par exemple "BLOCGYN_07/2006") sachant que la table en question contient ces informations dans 2 champs séparés.

merci d'avance
arno

[loufab]

Bonjour,

Récupère l'information des champs au moyen d'un Dlookup()
une fois les infos placées dans 2 variables une concaténation avec &
te permettra de créer le nom que tu souhaites.

Cordialement,

[sizzlak]

merci pour ce premier élément de réponse qui m'a permit de récupérer les informations nécessaire et les coller dans des variables :

DoCmd.OpenTable "BLOCGYN", acViewNormal, acReadOnly
Dim varX As Variant
varX = DLookup("[MOIS]", "BLOCGYN")
Dim varY As Variant
varY = DLookup("[ANNEE]", "BLOCGYN")
DoCmd.CopyObject , "BLOCGYN_", acTable, "BLOCGYN"
DoCmd.Close acTable, "BLOCGYN"

cependant, je ne parvient pas à trouver la syntaxe correcte pour inscrire ces variable dans le nom de la copie : "BLOCGYN_???????".

je pense pas être trop loin de la solution mais je tourne un peu en rond....
merci d'avance

[loufab]

Une remarque :

- DoCmd.OpenTable "BLOCGYN", acViewNormal, acReadOnly
Pourquoi ouvrir la table ? ce n'est pas obligatoire pour faire la copie de l'objet.

- DoCmd.Close acTable, "BLOCGYN"
Du coup si on ne l'ouvre pas il est inutile de la fermer

Code :

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

1
2
3
4
5
6
 
Dim varX As Variant
varX = DLookup("[MOIS]", "BLOCGYN")
Dim varY As Variant
varY = DLookup("[ANNEE]", "BLOCGYN")
DoCmd.CopyObject , "BLOCGYN_" & varX & "-" & varY, acTable, "BLOCGYN"

[sizzlak]

merci beaucoup,

ça tourne parfaitement