Bonjour,

Je suis intérressé par le code de la faq, en effet j'ai une base fractionnée appli/données, et je voudrai compacter de temps temps par un bouton, la base donnes depuis la base appli,donc ce code est tout à fait celui qu'il me faut :

seulement je n'arrive pas à le faire fonctionner , je bloque :

Voilà le code en question :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub cmdCompacter_Click ()
    sNomBase= "C:\Mes documents\Base.MDB" 
    sNomBaseTmp= "C:\Mes documents\BaseTmp.MDB" 
    DBEngine.CompactDatabase sNomBase, sNomBaseTmp '1. Compactage dans une nouvelle base  
    Kill sNomBase '2. Suppression de la base originale  
    Name sNomBaseTmp As sNomBase '3. Renommer la base compactée avec le nom de la base originale  
End Sub
lien de la faq http://access.developpez.com/faq/?page=General#Compact

Tout d'abord j'ai ajouter ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
dim snombase as string
dim snombase as string
sinon ca ne fonctionne pas , et maintenant je suis bloqué à ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
DBEngine.CompactDatabase sNomBase, sNomBaseTmp .
comment dois-je déclarer , ou préciser DBengine.Compactdatabase ???

il me manque pas grand chose , mais je tourne en rond !!
Je suis pas très calé en code, j'ai cherché dans l'aide access, le forum , mais je n'ai pas réussi à m'en sortir

merci de votre aide