Discussion :

[biquet52]

Bonjour,

j'aimerais ouvrir un fichier Excel en lecture seule depuis une commande VBS.

Voici le code que j'utilise:

Code :

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

1
2
3
4
5
6
Dim Xl 'as Excel.Application\par
Dim wk 'as Excel.workbook\par
set Xl = createobject("Excel.application")
Xl.Visible = True
Xl.enableevents = false
set Wk = Xl.workbooks.open("\\sharepoint\planning.xlsx")

Ce script ouvre mon fichier Excel, mais il n'est pas en lecture seule.

Merci

[l_autodidacte]

Le 3ème paramètre gère la lecture seule comme ceci : XL.Workbooks.Open "C:\Monfichier.xls", , True

[Bretuu]

Le 3ème paramètre gère la lecture seule comme ceci : XL.Workbooks.Open "C:\Monfichier.xls", , True

Bonjour,

Désolé de déterrer ce sujet.

Je suis actuellement à la recherche d'une solution de ce type pour ouvrir un fichier CSV. J'ai donc besoin pour cela de définir le caractère délimiteur des cases soit pour moi ";" (qui correspond à Chr(59)) en ASCII.
Lorsque j'essaie de renseigner le 4è paramètre pour mettre ; en tant que délimiteur, mon logiciel me dit commande inconnue... (Selon la description de ce site : https://docs.microsoft.com/fr-fr/off...workbooks.open)

Est-il possible d'ouvrir un fichier CSV de cette manière :

Code :

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

1
2
3
4
5
6
7
        Dim sCheminFichier,objWshShell,cmd
 
	sCheminFichier = "D:\TPM\tpm.csv"
	Set objWshShell = CreateObject("Wscript.Shell")
	cmd = "Rundll32.exe url.dll,FileProtocolHandler " & sCheminFichier
	objWshShell.Run cmd,1		'Lancement de la commande
	Set objWshShell = Nothing	'libération de la variable

Cependant en lecture seule ?

Ou bien connaissez-vous une manière de le faire ?

Merci d'avance !!

[omen999]

bonjour,

Code :

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

"Rundll32.exe url.dll,FileProtocolHandler " & sCheminFichier

appelle le protocole web enregistré pour l'extension .csv (en supposant que sCheminFichier désigne un nom complet de fichier csv...)
il faudrait au préalable enregistrer un protocole spécifique pour .csv qui appellerait excel avec les paramètres spécifiques (lecture seule par exemple)
mais pourquoi ne pas créer directement un objet com excel ?

[Bretuu]

bonjour,

Code :

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

"Rundll32.exe url.dll,FileProtocolHandler " & sCheminFichier

appelle le protocole web enregistré pour l'extension .csv (en supposant que sCheminFichier désigne un nom complet de fichier csv...)
il faudrait au préalable enregistrer un protocole spécifique pour .csv qui appellerait excel avec les paramètres spécifiques (lecture seule par exemple)
mais pourquoi ne pas créer directement un objet com excel ?

Parce qu'en créant un objet excel, il m'ouvre le fichier en ne tenant pas compte des séparateurs du fichier csv, à savoir les ";". Cependant lorsque j'ouvre le fichier avec les lignes de codes que j'ai mis précédemment, excel tient compte des séparateurs.

Je ne sais pas comment créer ce genre de protocole ni comment l'intégrer au code VBS, pourrais-tu m'éclairer ?

En attendant, j'ai procédé autrement : j'effectue une copie du fichier original. J'ouvre cette copie avec la méthode

Code :

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

"Rundll32.exe url.dll,FileProtocolHandler " & sCheminFichier

.
L'utilisateur peut alors modifier ce fichier sans conséquence car celui-ci une fois fermé sera supprimé (un fichier temporaire en soit).

Merci pour ta réponse !!

[omen999]

Parce qu'en créant un objet excel, il m'ouvre le fichier en ne tenant pas compte des séparateurs du fichier csv, à savoir les ";"

c'est marrant parce que la syntaxe de la méthode Open le prévoit expressement (cf paramètre format : valeur 4)

[Bretuu]

c'est marrant parce que la syntaxe de la méthode Open le prévoit expressement (cf paramètre format : valeur 4)

En effet, c'est ce qui est marqué dans mon premier message. Je pense que le problème vient du fait que la macro vbs est exécutée par tia (logiciel de programmation en automatismes).

Soit TIA ne supporte pas la commande, soit je m'y prend mal (ce dont je doute après les nombreux essais de syntaxe que j'ai pu effectuer...)

Le problème est que : soit l'appel de la commande pose un problème de compilation, soit la commande est compilée mais le paramètre 4 n'est pas pris en compte...

J'ai de plus essayé en mettant le paramètre 6 et ensuite de renseigner le caractère délimiteur à la main par ";" ou bien Chr(59) mais rien n'y fait 😥

Si tu as une autre idée ou proposition, je suis preneur !!

Merci !!

[omen999]

Je pense que le problème vient du fait que la macro vbs est exécutée par tia (logiciel de programmation en automatismes).

je vois... il aurait été utile de préciser dès le départ le contexte d'exécution du VBS
je suppose que ce tu appelles tia, c'est le WinCC de Siemens ?

[Bretuu]

je vois... il aurait été utile de préciser dès le départ le contexte d'exécution du VBS
je suppose que ce tu appelles tia, c'est le WinCC de Siemens ?

Exact, je ne pensais pas que cela était pertinent

[omen999]

c'eût pu car VBS peut avoir un comportement différent en fonction du contexte
tout d'abord, laisse tomber l'idée du rundll32 car même si l'on créait un protocol handler (par exemple pour une extension .csvx) cela ne concernerait que les paramètres
en ligne de commande (commutateurs) or excel ne permet pas définir un séparateur par cette méthode

que donne ce genre de code :

Code :

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

1
2
3
Set excel = CreateObject("Excel.Application")
excel.Visible = True
Set wk = excel.Workbooks.Open("D:\TPM\tpm.csv",0,False,4)

[Bretuu]

Désolé pour le laps de temps.

Je viens d'essayer les lignes de codes que tu as pu me fournir cependant je l'ai fait par acquis de conscience car je savais déjà la réponse.


Comme tu peux le voir, les ";" ne sont pas reconnus en tant que caractères délimiteurs...

J'ai de plus essayé en mettant

Code :

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

Set wk = excel.Workbooks.Open("D:\TPM\tpm.csv",0,False,6,,,,,";")

et aussi par la suite

Code :

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

Set wk = excel.Workbooks.Open("D:\TPM\tpm.csv",0,False,6,,,,,Chr(59))

Bien que la compilation se passe sans soucis, le ";" n'est pas pour autant reconnu en tant que délimiteur.

En te souhaitant une bonne journée,

[omen999]

as-tu testé le comportement d'excel dans un script vbs lancé à partir de la ligne de commande ?
dans ce style (path étant un chemin à définir en fonction de ta configuration) :

Code :

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

1
2
3
Set excel = CreateObject("Excel.Application")
excel.Visible = True
Set wk = excel.Workbooks.Open("[path]\tmp.csv",0,False,4)

le fichier tmp.csv :

Code :

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

1
2
bonjour;ami;je;viens en paix
ça;tombe bien;moi pas

[Bretuu]

Bonjour omen,

Voici le résultat lorsque j'ouvre le fichier contenant ton texte manuellement (en db cliquant dessus via explorer.exe) :

Voici ce que cela m'affiche lors de l'ouverture via TIA avec les lignes de codes que tu as pu me fournir :


...

[omen999]

et le paramètre ReadOnly est-il fonctionnel sous TIA ?
autrement dit :

Code :

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

1
2
3
Set excel = CreateObject("Excel.Application")
excel.Visible = True
Set wk = excel.Workbooks.Open("[path]\tmp.csv",0,True)