j'ai un problème : dans un programme VBA, j'ouvre une page Word, je
recherche un signet et je pose une string puis je la mets en gras et corps 12.
cela fonctionne 1 fois, si je relance mon code (declenché par combo qui
selectionne un enregistrement)sur un autre enregistrement, le code marche
bien mais pas de mise en gras ni corps 12...
j'utilise :
W_App.ActiveDocument.Bookmarks("affaire").Select
c = rsts!txtAffaire
W_App.Selection.InsertAfter c & " "
W_App.Selection.Select
With Selection
.Font.Bold = True
.Font.Size = 12
End With
et si je me pose sur .selection (lors d'un 2 eme "passage") il me mets : "le
serveur distant n'existe pas ou n'est pas disponible"!!!!!
si je ferme l'appli et la réouvre ca marche, mais pas si je selectionne un
autre enregistrement à traiter.
que puis-je faire?
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
Raymond [mvp]
Bonsoir.
Il faudrait que tu affiches toutes les fonctions concernant l'automation pour voir s'il n'y a pas d'erreur du type application fermée.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"adret" a écrit dans le message de news:
Bonjour
j'ai un problème : dans un programme VBA, j'ouvre une page Word, je recherche un signet et je pose une string puis je la mets en gras et corps 12. cela fonctionne 1 fois, si je relance mon code (declenché par combo qui selectionne un enregistrement)sur un autre enregistrement, le code marche bien mais pas de mise en gras ni corps 12... j'utilise :
W_App.ActiveDocument.Bookmarks("affaire").Select c = rsts!txtAffaire W_App.Selection.InsertAfter c & " " W_App.Selection.Select With Selection .Font.Bold = True .Font.Size = 12 End With et si je me pose sur .selection (lors d'un 2 eme "passage") il me mets : "le serveur distant n'existe pas ou n'est pas disponible"!!!!!
si je ferme l'appli et la réouvre ca marche, mais pas si je selectionne un autre enregistrement à traiter. que puis-je faire?
merci d'avance philippe
Bonsoir.
Il faudrait que tu affiches toutes les fonctions concernant l'automation
pour voir s'il n'y a pas d'erreur du type application fermée.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"adret" <adret@discussions.microsoft.com> a écrit dans le message de news:
87147865-7B49-4A45-949E-289549A418B1@microsoft.com...
Bonjour
j'ai un problème : dans un programme VBA, j'ouvre une page Word, je
recherche un signet et je pose une string puis je la mets en gras et corps
12.
cela fonctionne 1 fois, si je relance mon code (declenché par combo qui
selectionne un enregistrement)sur un autre enregistrement, le code marche
bien mais pas de mise en gras ni corps 12...
j'utilise :
W_App.ActiveDocument.Bookmarks("affaire").Select
c = rsts!txtAffaire
W_App.Selection.InsertAfter c & " "
W_App.Selection.Select
With Selection
.Font.Bold = True
.Font.Size = 12
End With
et si je me pose sur .selection (lors d'un 2 eme "passage") il me mets :
"le
serveur distant n'existe pas ou n'est pas disponible"!!!!!
si je ferme l'appli et la réouvre ca marche, mais pas si je selectionne un
autre enregistrement à traiter.
que puis-je faire?
Il faudrait que tu affiches toutes les fonctions concernant l'automation pour voir s'il n'y a pas d'erreur du type application fermée.
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"adret" a écrit dans le message de news:
Bonjour
j'ai un problème : dans un programme VBA, j'ouvre une page Word, je recherche un signet et je pose une string puis je la mets en gras et corps 12. cela fonctionne 1 fois, si je relance mon code (declenché par combo qui selectionne un enregistrement)sur un autre enregistrement, le code marche bien mais pas de mise en gras ni corps 12... j'utilise :
W_App.ActiveDocument.Bookmarks("affaire").Select c = rsts!txtAffaire W_App.Selection.InsertAfter c & " " W_App.Selection.Select With Selection .Font.Bold = True .Font.Size = 12 End With et si je me pose sur .selection (lors d'un 2 eme "passage") il me mets : "le serveur distant n'existe pas ou n'est pas disponible"!!!!!
si je ferme l'appli et la réouvre ca marche, mais pas si je selectionne un autre enregistrement à traiter. que puis-je faire?