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)