Importation worksheet excel dans access en VBA

Question

Bonjour &#224; tous,  
 
Dans le cadre du boulot, on me demande de me remettre au VBA et j'ai une pression d'enfer pour programmer un truc, dont voil&#224; l'expos&#233;. 
 
J'ai un fichier Excel appel&#233; "source.xls" qui est stock&#233; &#224; la racine (c :) de mon HDD. Ce fichier comporte 4 onglets ce mois ci, nomm&#233;s A, B, C et D (mais les noms des onglets, le nombre d'onglet et le contenu des onglets peuvent varier chaque mois).  
 
Je souhaite donc importer, chaque mois en pressant sur un bouton d'un formulaire, de fa&#231;on automatique ce fichier dans Access en cr&#233;ant une table pour chaque onglet, dont le nom sera le nom de l'onglet et le contenu le contenu de l'onglet. Je n'y arrive pas du tout et je suis perdu. 
 
Est-ce que l'un d'entre vous aurez un bout de code &#224; me copier coller pour me sortir de cet enfer? 
 
Merci d'avance.

cs_jordinette · Answer

Bonjour,
apart faire un code derrière ton bouton de formulaire, qui selectionne ta plage de données de l'onglet A, et la collé dans la table par le principe du copier/coller et pareil pour les 3 autres...
Jordinette

easy_smiler · Answer

Je me r&#233;ponds moi m&#234;me car je viens de trouver la solution. Voici le bout de code que j'ai coll&#233; derri&#232;re mon bouton de formulaire et qui fonctionne.

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim Pathfic, NomFic As String
Dim i As Integer


Pathfic = "C:"
NomFic = "PL.xls"


Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(Pathfic & NomFic)


i = 1

Do While i <= xlBook.worksheets.Count
    Set xlSheet = xlBook.worksheets(i)
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, xlSheet.Name, Pathfic & NomFic, True, xlSheet.Name & "!"
    i = i + 1
    Set xlSheet = Nothing
Loop


Set xlBook = Nothing
Set xlApp = Nothing

Importation worksheet excel dans access en VBA

2 réponses

Discussions similaires