Discussion :

[munity]

salut le phorum

bonjour j'aimerai savoir s'il existe par vba un moyen d'exporter un rapport bo en txt avec comme séparateur ; versus tabulation ou sil existe un truc et astuce pour palier ce problème

merci d'avance

munity

[munity]

c bon pour la soluce car la demande était dans le but d'exporter au format csv depuis bo ce qui n'est pas possible depuis le rapport mais uniquement depuis le micro cube donc cela ne convenait pas puisque les filtres et variables ne sont pas contenues dans le micro cube
voici le code à adapter au besoin de chacun

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim xlApp As Excel.Application
                Dim xlBook As Excel.Workbook
                Dim xlSheet As Excel.Worksheet
                Set xlApp = CreateObject("Excel.Application")
 
                'xlApp.Visible = True
                xlApp.Application.DisplayAlerts = False
                xlApp.Workbooks.Open Filename:=Filename, ReadOnly:=True
                xlApp.ActiveWorkbook.SaveAs Filename:=destPath1 & sDestFile & ".csv", FileFormat:=xlCSV, local:=True
                xlApp.Workbooks(sDestFile & ".csv").Close
                xlApp.Application.DisplayAlerts = True
        xlApp.Quit    ' Une fois terminé, utilise la méthode
                        ' Quit pour fermer
        Set xlApp = Nothing    ' puis libère la référence