Bonjour à toutes et à tous,

Le titre de mon message est un peu vague mais mon problème est très spécifique.

J'ai récupérer un bout de code qui permet de piloter l'application Business Object et d'enregistrer un rapport au format .CSV.

Le problème est que ce code est en VBA.

J'ai besoin qu'il se lance automatiquement tous les matins (j'utilise le planificateur de taches windows), je dois donc l'adapter en VBS et c'est là que je coince ...

Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Save_CSV()
 
    Dim strOutputFileName As String
 
    'création objet application
    Set appBO = CreateObject(Class:="businessobjects.application")
    'login : "user","mot de passe", "mode offline"
    appBO.LoginAs "", "", False
 
    appBO.Interactive = False
 
    'ouverture de mon rapport BO
    Set docBO = appBO.Documents.Open("C:\fichier_entrée.rep")
 
    'passage des paramètres à mes invites créées sous BO
    'docBO.Variables.Item("Couleur ?").Value = "Black"
    'raffraichissement du rapport
    docBO.Refresh
    'sauvegarde du rapport raffraichi
    docBO.Save
 
 
    'sélection du premier fournisseur de données
    Set boDP = docBO.DataProviders.Item(1)
    'déclaration de mon chemin de création du CSV
    strOutputFileName = "C:\fichier_sortie.csv"
    'export des données du fournisseur vers les formats suivants (ici le 5, export csv)
    '1 ni csv ni Excel, 2 Excel .XLS, 3 inconnu, 4 exportCSVTabs, 5 "ExportCSV,", 6 Excel .XLS, 7 erreur
    'le second param est le numéro du microcube, 0 indiquant tous les microcubes du fournisseur
    Call boDP.ConvertTo(5, 0, strOutputFileName)
 
 
    'fermeture et désinstanciation des objets
    appBO.Quit
    Set boDP = Nothing
    Set docBO = Nothing
    Set appBO = Nothing
 
End Sub
Quelqu'un peut-il m'aider à adapter ce code en VBS ?

D'avance, merci de votre aide.