A partir d'Outlook 2003, ouvrir un fichier open office calc qui se trouve sur un serveur

**therese067117** · 28/01/2016, 20h28

Bonsoir à tous.

Derniers moments pour vous souhaitez une bonne année 2016, je me dépêche.
Que ce soit une belle année, pleine de créations.

Merci de bien vouloir m'aiguiller sur un code qui me permette à partir d'outlook d'ouvrir un fichier open office calc qui se trouve sur un réseau dans un dossier partagé. J'ai trouvé des explications sur le forum et le tutoriel de SilkyRoad (que je remercie) m'a fait avancer.
J'arrive à ouvrir le document s'il se trouve sur mon poste, mais je n'ai pas la syntaxe pour l'ouvrir sur le serveur.
Le partage sur ce serveur est accessible à l'ensemble des utilisateurs de la société où je travaille, ce qui me permet de ne créer qu'un seul document et cela facilite les mises à jour de ce document.

explications :
à partir d'oulook, je lance une macro qui doit ouvrir un fichier qui se trouve dans un dossier partagé sur un réseau :
\\serveur\dossier_partage\mon_document.ots
et dans lequel je copie des données.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub ouvreDocumentCalc()
'ouvre un nouveau document OOcalc et copie ce qu'il y a en mémoire machine
    Dim oServiceManager As Object, oDispatcher As Object
    Dim Desktop As Object, Document As Object
    Dim Args()
    Dim Chemin As String, Fichier As String
    Dim T As Date
    
    'Création d'une instance Open Office
    Set oServiceManager = CreateObject("com.sun.star.serviceManager")
    Set Desktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
    
    'adapter le chemin et le nom du fichier en fonction du projet, ouvrir un fichier calc existant

' la ligne ci-dessous fonctionne pour ouvrir le document sur mon poste
    Fichier = "file:///D:/Users/TT/Documents/mon_document.ots"

' la ligne ci-dessous ne fonctionne pas pour ouvrir le document sur le serveur
    Fichier = "file:///serveur/dossier_partage/mon_document.ots

    Set serviceManager = CreateObject("com.sun.star.serviceManager")
    Set Desktop = serviceManager.createInstance("com.sun.star.frame.Desktop")
   Set Document = Desktop.loadComponentFromURL(Fichier, "_blank", 0, Args)
   
    'Collage dans Open Office
    Set oDispatcher = oServiceManager.createInstance("com.sun.star.frame.DispatchHelper")
    oDispatcher.executeDispatch Document.currentController.frame, ".uno:Paste", "", 0, Array()
End Sub

Je vous remercie de toute l'aide que vous voudrez m'apporter pour solutionner cette question qui me bloque vraiment pour continuer mon travail.

A bientôt

Thérèse