J'ai une base notes qui a été développé pour permettre l'importation de document Word afin d'archiver des textes.
Sur les postes qui ont été migré en Lotus Notes 8.5 (il était en 7.x), l'importation ne fonctionne plus.
Il affiche un message: 'Cannot create automation object'.
Avec le débogueur du Designer, j'ai noté que cela bloquait à la création de l'objet (au tout début du traitement)
- Code : Tout sélectionner
Option Public
'Variable Global
Dim InitPath As String
Dim InitRubrique As String
Dim InitFiltrage As String
Dim InitNomFichier As String
Dim InitNomDossier As String
Dim Rubrique As String
Dim Categorie As String
Dim DateRedac As String
Dim WrdFilename As String
Dim NbWrdFile As Integer
'Variable Répertoire
Dim LNumRep List As String
Dim LRubriqueRep List As String
Dim LWrdRep List As String
'Variable Document
Dim Wrd_File List As String
Dim Wrd_Path List As String
Dim Wrd_Rub List As String
Dim Wrd_Cat List As String
Dim Wrd_Sjt List As String
Dim Wrd_Date List As String
Dim iWrdW As Integer
Dim iWrdR As Integer
Dim DatePub List As String
'Variable session word
Dim Wrd As Variant
'Variable Notes
Dim Session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Sub Initialize
' On Error Resume Next
Dim NumPath As String
Dim RubriquePath As String
Dim WrdPath As String
Dim WrdVersion As string
Dim NIndex As Integer
Dim RIndex As Integer
Dim WIndex As Integer
Set Session = New NotesSession
Set db = Session.CurrentDatabase
Print "---"
Print "Base archivage texte : démarrage de l'importation ..."
'Initialisation Word
' Messagebox "Ouverture de Microsoft Word", MBOk
Set Wrd = CreateObject ( "Word.Application")
' Messagebox "Microsoft Word est ouvert", MBOk
Wrd.visible = True
N'étant pas très bon en développement Notes (j'ai appris sur le tas, et j'en fait très peu), je me permet de vous solliciter pour savoir si quelqu'un a déjà rencontré le problème.
