[VBA-W] - AUTONEW et Rafraichissement [Résolu]

[perchtp]

Bonjour,
J'ai dans un modele word, une procedure qui me passe une zone de texte en case à cocher (1=coché, 0=décoché)... Cette procedure fonctionne.

J'ai voulu la faire tourner à l'ouverture d'un nouveau document de ce modele,
et j'ai lu qu'il fallait simplement appelé ma procedure via AUTONEW du modele... L'autonew lance bien ma procédure...MAIS!..

Malheureusement, ca ne marche pas.. comme si le champ était alimenté + tardivement... AVez-vous une idée?

[Speedrman]

Bonjour et bienvenu sur le forum

Je prend Ouskel'n'or de vitesse en te demandant de nous mettre ton code dans ton prochain post, ça nous permettra de repérer plus facilement le pourquoi du comment

n'oublies pas de mettre ton code entre les balises prévues à cette effet

[ouskel'n'or]

Hello Slowdrman, là tu ne risques rien, je n'ai jamais utilisé AUTONEW
Par contre, t'es mûr pour me remplacer. Tiens, je te laisse ma place

[perchtp]

J'ai un modele dont le nom de fichier est ModeleToto.Dot,
Celui-ci contient un champs texte nommé Champs7...

Le code contenu est le suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub AutoNew()
    faitmonchangt
End Sub
 
Sub faitmonchangt()
    Selection.GoTo What:=wdGoToBookmark, Name:="Champs7"
    Dim a
    a = Selection.Text
    Selection.Delete
    If a <> 1 Then
        Selection.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-3933, _
        Unicode:=True
    Else
        Selection.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-4013, _
                   Unicode:=True
    End If
    Selection.TypeText Text:=" blabla"
end sub

Si j'execute le code de la macro sur un "macrobutton", ca marche (remplacement de la valeur par la case).
Mais en Autonew (en principe, nouvelle instance de mon modele).. La valeur ne semble pas renseignée au chargement...

[ouskel'n'or]

Tu la mets où ta macro Public Sub AutoNew() ?

[Speedrman]

Si ça ne fonctionne pas, c'est que tu as du mettre ta fonction AUTONEW() dans le même module que la fonction faitmonchangt()

il te faut mettre AUTONEW() dans l'objet ThisDocument

ou bien créer un module nommé AutoNew dans lequel tu mettra une procédure nommé "Main" avec ton code

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub Main()
    Selection.GoTo What:=wdGoToBookmark, Name:="Champs7"
    Dim a
    a = Selection.Text
    Selection.Delete
    If a <> 1 Then
        Selection.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-3933, _
        Unicode:=True
    Else
        Selection.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-4013, _
                   Unicode:=True
    End If
    Selection.TypeText Text:=" blabla"
end sub

[perchtp]

Bonjour,
Ma procédure est bien dans thisdocument...et il fonctionne en "natif" word d'ailleurs...
Mais dans le word intégré à notre progiciel (lien oracle)... je pense que la mise à jour des champs s'operent apres le lancement de l'autonew.. et donc ca ne marche pas..

Merci de votre sympathique participation.

[ouskel'n'or]

Tu as une erreur dans ton code

Code :

1
2
3
    a = Selection.Text
    Selection.Delete
    If a <> 1 Then

J'ignore ce que tu souhaites mais je mettrais

Code :

a = Val(Selection.Text)

ou

Code :

If a <> "1"

Peut-être pour ça que ça ne va pas plus loin... Juste une idée

Edit
Le remplacement par blabla supprime le signet.
A toutes fins utiles

[perchtp]

Bonjour,
J'avais remarqué ce petit probleme de a<>1=>a<>"1"...
Vos 2 solutions fonctionnent effectivement en word "classique".

En fait, je suis dans un "intégré", qui n'utilise pas de mergefield pour acceder la base de données, mais un simple "texte" où le textepardefaut sert de rubrique vers oracle (ca rebalance une requete pour récupérer la valeur)...
Voila donc pourquoi ca ne veut pas marcher.. un composant doit acceder à word apres cet autonew...

Vous avez été tres cool.. Merci...

[ouskel'n'or]

J'ai vu passer un code qui "pourrait"... "peut-être" résoudre ton problème
Consiste à utiliser Le préfixe "WordBasic". Je te passe l'adresse. Je pense qu'il est dans une config voisine de la tienne.
Tu vas à la réponse 3.
Juste pour t'indiquer une direction de recherche possible.
Bonne chance