Discussion :

[Flodev60]

Bonjour,

J'ai un script fait initialement sur VB dans Excel directement pour ouvrir et modifier un fichier CVS.
Dans un soucis de simpliciter, on me demande de le lancer depuis E3, un logiciel electrique qui lit les scripts en vbs.
J'ai donc créer sous notepad++ un vbs et collé le script dedant mais au lieu d'ouvrir un menu pour chercher le fichier csv sur l'ordinateur, j'ai le message d'erreur
Erreur de compilation Microsoft VB Script.

<ci dessous le script:

Code :

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

1
2
3
4
5
6
7
8
 
Sub Lecture()
Dim fichier As Variant
    ChDir ThisWorkbook.Path
    fichier = Application.GetOpenFilename("Fichier CSV (*.csv), *.csv")
    If fichier <> False Then Workbooks.Open fichier, local:=True
 
End Sub

Quelqu'un peut il m'aider svp?

Merci
Salutations

[clementmarcotte]

Bonjour,

À mon humble avis tu es perdu.

1) VB.net n'est absolument pas VBScript et absolument pas un logiciel de scripts.

2) Tu ne peux pas espérer mettre une macro VBA dans un script VBS et l'exécuter les yeux fermés. Même que si tu veux utiliser VBScript pour lancer une autre application qu'Excel, tu dois oublier:

Application.GetOpenFilename : c'est exclusif au VBA d'Excel
ThisWorkbook : c'est exclusif au VBA d'Excel
Workbooks.Open : c'est exclusif au VBA d'Excel

Pour ChDir, je ne sais pas trop. Cela fait trop longtemps que je n'ai pas utilisé VBSCRIPT
Si tu veux utiliser VBA pour lancer un autre programme, tu peux le faire avec Shell.

Il me semble qu'il y a un forum dédié à VBSCRIPT à quelque part sur le site.

P.S. Ne pas oublier que VBA, VB6, VBSCRIPT et VB.net sont quatre langages différents, destinés à des usages différents et qui ont BASIC dans leur ascendance. Ils ont des points communs, mais ils sont très loin d'être interchangeables.

[Flodev60]

Bonjour et merci.


J'ai donc fait le script suivant dans VB dans Excel mais je n'arrice pas ouvrir le xml.

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
 
' Sous VBE cocher référence Microsoft Scripting Runtime
Option Explicit
 
Sub Lecture()
Dim fichier As Variant
Dim Faisceau As Variant
Dim Variable As Variant
 
 
    ChDir ThisWorkbook.Path
    fichier = Application.GetOpenFilename("Fichier XML (*.xml), *.xml")
    If fichier <> False Then
 
 
 
 
    End With
    End If
    'Workbooks.OpenXML Filename:=fichier
 
 
    '.OpenXML fichier, local:=True
 
    Variable = InputBox("Entrer le nom du fichier sous la forme :  refcompat.issue.pages.xls" & vbCrLf & "exemple : 4354039M1.01.0101.xls", "Nom du fichier", Faisceau & ".01.0101.xls")
 
End Sub

Quelqu'un pourrai t'il m'aider?



Merci
Salutations

[Marc-L]

Voir ici ‼

Et ne pas hésiter à consulter les tutoriels de ce site consacrés au XML …