Bonjour le forum,
J'ai un petit soucis avec une macro d'import de base de données ACCESS sous excel.
Voici mon code:
Si je lance la macro sans mon ajout de la fonction "GetOpenFileName" cela fonctionne. Sinon rien..
Merci pour votre aide.
Nikkss.
J'ai un petit soucis avec une macro d'import de base de données ACCESS sous excel.
Voici mon code:
Code:
Sub Macro2()
Dim MonFichier As String
MonFichier = Application.GetOpenFilename()
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=MonFichier;" _
, _
"Mode=Share; Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Databas" _
, _
"e Password="""";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bul" _
, _
"k Transactions=1;Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet " _
, _
"OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Co" _
, _
"mplex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Vali" _
, "dation=False"), Destination:=Range("$A$3")).QueryTable
.CommandType = xlCmdTable
.CommandText = Array("RailEventMessage")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = MonFichier
.ListObject.DisplayName = "Tableau__997"
'.Refresh BackgroundQuery:=False
End With
End Sub
Si je lance la macro sans mon ajout de la fonction "GetOpenFileName" cela fonctionne. Sinon rien..
Merci pour votre aide.
Nikkss.