OVH Cloud OVH Cloud

Office 12 word automation

2 réponses
Avatar
Didier
Bonjour,

Je viens d'installer la Béta 2 d'Office 12 pour effectuer quelques tests
A peine terminé que je me heurte à mon premier problême et je n'y trouve pas de solutions
malgré mes recherches.



Imports Microsoft.Office.Interop

Dim wa AS New Word.Application
Dim _mDoc as Word.Document

_mDoc = _wa.Documents.Open(Ctype("Test.Doc",Object))


Erreur 1 La résolution de surcharge a échoué, car aucun 'Open' accessible n'est plus spécifique pour ces arguments :
'Public Function Open(ByRef FileName As Object, [ByRef ConfirmConversions As Object],
[ByRef ReadOnly As Object], [ByRef AddToRecentFiles As Object],
[ByRef PasswordDocument As Object], [ByRef PasswordTemplate As Object],
[ByRef Revert As Object], [ByRef WritePasswordDocument As Object],
[ByRef WritePasswordTemplate As Object], [ByRef Format As Object],
[ByRef Encoding As Object], [ByRef Visible As Object],
[ByRef OpenAndRepair As Object], [ByRef DocumentDirection As Object],
[ByRef NoEncodingDialog As Object], [ByRef XMLTransform As Object],
[ByRef NoAutoRepairDialog As Object])
As Microsoft.Office.Interop.Word.Document': Pas plus spécifique.
'Public Function Open(ByRef FileName As Object, [ByRef ConfirmConversions As Object],
[ByRef ReadOnly As Object], [ByRef AddToRecentFiles As Object],
[ByRef PasswordDocument As Object], [ByRef PasswordTemplate As Object],
[ByRef Revert As Object], [ByRef WritePasswordDocument As Object],
[ByRef WritePasswordTemplate As Object], [ByRef Format As Object],
[ByRef Encoding As Object], [ByRef Visible As Object],
[ByRef OpenAndRepair As Object], [ByRef DocumentDirection As Object],
[ByRef NoEncodingDialog As Object], [ByRef XMLTransform As Object])
As Microsoft.Office.Interop.Word.Document': Pas plus spécifique.

Bon je veux bien mais sauf erreur le seul paramêtre obligatoire est le nom de fichier



Si quelqu'un à la solution ou un debut d'explication, je suis preneur

Merci d'avance
Didier

2 réponses

Avatar
nesserb
Bonjour,

======> "Bon je veux bien mais sauf erreur le seul paramêtre obligatoire est
le nom de fichier"

Et l'existance de celui-ci !


Bonjour,

Je viens d'installer la Béta 2 d'Office 12 pour effectuer quelques tests
A peine terminé que je me heurte à mon premier problême et je n'y trouve


pas de solutions
malgré mes recherches.



Imports Microsoft.Office.Interop

Dim wa AS New Word.Application
Dim _mDoc as Word.Document

_mDoc = _wa.Documents.Open(Ctype("Test.Doc",Object))


Erreur 1 La résolution de surcharge a échoué, car aucun 'Open' accessible


n'est plus spécifique pour ces arguments :
'Public Function Open(ByRef FileName As Object, [ByRef


ConfirmConversions As Object],
[ByRef ReadOnly As Object], [ByRef


AddToRecentFiles As Object],
[ByRef PasswordDocument As Object], [ByRef


PasswordTemplate As Object],
[ByRef Revert As Object], [ByRef


WritePasswordDocument As Object],
[ByRef WritePasswordTemplate As Object], [ByRef


Format As Object],
[ByRef Encoding As Object], [ByRef Visible As


Object],
[ByRef OpenAndRepair As Object], [ByRef


DocumentDirection As Object],
[ByRef NoEncodingDialog As Object], [ByRef


XMLTransform As Object],
[ByRef NoAutoRepairDialog As Object])
As Microsoft.Office.Interop.Word.Document': Pas plus


spécifique.
'Public Function Open(ByRef FileName As Object, [ByRef


ConfirmConversions As Object],
[ByRef ReadOnly As Object], [ByRef


AddToRecentFiles As Object],
[ByRef PasswordDocument As Object], [ByRef


PasswordTemplate As Object],
[ByRef Revert As Object], [ByRef


WritePasswordDocument As Object],
[ByRef WritePasswordTemplate As Object], [ByRef


Format As Object],
[ByRef Encoding As Object], [ByRef Visible As


Object],
[ByRef OpenAndRepair As Object], [ByRef


DocumentDirection As Object],
[ByRef NoEncodingDialog As Object], [ByRef


XMLTransform As Object])
As Microsoft.Office.Interop.Word.Document': Pas plus


spécifique.

Bon je veux bien mais sauf erreur le seul paramêtre obligatoire est le nom


de fichier



Si quelqu'un à la solution ou un debut d'explication, je suis preneur

Merci d'avance
Didier


Avatar
Didier
Bonjour

nesserb a écrit :
Bonjour,

======> "Bon je veux bien mais sauf erreur le seul paramêtre obligatoire est
le nom de fichier"

Et l'existance de celui-ci !




D'accord pour une erreur d'exécution mais je doute fortement que l'existence du fichier soit verifier à la génération du projet.
Ceci dit comme j'ai trouve une solution en poursuivant mes recherches, j'en fait part au groupe des fois que cela serve à d'autre.

il faut remplacer

_mDoc = _wa.Documents.Open(Ctype("Test.Doc",Object))

par

_mDoc = _wa.Documents.Open2000(Ctype("Test.Doc",Object))

et youpie tout remarche.


Didier