Ouvrir et sauvegarder une base access en vb

Ouvrir et sauvegarder une base access en vb - VB/VBA/VBS - Programmation

Marsh Posté le 13-06-2007 à 12:00:47    

Bonjour à tous,
 
J'ai créé, sous access et en vb, un code pour simuler un copier - coller d'un fichier excel même si il est ouvert.
 

Code :
  1. Dim Xl As New Excel.Application
  2. Dim xls As Workbook
  3. Dim SourceFile, DestinationFile
  5. DoCmd.SetWarnings False
  6. Xl.DisplayAlerts = False
  7. Xl.Visible = False
  8. Set xls = Xl.Workbooks.Open(FileName:=("fichier1.xls" ), UpdateLinks:=0, ReadOnly:=True)
  9. Xl.ActiveWorkbook.SaveAs "fichier2.xls"
  10. Xl.Quit
  11. Xl.DisplayAlerts = False


 
 
J'aurais besoin de réaliser la même chose pour ouvrir et sauvegarder une base access et non un fichier excel car certaines instructions du code sont propres à excel.
Quelqu'un aurait-il une idée ?
 
Merci !
Lithiumart


Message édité par lithiumart le 13-06-2007 à 13:51:09
Reply

Marsh Posté le 13-06-2007 à 12:00:47   

Reply

Marsh Posté le 13-06-2007 à 13:24:14    

Dans l'exemple que tu nous montres, tu ouvres une base access (mabase1.mdb) comme si c'était un document .xls ?
Et le .SaveAs fonctionne ?  
La sauvegarde d'une base access, c'est simplement la copie du fichier .MDB (et renommage éventuel).
Pas besoin de plus, ou alors il faut donner des détails sur tes besoins.

Reply

Marsh Posté le 13-06-2007 à 13:50:45    

Oui désolé, dans le code ce n'est pas une base access mais bien un fichier .xls
C'est corrigé.
 
Le .SaveAs fonctionne, je confirme.
Je procède ainsi car si le fichier est ouvert par un autre utilisateur, je ne peux pas faire de CopyFile. J'ouvre donc le fichier et je le sauvegarde ailleurs.


Message édité par lithiumart le 13-06-2007 à 13:51:32
Reply

Marsh Posté le 13-06-2007 à 14:18:29    

À ma connaissance une base Access est copiable, même ouverte par un autre utilisateur.
Sauf si cet utilisateur est en modification de la structure des tables ou a des droits particuliers.
Et là je ne pense pas qu'ouvrir la base pour la sauvegarder changera quoi que ce soit au problème.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed