ouverture d'un fichier access sous excel

ouverture d'un fichier access sous excel - VB/VBA/VBS - Programmation

Marsh Posté le 08-03-2006 à 15:19:47    

Bonjour  
 
je suis débutant sur VBA  
 
je souhaiterai exporter une base de donne access sous excel  
tout d'abord je demande la copy du fichier dans un autre repertoire
 
 
Dim Sourcemedicine As String, Destinationmedicine As String
 
Sourcemedicine = "C:\jvserver2001\Database\medicine.mdb"    ' Définit le nom du fichier source.
Destinationmedicine = "C:\euraf\medicine.mdb"    ' Définit le nom du fichier cible.
FileCopy Sourcemedicine, Destinationmedicine
 
ce code fonctionne  
1) Mais si le repertoire existe, j'ai une erreur  
je souhaiterai verifier si le fichier existe dans le repertoire de destination  
si oui le supprimer, puis déplacer le fichier, dans le cas contraire déplacer le fichier  
 
2) je souhaiterai ouvrir la base pour le mettre dans un fichier excel
 
    Workbooks.OpenDatabase _
               Filename:=Destinationmedicine
 
le code suivant fonctionne
 
A)mais le fichier acces est code par un code  
le code pour l'ouverture est par exemple " ABCD"
comment  je peux faire pour que le code soit fait par programmation  
 
pour l'instant, je dois taper le code manuelement  
 
apres avoir taper le code, le fichier access posse plusieur base, comment puis je faire pour selectionner par programmation un de ce base , par exemple la base que je souhaiteri prendre est la base "agenda"
 
 
merci de votre aide  

Reply

Marsh Posté le 08-03-2006 à 15:19:47   

Reply

Sujets relatifs:

Leave a Replay

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