Votre question

[VBA] Convertir fichier Access

Tags :
  • Copier coller
  • Programmation
Dernière réponse : dans Programmation
21 Janvier 2011 09:26:48

Bonjour,

Je suis à la recherche d'un code VBA sous Excel qui pourrai convertir mes fichiers Access 2003 vers 2007, ou si quelqu'un connaitrai une fonction. Merci d'avance.

Autres pages sur : vba convertir fichier access

a c 145 L Programmation
21 Janvier 2011 09:50:17

Tu ouvres les fichiers 2003 avec Access 2007 et tu fais "Saves as" (enregistrer sous) en choisissant "Save the database in another format" (et le bon format donc) pour en avoir une copie version 2007.
m
0
l
21 Janvier 2011 10:20:32

Où tu l'ouvres avec un 2007, comme ça il te dit qu'il a été créé avec une version antérieure, et il te propose de la transformer.
Non ?
m
0
l
Contenus similaires
21 Janvier 2011 10:46:24

Pour le moment j'ai trouver ceci qui effectue juste un copier coller mais j'ai une erreur, qui me dit "Permission refusé." ?? C'est au niveau de la ligne "fso.Copyfile

  1. Dim strDBName, strDBPath As String
  2. Dim fso As Object
  3.  
  4. ' On assigne à strDBName son chemin et son nom de fichier
  5. strDBName = access.CurrentProject.FullName
  6.  
  7. ' Concatène de cette manière : .backup.
  8. strDBPath = Left(strDBName, Len(strDBName) - 5) & "backup" & Right(strDBName, 6)
  9.  
  10. ' Crée un nouvel objet pour la copie de la base
  11. Set fso = CreateObject("Scripting.FileSystemObject")
  12.  
  13. ' Crée une copie de la base courante
  14. fso.CopyFile strDBName, "\\NASTOU01.lactadom.ad\MESDONNEES_EFLTOU\fr01199\Base_Infocentre_GOLD_Hebdo_Détail_Réception_Voyage.mdb", True
  15.  
  16. ' Assigne à null l'objet
  17. Set fso = Nothing
m
0
l
21 Janvier 2011 11:07:08

sliverpopop , j'ai besoin de faire ceci par VBA, car j'ai beaucoup de fichier à convertir.
m
0
l
21 Janvier 2011 11:15:34

J'ai trouvé ceci :
  1. Sub testaccess()
  2.  
  3.  
  4.  
  5. Dim chemin1, chemin2 As String
  6.  
  7. chemin1 = "U:\LogOsi\PROJETS\Projet BUR WOP\WOP Conversion\Test\"
  8. chemin2 = "U:\LogOsi\PROJETS\Projet BUR WOP\WOP Conversion\"
  9. nomfichier = "Base_Infocentre_GOLD_Hebdo_Détail_Réception_Voyage.mdb"
  10.  
  11. Dim FSO As Object
  12. Dim DossierSource As Object
  13. 'Dim Fichier As Scripting.File
  14.  
  15. 'Set FSO = New Scripting.FileSystemObject
  16. Set FSO = CreateObject("Scripting.FileSystemObject")
  17. Set DossierSource = FSO.GetFolder(chemin2)
  18.  
  19.  
  20.  
  21. Set DossierSource = FSO.GetFolder(chemin1)
  22.  
  23.  
  24. FSO.CopyFile chemin1 & nomfichier, chemin2 & "Base_Infocentre_GOLD_Hebdo_Détail_Réception_Voyage.accdb"
  25.  
  26.  
  27. Set DossierSource = Nothing
  28. Set FSO = Nothing
  29.  
  30. End Sub


Le fichier passe bien en .accdb mais quand je l'ouvre il reste au meme format 2000. Quand je clique sur le bouton Office je peux toujours le convertir.

Mais j'ai besoin de le convertir par VBA :s . Une autre idée? C'est assez urgent.
m
0
l
21 Janvier 2011 16:39:55

J'ai opté pour le clonage de tous les éléments de ma BDD d'un fichier Access .mdb vers un nouveau fichier créé en .accdb . Merci quand meme.
m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS