Bonsoir à tous
lors d'un export de données vers Word j'obtiens une erreur "Données de type
imcompatible"
voici une partie du code
With rst
doc.Bookmarks("sigsignal").Select
Do Until .EOF
With objWord.Selection
Var_IW_Bien_Type = .Fields("TYPE_DE_BIEN")
Var_IW_Bien_Ref = .Fields("ref_bien")
.TypeText Var_IW_Bien_Type
.MoveRight wdCell
.TypeText Var_IW_Bien_Ref
.MoveRight wdCell
End With
.MoveNext
Loop
End With
la variable Var_IW_Bien_Type est déclarée comme variant
ce qui ne doit pas être ce que tu désires mais rst.Fields("TYPE_DE_BIEN")
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Monkeytoo" a écrit dans le message de news:edwVYB%
Bonsoir à tous lors d'un export de données vers Word j'obtiens une erreur "Données de type
imcompatible" voici une partie du code
With rst doc.Bookmarks("sigsignal").Select Do Until .EOF With objWord.Selection Var_IW_Bien_Type = .Fields("TYPE_DE_BIEN") Var_IW_Bien_Ref = .Fields("ref_bien") .TypeText Var_IW_Bien_Type .MoveRight wdCell .TypeText Var_IW_Bien_Ref .MoveRight wdCell End With .MoveNext Loop End With
la variable Var_IW_Bien_Type est déclarée comme variant
Bonsoir.
j'ai déjà répondu à cette question mais ma réponse n'apparait pas.
With rst
doc.Bookmarks("sigsignal").Select
Do Until .EOF
With objWord.Selection
Var_IW_Bien_Type = .Fields("TYPE_DE_BIEN")
tu as un problème de coordination de with
With objWord.Selection
Var_IW_Bien_Type = .Fields("TYPE_DE_BIEN")
ce qui ne doit pas être ce que tu désires mais rst.Fields("TYPE_DE_BIEN")
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Monkeytoo" <coiffurevogue@skynet.be> a écrit dans le message de
news:edwVYB%23yDHA.1660@TK2MSFTNGP09.phx.gbl...
Bonsoir à tous
lors d'un export de données vers Word j'obtiens une erreur "Données de
type
imcompatible"
voici une partie du code
With rst
doc.Bookmarks("sigsignal").Select
Do Until .EOF
With objWord.Selection
Var_IW_Bien_Type = .Fields("TYPE_DE_BIEN")
Var_IW_Bien_Ref = .Fields("ref_bien")
.TypeText Var_IW_Bien_Type
.MoveRight wdCell
.TypeText Var_IW_Bien_Ref
.MoveRight wdCell
End With
.MoveNext
Loop
End With
la variable Var_IW_Bien_Type est déclarée comme variant
ce qui ne doit pas être ce que tu désires mais rst.Fields("TYPE_DE_BIEN")
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Monkeytoo" a écrit dans le message de news:edwVYB%
Bonsoir à tous lors d'un export de données vers Word j'obtiens une erreur "Données de type
imcompatible" voici une partie du code
With rst doc.Bookmarks("sigsignal").Select Do Until .EOF With objWord.Selection Var_IW_Bien_Type = .Fields("TYPE_DE_BIEN") Var_IW_Bien_Ref = .Fields("ref_bien") .TypeText Var_IW_Bien_Type .MoveRight wdCell .TypeText Var_IW_Bien_Ref .MoveRight wdCell End With .MoveNext Loop End With
la variable Var_IW_Bien_Type est déclarée comme variant
