VBA Access Excel

Marsh Posté le 11-05-2011 à 23:18:52

Bonjour a tous!

Dans le cadre de mon projet proffessionnel, je dois ecrire un code VBA sous Excel permettant de creer dans le meme repertoire dans lequelle se trouve le fichier excel, un fichier Access vierge.

Qqln pourrait m'aider? =)

Marsh Posté le 11-05-2011 à 23:18:52

Marsh Posté le 17-05-2011 à 15:40:11

Code :

Sub popol333()
    
    CheminFichierEnCours = ActiveWorkbook.Path & "\"
    NomFichier = ActiveWorkbook.Name
    
    CheminBase = CheminFichierEnCours & NomFichier & ".mdb"
    Connexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CheminBase & ";"
 
    Set Catalog = CreateObject("ADOX.Catalog" )
    Catalog.Create Connexion
    Set Catalog = Nothing
End Sub