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:
Quelqu'un peut il m'aider svp?
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
Merci
Salutations
Partager