Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Incompatiblité de type

Incompatiblité de type

5 réponses
Avatar
NetChris
Bonsoir, (une question pour les Cadors)

Impossible de comprendre pourquoi cette erreur d' incompatibilité de
type sur la fonction suivante:

Public Sub Word_Ouvrir_document(Nom_Document As Variant, Visu As
Variant)
Word_Creation_Lien_OLE
With Word_Application.Documents.Open( _
FileName:=Nom_Document, _
ConfirmConversions:= True, _
ReadOnly:=False, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
Revert:=False, _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, _
Visible:=Visu)
End With


J'envoie bien un champ texte exemple : c:\lettre\modele.doc et false ou
true pour visu !


Voici l'aide d'Acces concernant cette fonction d'ouverture d'un fichier WORD
:
'expression.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument,
WritePasswordTemplate, Format, Encoding, Visible)
'FileName Argument de type Variant obligatoire. Nom du document (les
chemins d'accès sont acceptés).
'ConfirmConversions Argument de type Variant facultatif. Affectez-lui la
valeur True pour afficher la boîte de dialogue Convertir si le fichier n'est
pas au format Microsoft Word.
'ReadOnly Argument de type Variant facultatif. Affectez-lui la valeur True
pour ouvrir le document en lecture seule.
'AddToRecentFiles Argument de type Variant facultatif. Affectez-lui la
valeur True pour ajouter le nom de fichier dans la liste des derniers
fichiers utilisés. Cette liste est située au bas du menu Fichier.
'PasswordDocument Argument de type Variant facultatif. Mot de passe
nécessaire à l'ouverture du document.
'PasswordTemplate Argument de type Variant facultatif. Mot de passe
nécessaire à l'ouverture du modèle.
'Revert Argument de type Variant facultatif. Contrôle quelles actions
doivent être exécutées si la valeur de l'argument Name est le nom de fichier
d'un document ouvert. Affectez la valeur True à l'argument Revert pour
ignorer les modifications apportées au document ouvert depuis son dernier
enregistrement et rouvrir le fichier. Affectez-lui la valeur False pour
activer le document ouvert.
'WritePasswordDocument Argument de type Variant facultatif. Mot de passe
nécessaire à l'enregistrement des modifications apportées au document.
'WritePasswordTemplate Argument de type Variant facultatif. Mot de passe
nécessaire à l'enregistrement des modifications apportées au modèle.
'Format Argument de type Variant facultatif. Convertisseur de fichier à
utiliser pour ouvrir le document. Il peut s'agir de l'une des constantes
WdOpenFormat suivantes : wdOpenFormatAllWord, wdOpenFormatAuto,
wdOpenFormatDocument, wdOpenFormatEncodedText, wdOpenFormatRTF,
wdOpenFormatTemplate, wdOpenFormatText wdOpenFormatUnicodeText ou
wdOpenFormatWebPages. wdOpenFormatAuto est la valeur par défaut.
'Pour spécifier un format de fichier externe, appliquez la propriété
OpenFormat à un objet FileConverter pour savoir quelle valeur doit être
affectée à cet argument.
'Encoding Argument de type Variant facultatif. Codage du document (page de
code ou jeu de caractères) qui doit être utilisé par Microsoft Word lors de
l'affichage du document enregistré. Il peut s'agir de n'importe quelle
constante MsoEncoding valide. Pour obtenir la liste des constantes
MsoEncoding valides, consultez l'Explorateur d'objets dans l'éditeur de
Visual Basic. La valeur par défaut est la page de code système. Type de
données Long en lecture-écriture.
'Visible Argument de type Variant facultatif. Cet argument a pour valeur
True si le document est ouvert dans une fenêtre visible. La valeur par
défaut est True.
End Sub

Merci pour votre aide

Chris
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond
Bonsoir.

Dans mon site, à automation word, j'ai marqué:
Encoding : ne pas utiliser
Visible : ne pas utiliser
je ne sais plus pourquoi mais je devais avoir une bonne raison.
essaie sans ces options, sait-on jamais.

commence par mettre toutes tes options en remarques et remet-les une à une
jusqu'à ce que ça bloque, je ne vois que ce moyen.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"NetChris" a écrit dans le message de
news:bj2kn2$1f5$
Bonsoir, (une question pour les Cadors)

Impossible de comprendre pourquoi cette erreur d' incompatibilité de
type sur la fonction suivante:

Public Sub Word_Ouvrir_document(Nom_Document As Variant, Visu As
Variant)
Word_Creation_Lien_OLE
With Word_Application.Documents.Open( _
FileName:=Nom_Document, _
ConfirmConversions:= True, _
ReadOnly:úlse, _
AddToRecentFiles:úlse, _
PasswordDocument:="", _
PasswordTemplate:="", _
Revert:úlse, _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, _
Visible:=Visu)
End With


J'envoie bien un champ texte exemple : c:lettremodele.doc et false ou
true pour visu !




Avatar
NetChris
L'erreur apparaît sur Nom_Document !
or il est égale à c:lettremodele.doc

Le ire, c'est que j'ai fait un programme de test simple avec un champ
Nom_Document et un bouton pour lancer la procédure, cela ne marche pas !
J'ai écrit un programme plus complexe, qui fait appel à cette même
procédure, et cela fonctionne !!
Je n'y comprend rien.


"Raymond" a écrit dans le message de
news:
Bonsoir.

Dans mon site, à automation word, j'ai marqué:
Encoding : ne pas utiliser
Visible : ne pas utiliser
je ne sais plus pourquoi mais je devais avoir une bonne raison.
essaie sans ces options, sait-on jamais.

commence par mettre toutes tes options en remarques et remet-les une à une
jusqu'à ce que ça bloque, je ne vois que ce moyen.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"NetChris" a écrit dans le message de
news:bj2kn2$1f5$
Bonsoir, (une question pour les Cadors)

Impossible de comprendre pourquoi cette erreur d' incompatibilité de
type sur la fonction suivante:

Public Sub Word_Ouvrir_document(Nom_Document As Variant, Visu As
Variant)
Word_Creation_Lien_OLE
With Word_Application.Documents.Open( _
FileName:=Nom_Document, _
ConfirmConversions:= True, _
ReadOnly:úlse, _
AddToRecentFiles:úlse, _
PasswordDocument:="", _
PasswordTemplate:="", _
Revert:úlse, _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, _
Visible:=Visu)
End With


J'envoie bien un champ texte exemple : c:lettremodele.doc et false
ou


true pour visu !








Avatar
Raymond
essaie simplement avec ça :

With Word_Application
.Visible = True
.Documents.Open ("c:lettremodele.doc")
End With
ajouter les set nothing derrière

si ça marche avec ça , il y a un truc dans ton instruction.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"NetChris" a écrit dans le message de
news:bj2n5q$367$
L'erreur apparaît sur Nom_Document !
or il est égale à c:lettremodele.doc

Le ire, c'est que j'ai fait un programme de test simple avec un champ
Nom_Document et un bouton pour lancer la procédure, cela ne marche pas !
J'ai écrit un programme plus complexe, qui fait appel à cette même
procédure, et cela fonctionne !!
Je n'y comprend rien.




Avatar
Daniel Carollo
Bonjour Christian!

J'ai verifie votre procedure d'ouverture du document, elle marche. Le
probleme doit se situer au niveau de la procedure Word_Creation_Lien_OLE.

Essayez de la replacer avec une procedure de test qui fait juste le minimum,
du genre:
Dim Word_Application As Word.Application
Set Word_Application = GetObject(, "Word.Application")

Si ca marche, faites nous voir le code de votre procedure
Word_Creation_Lien_OLE.

A bientot.

--
Daniel :-)

Computing Technologies International - www.computing-tech.com - We
provide solutions...

"NetChris" wrote in message
news:bj2kn2$1f5$
Bonsoir, (une question pour les Cadors)

Impossible de comprendre pourquoi cette erreur d' incompatibilité de
type sur la fonction suivante:

Public Sub Word_Ouvrir_document(Nom_Document As Variant, Visu As
Variant)
Word_Creation_Lien_OLE
With Word_Application.Documents.Open( _
FileName:=Nom_Document, _
ConfirmConversions:= True, _
ReadOnly:úlse, _
AddToRecentFiles:úlse, _
PasswordDocument:="", _
PasswordTemplate:="", _
Revert:úlse, _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, _
Visible:=Visu)
End With


J'envoie bien un champ texte exemple : c:lettremodele.doc et false ou
true pour visu !


Voici l'aide d'Acces concernant cette fonction d'ouverture d'un fichier
WORD

:
'expression.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument,
WritePasswordTemplate, Format, Encoding, Visible)
'FileName Argument de type Variant obligatoire. Nom du document (les
chemins d'accès sont acceptés).
'ConfirmConversions Argument de type Variant facultatif. Affectez-lui la
valeur True pour afficher la boîte de dialogue Convertir si le fichier
n'est

pas au format Microsoft Word.
'ReadOnly Argument de type Variant facultatif. Affectez-lui la valeur
True

pour ouvrir le document en lecture seule.
'AddToRecentFiles Argument de type Variant facultatif. Affectez-lui la
valeur True pour ajouter le nom de fichier dans la liste des derniers
fichiers utilisés. Cette liste est située au bas du menu Fichier.
'PasswordDocument Argument de type Variant facultatif. Mot de passe
nécessaire à l'ouverture du document.
'PasswordTemplate Argument de type Variant facultatif. Mot de passe
nécessaire à l'ouverture du modèle.
'Revert Argument de type Variant facultatif. Contrôle quelles actions
doivent être exécutées si la valeur de l'argument Name est le nom de
fichier

d'un document ouvert. Affectez la valeur True à l'argument Revert pour
ignorer les modifications apportées au document ouvert depuis son dernier
enregistrement et rouvrir le fichier. Affectez-lui la valeur False pour
activer le document ouvert.
'WritePasswordDocument Argument de type Variant facultatif. Mot de passe
nécessaire à l'enregistrement des modifications apportées au document.
'WritePasswordTemplate Argument de type Variant facultatif. Mot de passe
nécessaire à l'enregistrement des modifications apportées au modèle.
'Format Argument de type Variant facultatif. Convertisseur de fichier à
utiliser pour ouvrir le document. Il peut s'agir de l'une des constantes
WdOpenFormat suivantes : wdOpenFormatAllWord, wdOpenFormatAuto,
wdOpenFormatDocument, wdOpenFormatEncodedText, wdOpenFormatRTF,
wdOpenFormatTemplate, wdOpenFormatText wdOpenFormatUnicodeText ou
wdOpenFormatWebPages. wdOpenFormatAuto est la valeur par défaut.
'Pour spécifier un format de fichier externe, appliquez la propriété
OpenFormat à un objet FileConverter pour savoir quelle valeur doit être
affectée à cet argument.
'Encoding Argument de type Variant facultatif. Codage du document (page
de

code ou jeu de caractères) qui doit être utilisé par Microsoft Word lors
de

l'affichage du document enregistré. Il peut s'agir de n'importe quelle
constante MsoEncoding valide. Pour obtenir la liste des constantes
MsoEncoding valides, consultez l'Explorateur d'objets dans l'éditeur de
Visual Basic. La valeur par défaut est la page de code système. Type de
données Long en lecture-écriture.
'Visible Argument de type Variant facultatif. Cet argument a pour valeur
True si le document est ouvert dans une fenêtre visible. La valeur par
défaut est True.
End Sub

Merci pour votre aide

Chris





Avatar
NetChris
Merci Daniel,

En ne rien touchant, cela refonctionne !!! Je ne comprend pas, Enfin !

"Daniel Carollo" a écrit dans le
message de news:O%
Bonjour Christian!

J'ai verifie votre procedure d'ouverture du document, elle marche. Le
probleme doit se situer au niveau de la procedure Word_Creation_Lien_OLE.

Essayez de la replacer avec une procedure de test qui fait juste le
minimum,

du genre:
Dim Word_Application As Word.Application
Set Word_Application = GetObject(, "Word.Application")

Si ca marche, faites nous voir le code de votre procedure
Word_Creation_Lien_OLE.

A bientot.

--
Daniel :-)

Computing Technologies International - www.computing-tech.com - We
provide solutions...

"NetChris" wrote in message
news:bj2kn2$1f5$
Bonsoir, (une question pour les Cadors)

Impossible de comprendre pourquoi cette erreur d' incompatibilité de
type sur la fonction suivante:

Public Sub Word_Ouvrir_document(Nom_Document As Variant, Visu As
Variant)
Word_Creation_Lien_OLE
With Word_Application.Documents.Open( _
FileName:=Nom_Document, _
ConfirmConversions:= True, _
ReadOnly:úlse, _
AddToRecentFiles:úlse, _
PasswordDocument:="", _
PasswordTemplate:="", _
Revert:úlse, _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, _
Visible:=Visu)
End With


J'envoie bien un champ texte exemple : c:lettremodele.doc et false
ou


true pour visu !


Voici l'aide d'Acces concernant cette fonction d'ouverture d'un fichier
WORD

:
'expression.Open(FileName, ConfirmConversions, ReadOnly,
AddToRecentFiles,


PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument,
WritePasswordTemplate, Format, Encoding, Visible)
'FileName Argument de type Variant obligatoire. Nom du document (les
chemins d'accès sont acceptés).
'ConfirmConversions Argument de type Variant facultatif. Affectez-lui
la


valeur True pour afficher la boîte de dialogue Convertir si le fichier
n'est

pas au format Microsoft Word.
'ReadOnly Argument de type Variant facultatif. Affectez-lui la valeur
True

pour ouvrir le document en lecture seule.
'AddToRecentFiles Argument de type Variant facultatif. Affectez-lui la
valeur True pour ajouter le nom de fichier dans la liste des derniers
fichiers utilisés. Cette liste est située au bas du menu Fichier.
'PasswordDocument Argument de type Variant facultatif. Mot de passe
nécessaire à l'ouverture du document.
'PasswordTemplate Argument de type Variant facultatif. Mot de passe
nécessaire à l'ouverture du modèle.
'Revert Argument de type Variant facultatif. Contrôle quelles actions
doivent être exécutées si la valeur de l'argument Name est le nom de
fichier

d'un document ouvert. Affectez la valeur True à l'argument Revert pour
ignorer les modifications apportées au document ouvert depuis son
dernier


enregistrement et rouvrir le fichier. Affectez-lui la valeur False pour
activer le document ouvert.
'WritePasswordDocument Argument de type Variant facultatif. Mot de
passe


nécessaire à l'enregistrement des modifications apportées au document.
'WritePasswordTemplate Argument de type Variant facultatif. Mot de
passe


nécessaire à l'enregistrement des modifications apportées au modèle.
'Format Argument de type Variant facultatif. Convertisseur de fichier
à


utiliser pour ouvrir le document. Il peut s'agir de l'une des constantes
WdOpenFormat suivantes : wdOpenFormatAllWord, wdOpenFormatAuto,
wdOpenFormatDocument, wdOpenFormatEncodedText, wdOpenFormatRTF,
wdOpenFormatTemplate, wdOpenFormatText wdOpenFormatUnicodeText ou
wdOpenFormatWebPages. wdOpenFormatAuto est la valeur par défaut.
'Pour spécifier un format de fichier externe, appliquez la propriété
OpenFormat à un objet FileConverter pour savoir quelle valeur doit être
affectée à cet argument.
'Encoding Argument de type Variant facultatif. Codage du document
(page


de
code ou jeu de caractères) qui doit être utilisé par Microsoft Word lors
de

l'affichage du document enregistré. Il peut s'agir de n'importe quelle
constante MsoEncoding valide. Pour obtenir la liste des constantes
MsoEncoding valides, consultez l'Explorateur d'objets dans l'éditeur de
Visual Basic. La valeur par défaut est la page de code système. Type de
données Long en lecture-écriture.
'Visible Argument de type Variant facultatif. Cet argument a pour
valeur


True si le document est ouvert dans une fenêtre visible. La valeur par
défaut est True.
End Sub

Merci pour votre aide

Chris