bonjours à toutes et à tou
j'ai essayé le code pour compacter une base de données qui a été donné il y a deux jours. Or Il ne marche pas. Il y a un problème à la ligne Dim Fso As New FileSystemObject. comment faire? y a t'il une librairie a inclure
Merci de m'éclaire
@+
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
pour que FileSystemObject fonctionne il faut la référence : Microsoft Scripting Runtime -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ludivine" a écrit dans le message de news:
bonjours à toutes et à tous j'ai essayé le code pour compacter une base de données qui a été donné il y a deux jours. Or Il ne marche pas. Il y a un problème à la ligne Dim Fso
As New FileSystemObject. comment faire? y a t'il une librairie a inclure?
Merci de m'éclairer @+
Bonjour.
pour que FileSystemObject fonctionne il faut la référence :
Microsoft Scripting Runtime
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"ludivine" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:E4F6B7B0-823E-4FB0-A285-DD641EF0EC6F@microsoft.com...
bonjours à toutes et à tous
j'ai essayé le code pour compacter une base de données qui a été donné il
y a deux jours. Or Il ne marche pas. Il y a un problème à la ligne Dim Fso
As New FileSystemObject. comment faire? y a t'il une librairie a inclure?
pour que FileSystemObject fonctionne il faut la référence : Microsoft Scripting Runtime -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ludivine" a écrit dans le message de news:
bonjours à toutes et à tous j'ai essayé le code pour compacter une base de données qui a été donné il y a deux jours. Or Il ne marche pas. Il y a un problème à la ligne Dim Fso
As New FileSystemObject. comment faire? y a t'il une librairie a inclure?
Merci de m'éclairer @+
Rémy Coquard
| "ludivine" a écrit dans le message de | news: | > bonjours à toutes et à tous | > j'ai essayé le code pour compacter une base de données qui a été donné il | y a deux jours. Or Il ne marche pas. Il y a un problème à la ligne Dim Fso | As New FileSystemObject. comment faire? y a t'il une librairie a inclure? | > Merci de m'éclairer | > @+ |
Quand je compile, j'obtiens un message d'erreur "Variable non déclarée" pour le mot Params dans l'instruction : PathDB = Left$(Params.DB.Name, Len(Params.DB.Name) - Len(Tools.GetFileName(Params.DB.Name)))
Et en effet, d'où provient cette variable ?
RC
| "ludivine" <anonymous@discussions.microsoft.com> a écrit dans le
message de
| news:E4F6B7B0-823E-4FB0-A285-DD641EF0EC6F@microsoft.com...
| > bonjours à toutes et à tous
| > j'ai essayé le code pour compacter une base de données qui a été
donné il
| y a deux jours. Or Il ne marche pas. Il y a un problème à la ligne Dim
Fso
| As New FileSystemObject. comment faire? y a t'il une librairie a
inclure?
| > Merci de m'éclairer
| > @+
|
Quand je compile, j'obtiens un message d'erreur "Variable non déclarée"
pour le mot Params dans l'instruction :
PathDB = Left$(Params.DB.Name, Len(Params.DB.Name) -
Len(Tools.GetFileName(Params.DB.Name)))
| "ludivine" a écrit dans le message de | news: | > bonjours à toutes et à tous | > j'ai essayé le code pour compacter une base de données qui a été donné il | y a deux jours. Or Il ne marche pas. Il y a un problème à la ligne Dim Fso | As New FileSystemObject. comment faire? y a t'il une librairie a inclure? | > Merci de m'éclairer | > @+ |
Quand je compile, j'obtiens un message d'erreur "Variable non déclarée" pour le mot Params dans l'instruction : PathDB = Left$(Params.DB.Name, Len(Params.DB.Name) - Len(Tools.GetFileName(Params.DB.Name)))
Et en effet, d'où provient cette variable ?
RC
Raymond [mvp]
je ne connais pas le code ni la procédure que tu utilises ni le post. Tu aurais dû rester dans la conversation. je t'ai répondu pour les références, c'est tout. rémy et ludivine ? même source ou source différente ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rémy Coquard" a écrit dans le message de news:
| "ludivine" a écrit dans le message de | news: | > bonjours à toutes et à tous | > j'ai essayé le code pour compacter une base de données qui a été donné il | y a deux jours. Or Il ne marche pas. Il y a un problème à la ligne Dim Fso | As New FileSystemObject. comment faire? y a t'il une librairie a inclure? | > Merci de m'éclairer | > @+ |
Quand je compile, j'obtiens un message d'erreur "Variable non déclarée" pour le mot Params dans l'instruction : PathDB = Left$(Params.DB.Name, Len(Params.DB.Name) - Len(Tools.GetFileName(Params.DB.Name)))
Et en effet, d'où provient cette variable ?
RC
je ne connais pas le code ni la procédure que tu utilises ni le post. Tu
aurais dû rester dans la conversation. je t'ai répondu pour les références,
c'est tout.
rémy et ludivine ? même source ou source différente ?
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rémy Coquard" <remy.coquard@tele2.fr> a écrit dans le message de
news:OIf5RJdPEHA.3100@TK2MSFTNGP10.phx.gbl...
| "ludivine" <anonymous@discussions.microsoft.com> a écrit dans le
message de
| news:E4F6B7B0-823E-4FB0-A285-DD641EF0EC6F@microsoft.com...
| > bonjours à toutes et à tous
| > j'ai essayé le code pour compacter une base de données qui a été
donné il
| y a deux jours. Or Il ne marche pas. Il y a un problème à la ligne Dim
Fso
| As New FileSystemObject. comment faire? y a t'il une librairie a
inclure?
| > Merci de m'éclairer
| > @+
|
Quand je compile, j'obtiens un message d'erreur "Variable non déclarée"
pour le mot Params dans l'instruction :
PathDB = Left$(Params.DB.Name, Len(Params.DB.Name) -
Len(Tools.GetFileName(Params.DB.Name)))
je ne connais pas le code ni la procédure que tu utilises ni le post. Tu aurais dû rester dans la conversation. je t'ai répondu pour les références, c'est tout. rémy et ludivine ? même source ou source différente ?
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rémy Coquard" a écrit dans le message de news:
| "ludivine" a écrit dans le message de | news: | > bonjours à toutes et à tous | > j'ai essayé le code pour compacter une base de données qui a été donné il | y a deux jours. Or Il ne marche pas. Il y a un problème à la ligne Dim Fso | As New FileSystemObject. comment faire? y a t'il une librairie a inclure? | > Merci de m'éclairer | > @+ |
Quand je compile, j'obtiens un message d'erreur "Variable non déclarée" pour le mot Params dans l'instruction : PathDB = Left$(Params.DB.Name, Len(Params.DB.Name) - Len(Tools.GetFileName(Params.DB.Name)))
Et en effet, d'où provient cette variable ?
RC
Rémy Coquard
"Raymond [mvp]" a écrit dans le message de news: | je ne connais pas le code ni la procédure que tu utilises ni le post. Tu | aurais dû rester dans la conversation. je t'ai répondu pour les références, | c'est tout. | rémy et ludivine ? même source ou source différente ? |
En fait Ludivine à commencé un nouveau fil mais avec toujours le titre mentionné qui provenait de ma question sur le compactage automatique d'une base. Et www.eztree-msdn.com à répondu :
'************************************* Private Sub cmdCompactDB_Click() '************************************* Dim PathDB As String Dim PathMaquette2000 As String Dim Fso As New FileSystemObject
'**** Récupération des chemins des bases PathDB = Left$(Params.DB.Name, Len(Params.DB.Name) - Len(Tools.GetFileName(Params.DB.Name))) PathMaquette2000 = PathDB & "Maquette2000.mdb"
'**** Création du repertoire de compactage Call Fso.CreateFolder(PathDB & "COMPACTAGE")
'**** Compactage des bases vers le répertoire de compactage Call DBEngine.CompactDatabase(PathMaquette2000, PathDB & "COMPACTAGE" & Tools.GetFileName(PathMaquette2000))
End Sub
à la suite de quoi Ludivine à signalé une erreur sur FileSystemObject et moi sur Params.DB.Name.
RC
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:OEPuNTdPEHA.1276@TK2MSFTNGP11.phx.gbl...
| je ne connais pas le code ni la procédure que tu utilises ni le post.
Tu
| aurais dû rester dans la conversation. je t'ai répondu pour les
références,
| c'est tout.
| rémy et ludivine ? même source ou source différente ?
|
En fait Ludivine à commencé un nouveau fil mais avec toujours le titre
mentionné qui provenait de ma question sur le compactage automatique
d'une base. Et www.eztree-msdn.com à répondu :
'*************************************
Private Sub cmdCompactDB_Click()
'*************************************
Dim PathDB As String
Dim PathMaquette2000 As String
Dim Fso As New FileSystemObject
'**** Récupération des chemins des bases
PathDB = Left$(Params.DB.Name, Len(Params.DB.Name) -
Len(Tools.GetFileName(Params.DB.Name)))
PathMaquette2000 = PathDB & "Maquette2000.mdb"
'**** Création du repertoire de compactage
Call Fso.CreateFolder(PathDB & "COMPACTAGE")
'**** Compactage des bases vers le répertoire de compactage
Call DBEngine.CompactDatabase(PathMaquette2000, PathDB &
"COMPACTAGE" &
Tools.GetFileName(PathMaquette2000))
End Sub
à la suite de quoi Ludivine à signalé une erreur sur FileSystemObject et
moi sur Params.DB.Name.
"Raymond [mvp]" a écrit dans le message de news: | je ne connais pas le code ni la procédure que tu utilises ni le post. Tu | aurais dû rester dans la conversation. je t'ai répondu pour les références, | c'est tout. | rémy et ludivine ? même source ou source différente ? |
En fait Ludivine à commencé un nouveau fil mais avec toujours le titre mentionné qui provenait de ma question sur le compactage automatique d'une base. Et www.eztree-msdn.com à répondu :
'************************************* Private Sub cmdCompactDB_Click() '************************************* Dim PathDB As String Dim PathMaquette2000 As String Dim Fso As New FileSystemObject
'**** Récupération des chemins des bases PathDB = Left$(Params.DB.Name, Len(Params.DB.Name) - Len(Tools.GetFileName(Params.DB.Name))) PathMaquette2000 = PathDB & "Maquette2000.mdb"
'**** Création du repertoire de compactage Call Fso.CreateFolder(PathDB & "COMPACTAGE")
'**** Compactage des bases vers le répertoire de compactage Call DBEngine.CompactDatabase(PathMaquette2000, PathDB & "COMPACTAGE" & Tools.GetFileName(PathMaquette2000))
End Sub
à la suite de quoi Ludivine à signalé une erreur sur FileSystemObject et moi sur Params.DB.Name.
RC
Raymond [mvp]
j'ai trouvé les posts, il n'a jamais été précisé dans les posts si tu voulais compacter la base active ou une autre base. pour compacter la base active sous 97, utilises le code diffusé par Jessy: http://access.jessy.free.fr/htm/DownLoad/CompactDb.htm -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rémy Coquard" a écrit dans le message de news:
"Raymond [mvp]" a écrit dans le message de news: | je ne connais pas le code ni la procédure que tu utilises ni le post. Tu | aurais dû rester dans la conversation. je t'ai répondu pour les références, | c'est tout. | rémy et ludivine ? même source ou source différente ? |
En fait Ludivine à commencé un nouveau fil mais avec toujours le titre mentionné qui provenait de ma question sur le compactage automatique d'une base. Et www.eztree-msdn.com à répondu :
j'ai trouvé les posts, il n'a jamais été précisé dans les posts si tu
voulais compacter la base active ou une autre base.
pour compacter la base active sous 97, utilises le code diffusé par Jessy:
http://access.jessy.free.fr/htm/DownLoad/CompactDb.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rémy Coquard" <remy.coquard@tele2.fr> a écrit dans le message de
news:OByHNgePEHA.3380@TK2MSFTNGP11.phx.gbl...
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:OEPuNTdPEHA.1276@TK2MSFTNGP11.phx.gbl...
| je ne connais pas le code ni la procédure que tu utilises ni le post.
Tu
| aurais dû rester dans la conversation. je t'ai répondu pour les
références,
| c'est tout.
| rémy et ludivine ? même source ou source différente ?
|
En fait Ludivine à commencé un nouveau fil mais avec toujours le titre
mentionné qui provenait de ma question sur le compactage automatique
d'une base. Et www.eztree-msdn.com à répondu :
j'ai trouvé les posts, il n'a jamais été précisé dans les posts si tu voulais compacter la base active ou une autre base. pour compacter la base active sous 97, utilises le code diffusé par Jessy: http://access.jessy.free.fr/htm/DownLoad/CompactDb.htm -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rémy Coquard" a écrit dans le message de news:
"Raymond [mvp]" a écrit dans le message de news: | je ne connais pas le code ni la procédure que tu utilises ni le post. Tu | aurais dû rester dans la conversation. je t'ai répondu pour les références, | c'est tout. | rémy et ludivine ? même source ou source différente ? |
En fait Ludivine à commencé un nouveau fil mais avec toujours le titre mentionné qui provenait de ma question sur le compactage automatique d'une base. Et www.eztree-msdn.com à répondu :
Rémy Coquard
Si je me souviens bien, j'avais à l'origine demandé comment compacter automatiquement une base au démarrage ou la fermeture d'Access. C'est-à-dire, compacter une base automatiquement lors de son ouverture ou de sa fermeture par Access.
RC
"Raymond [mvp]" a écrit dans le message de news:% | j'ai trouvé les posts, il n'a jamais été précisé dans les posts si tu | voulais compacter la base active ou une autre base. | pour compacter la base active sous 97, utilises le code diffusé par Jessy: | http://access.jessy.free.fr/htm/DownLoad/CompactDb.htm | -- | @+ | Raymond Access MVP | http://access.seneque.free.fr/ | http://access.vba.free.fr/ | http://access2003.free.fr/ | http://users.skynet.be/mpfa/ pour débuter sur le forum | | | "Rémy Coquard" a écrit dans le message de | news: | > | > "Raymond [mvp]" a écrit dans le message de | > news: | > | je ne connais pas le code ni la procédure que tu utilises ni le post. | > Tu | > | aurais dû rester dans la conversation. je t'ai répondu pour les | > références, | > | c'est tout. | > | rémy et ludivine ? même source ou source différente ? | > | | > | > En fait Ludivine à commencé un nouveau fil mais avec toujours le titre | > mentionné qui provenait de ma question sur le compactage automatique | > d'une base. Et www.eztree-msdn.com à répondu : | > | |
Si je me souviens bien, j'avais à l'origine demandé comment compacter
automatiquement une base au démarrage ou la fermeture d'Access.
C'est-à-dire, compacter une base automatiquement lors de son ouverture
ou de sa fermeture par Access.
RC
"Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message de
news:%23IavnFjPEHA.3660@TK2MSFTNGP11.phx.gbl...
| j'ai trouvé les posts, il n'a jamais été précisé dans les posts si tu
| voulais compacter la base active ou une autre base.
| pour compacter la base active sous 97, utilises le code diffusé par
Jessy:
| http://access.jessy.free.fr/htm/DownLoad/CompactDb.htm
| --
| @+
| Raymond Access MVP
| http://access.seneque.free.fr/
| http://access.vba.free.fr/
| http://access2003.free.fr/
| http://users.skynet.be/mpfa/ pour débuter sur le forum
|
|
| "Rémy Coquard" <remy.coquard@tele2.fr> a écrit dans le message de
| news:OByHNgePEHA.3380@TK2MSFTNGP11.phx.gbl...
| >
| > "Raymond [mvp]" <XYZ.access.seneque@free.fr> a écrit dans le message
de
| > news:OEPuNTdPEHA.1276@TK2MSFTNGP11.phx.gbl...
| > | je ne connais pas le code ni la procédure que tu utilises ni le
post.
| > Tu
| > | aurais dû rester dans la conversation. je t'ai répondu pour les
| > références,
| > | c'est tout.
| > | rémy et ludivine ? même source ou source différente ?
| > |
| >
| > En fait Ludivine à commencé un nouveau fil mais avec toujours le
titre
| > mentionné qui provenait de ma question sur le compactage automatique
| > d'une base. Et www.eztree-msdn.com à répondu :
| >
|
|
Si je me souviens bien, j'avais à l'origine demandé comment compacter automatiquement une base au démarrage ou la fermeture d'Access. C'est-à-dire, compacter une base automatiquement lors de son ouverture ou de sa fermeture par Access.
RC
"Raymond [mvp]" a écrit dans le message de news:% | j'ai trouvé les posts, il n'a jamais été précisé dans les posts si tu | voulais compacter la base active ou une autre base. | pour compacter la base active sous 97, utilises le code diffusé par Jessy: | http://access.jessy.free.fr/htm/DownLoad/CompactDb.htm | -- | @+ | Raymond Access MVP | http://access.seneque.free.fr/ | http://access.vba.free.fr/ | http://access2003.free.fr/ | http://users.skynet.be/mpfa/ pour débuter sur le forum | | | "Rémy Coquard" a écrit dans le message de | news: | > | > "Raymond [mvp]" a écrit dans le message de | > news: | > | je ne connais pas le code ni la procédure que tu utilises ni le post. | > Tu | > | aurais dû rester dans la conversation. je t'ai répondu pour les | > références, | > | c'est tout. | > | rémy et ludivine ? même source ou source différente ? | > | | > | > En fait Ludivine à commencé un nouveau fil mais avec toujours le titre | > mentionné qui provenait de ma question sur le compactage automatique | > d'une base. Et www.eztree-msdn.com à répondu : | > | |
Raymond [mvp]
donc il faut bien prendre la procédure de Jessy.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rémy Coquard" a écrit dans le message de news:%
Si je me souviens bien, j'avais à l'origine demandé comment compacter automatiquement une base au démarrage ou la fermeture d'Access. C'est-à-dire, compacter une base automatiquement lors de son ouverture ou de sa fermeture par Access.
donc il faut bien prendre la procédure de Jessy.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rémy Coquard" <remy.coquard@tele2.fr> a écrit dans le message de
news:%23YCWCskPEHA.3524@TK2MSFTNGP10.phx.gbl...
Si je me souviens bien, j'avais à l'origine demandé comment compacter
automatiquement une base au démarrage ou la fermeture d'Access.
C'est-à-dire, compacter une base automatiquement lors de son ouverture
ou de sa fermeture par Access.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Rémy Coquard" a écrit dans le message de news:%
Si je me souviens bien, j'avais à l'origine demandé comment compacter automatiquement une base au démarrage ou la fermeture d'Access. C'est-à-dire, compacter une base automatiquement lors de son ouverture ou de sa fermeture par Access.
