H
Hugo
Guest
Bonjour à tous et toutes,
Je cherche à pouvoir ouvrir un fichier Excel (depuis répertoire partagé)depuis plusieurs PC.
(PC-A) ouvre fichier Excel en "lecture/écriture", puis (PC-B) l'ouvre,après, en "lecture seul". Puis (PC-A) fais des modifs, enregistre puis ferme fichier Excel donc (PC-B) reçoit acquitement clique sur case pour possible utilisation fichier Excel en "lecture/écriture" donc cliquer sur case mais la erreur Excel ne s'ouvre pas et il faut une "Récupération du document".
==>>Voici VBScript "version1" utilisé:
Set appXl = CreateObject("Excel.Application")
With appXl
.Workbooks.Open "\\Répertoire\fichier.xls",Notify=1
.Visible = True
End With
Set appXl = Nothing
==>>Voici VBScript "version2" utilisé:
Set appXl = CreateObject("Excel.Application")
If appXl.Workbooks.Open("\\Répertoire\fichier.xls").ReadOnly <> False Then
MsgBox("Le fichier Excel est en cours d'utilisation, veuillez patienter !!!")
Else
With appXl
.Workbooks.Open "\\Répertoire\fichier.xls",Notify=1
.Visible = True
End With
End If
Set appXl = Nothing
Je n'arrive pas à comprendre pourquoi Excel s'ouvre avec une erreur de "Récupération du document". Quelqu'un peut-il m'aider????
Est-ce le bon codage ???
Je n'y comprend plus RIEN du TOUT !!!!!
Bien à vous
Merci d'avance
Au revoir et bonne journée
Je cherche à pouvoir ouvrir un fichier Excel (depuis répertoire partagé)depuis plusieurs PC.
(PC-A) ouvre fichier Excel en "lecture/écriture", puis (PC-B) l'ouvre,après, en "lecture seul". Puis (PC-A) fais des modifs, enregistre puis ferme fichier Excel donc (PC-B) reçoit acquitement clique sur case pour possible utilisation fichier Excel en "lecture/écriture" donc cliquer sur case mais la erreur Excel ne s'ouvre pas et il faut une "Récupération du document".
==>>Voici VBScript "version1" utilisé:
Set appXl = CreateObject("Excel.Application")
With appXl
.Workbooks.Open "\\Répertoire\fichier.xls",Notify=1
.Visible = True
End With
Set appXl = Nothing
==>>Voici VBScript "version2" utilisé:
Set appXl = CreateObject("Excel.Application")
If appXl.Workbooks.Open("\\Répertoire\fichier.xls").ReadOnly <> False Then
MsgBox("Le fichier Excel est en cours d'utilisation, veuillez patienter !!!")
Else
With appXl
.Workbooks.Open "\\Répertoire\fichier.xls",Notify=1
.Visible = True
End With
End If
Set appXl = Nothing
Je n'arrive pas à comprendre pourquoi Excel s'ouvre avec une erreur de "Récupération du document". Quelqu'un peut-il m'aider????
Est-ce le bon codage ???
Je n'y comprend plus RIEN du TOUT !!!!!
Bien à vous
Merci d'avance
Au revoir et bonne journée