conversion automatique Access 97 vers Access 2000

Salut,

"Stéphane"
Bonjour, savez-vous s'il existe un programme (si
possible "officiel" Microsoft), de conversion de fichier
Acces 97 vers Access 2000 ?
A ma connaissance il faut ouvrir les bases une par une
pour les convertir... c'est très laborieux


Non, pas de programme de conversion...

Il suffit de l'ouvrir avec A2000 et de confirmer la conversion !

Mais, ouvrir les bases une par une ???
tu n'en n'a pas des dizaines à convertir d'un coup ?
car on parle bien de bases et non de tables...



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Bonjour,

3stone <threestone@cielreseau.be> :

| Non, pas de programme de conversion...
|
| Il suffit de l'ouvrir avec A2000 et de confirmer la conversion !
|
| Mais, ouvrir les bases une par une ???
| tu n'en n'a pas des dizaines à convertir d'un coup ?
| car on parle bien de bases et non de tables...

Ou bien, un petit module VBA exécuté par access2000 ?
Une fois, j'avais utilisé cette méthode pour rétro-convertir
au format Access2000 des bases Access2002
pour que l'acheteur du CD (micro-application ou un truc du genre)
puisse lire les bases exemples.

ça donnait quelque chose qui ressemblait à ce qui est reproduit plus bas.
Il doit bien y avoir un moyen de renverser la vapeur....non ?
ps : je sais que le code est moyen mais pour une utilisation unique,
je n'avais pas voulu passer plus de temps à écrire le code qu'à convertir les bases à la main.


Sub test()
Dim strSource As String, strPath As String
strPath = "I:Access2002 (J)Chapitre 14"
Call fListFiles(strPath)
End Sub


Function fListFiles(strDir As String) As String
On Error Resume Next
Dim intFile As Integer
intFile = 0
With Application.FileSearch
.LookIn = strDir
.FileName = "*.mdb"
If .Execute > 0 Then
For intFile = 1 To .FoundFiles.Count
'msgbox .FoundFiles(intFile)
Application.ConvertAccessProject .FoundFiles(intFile), Left(.FoundFiles(intFile), _
Len(.FoundFiles(intFile)) - 4) & "£" & ".mdb", acFileFormatAccess2000
If Right(.FoundFiles(intFile), 5) <> "£.mdb" Then
Kill .FoundFiles(intFile)
End If
Next intFile
End If
End With
End Function

--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------

Bonjour,
ben euh... j'aurai tendance à dire ... tu le fais toi-même !
C'est l'affaire de quelques lignes de code à peine!



Ciao :)
======================================== Maxence HUBICHE
Formateur & développeur indépendant
Rédacteur Access sur http://www.developpez.com
http://access.developpez.com/access/faq <<= Ici, la FAQ Access de
developpez.com


..
"Stéphane" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 38c101c4013f$36bc1600$a601280a@phx.gbl...
Bonjour, savez-vous s'il existe un programme (si
possible "officiel" Microsoft), de conversion de fichier
Acces 97 vers Access 2000 ?
A ma connaissance il faut ouvrir les bases une par une
pour les convertir... c'est très laborieux
Merci d'avance ;-)