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? =)
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 = NothingEnd Sub