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