Re : Requête pour récupération de données externes
J'ai longtemps essayer de réaliser un code qui me permet à partir d'excel, d'ouvrir bo, rafraichir une requête, copier les données dans excel mais sans succès...D'ailleurs si tu sais comment faire, je suis preneur...
Voici comme même le code mais je ne sais pas s'il va pouvoir te servir :
Sub TransfertBO_Excel()
Dim NomFichier As String, F As Single
F = 1
NomFichier = "X:\Macro.txt"
Open NomFichier For Append As #F
Close #F
'Création d'un fichier txt temporaire
Application.ActiveReport.ExportAsText ("X:\Macro.txt")
'BO exporte le contenu vers le fichier txt
MsgBox ("Exportation terminée!")
Dim appXl As Excel.Application
Dim Wb As Excel.Workbook
Set appXl = CreateObject("Excel.Application")
appXl.Visible = True
Set Wb = appXl.Workbooks.Open("X:\Macro.txt")
'BO ouvre le fichier txt avec excel
End Sub
Amicalement,