ouverture fichier Excel en lecture seule

Bonjour,

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

Voici le code que j'utilise:

Code:

---

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

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

Citation:

---

Envoyé par l_autodidacte

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:

---

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 !! :D

bonjour,

Code:

---

"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 ? :koi:

Citation:

---

Envoyé par omen999

bonjour,

Code:

---

"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 ? :koi:

---

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:

---

"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 ;) !!

Citation:

---

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)

Citation:

---

Envoyé par omen999

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 !! :D

Merci !!

Citation:

---

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 :roll:
je suppose que ce tu appelles tia, c'est le WinCC de Siemens ?

Citation:

---

Envoyé par omen999

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

---

Exact, je ne pensais pas que cela était pertinent :roll:

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:

---

1 2 3

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

---

Désolé pour le laps de temps. :roll:

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.
Pièce jointe 494305

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:

---

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

---

et aussi par la suite

Code:

---

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,

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:

---

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:

---

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

---

Bonjour omen,

Voici le résultat lorsque j'ouvre le fichier contenant ton texte manuellement (en db cliquant dessus via explorer.exe) :
Pièce jointe 496382
Voici ce que cela m'affiche lors de l'ouverture via TIA avec les lignes de codes que tu as pu me fournir :
Pièce jointe 496386

...
:calim2:

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

Code:

---

1 2 3

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

---