Re : Macro ouvrant une base de données acces .mdb
Re
J'ai oublié de préciser que cette macro est dans PERSO.XLS
Je n'ouvre pas de fichier, je ne fais qu'ouvrir la table "essai" dans la base access "BD Toto.mdb"
et je l'enregistre en "essai.csv" apres 2 ou 3 modifs, je n'ai pas de fichier Excel proprement dit.
je viens d'essayer avec Excel 2003 sur mon portable et là
pas de pb je peux exécuter la macro.
je vous mets la macro complete;
Sub essai()
ChDir "C:\toto\"
Workbooks.OpenDatabase Filename:="C:\toto\BD Toto.mdb", _
CommandText:=Array("essai"), CommandType:=xlCmdTable
Range("S:S").Replace "", "-"
Range("H:H,I:I,J:J,M:M,P
,Q:Q").Replace True, "Oui"
Range("H:H,I:I,J:J,M:M,P
,Q:Q").Replace False, "Non"
Columns("A:T").Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWorkbook.SaveAs Filename:="C:\toto\essai.csv", _
FileFormat:=xlCSVWindows, local:=True, ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close
End Sub