> Tous les forums > Forum Bureautique
 Vérifier les noms d'entrées automatiques en VBA pour WORD 2003 (Windows 10)Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
deb56
  Posté le 15/03/2018 @ 01:31 
Aller en bas de la page 
Petit astucien

Bonjour à tous.

Je voudrais permettre dans un document Word des entrées automatiques personnalisées en fonction d'un code également personnel, à des intervenants différents sur ce document. Ça fonctionne.

C'est à la création, par macro VBA, des entrées et surtout de leurs codes que j'ai un problème, chaque intervenant devant créer son propre code (= nom de l'entrée automatique), sans que celui-ci existe déjà dans les entrées antérieures, sous peine de les remplacer. Ce qui est inacceptable, bien sûr. J'ai donc écrit quelque chose en VBA (capture ci-dessous) , mais ça ne fonctionne pas. Je ne sais d'ailleurs pas à quoi "item" correspond, au juste. Lien vers une image externe

Quelqu'un pourrait-il corriger ma syntaxe VBA (pour Word 2003)?

Merci d'avance pour vos aides. Bonne nuit à tous. Cordialement. deb56

Publicité
deb56
 Posté le 15/03/2018 à 10:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à tous.

Désolé! Je vous ai sollicités trop vite. J'ai trouvé une solution ci-dessous (pour ceux qui se poseraient la même question):

Merci de votre attention. Cordialement. deb56

deb56
 Posté le 15/03/2018 à 10:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

PS: Mais si quelqu'un peut me dire à quoi correspond "Item" et quels arguments il attend, je suis toujours preneur.

deb56
 Posté le 21/03/2018 à 17:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à tous.

Comme alternative, j'essaie d'utiliser les variables. Et ça marche aussi. Mais si, pour supprimer une entrée Variables(code) qui n'existe pas, j'obtiens, comme prévu la boîte de dialogue prévisible dont le bouton par défaut est "Débogage" et non "Fin", ce qui ne convient pas. J'ai tenté de bloquer le dialogue d'erreur pour renvoyer à une gestion ErreurCode, mais ça ne fonctionne pas, comme le montre la capture d'écran ci-dessous.

Quelqu'un pourrait-il me dire où ma syntaxe est fausse? Rappel: VBA pour Word (2003)

Merci d'avance. Cordialement. deb56

deb56
 Posté le 30/03/2018 à 11:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à tous.

Bon! Je vois que ça n'a inspiré personne. Pas grave! J'ai trouvé une solution sans erreur que je vous mets ci-dessous, au cas où...

Et je mets le sujet en "résolu".

Bonne continuation à tous. deb 56

Dim code As String, signature As String, i As Variant

UserFormSignature.Show

code = UserFormSignature.TextBoxCode.Text

UserFormSignature.TextBoxCode.Text = ""

For Each i In ActiveDocument.AttachedTemplate.AutoTextEntries

If i.Name = code Then signature = i.Value

Next i

If signature = "" Then GoTo ErreurCode

If MsgBox("La signature de " & signature & vbCr _

& "est-elle bien celle que vous voulez supprimer?" & vbCr & vbCr _

& " Dans le cas contraire, cliquez sur ""Non"".", Title:="Vérification", _

buttons:=vbYesNo) = vbNo Then GoTo 0

ActiveDocument.AttachedTemplate.AutoTextEntries(code).Delete

GoTo 0

ErreurCode:

MsgBox "Cette entrée n'existe pas.", Title:="Erreur!", buttons:=vbOKOnly + vbExclamation

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
14,90 €Adaptateur WiFi USB TP-Link Archer T3U à 14,90 €
23,90 € -38%

Amazon fait une promotion sur l'adaptateur WiFi USB TP-Link Archer T3U qui passe à 14,90 €. Cette clé USB vous permettra du profiter du WiFi double Bande AC 1300 Mbps sur votre ordinateur. De quoi diffuser des vidéos HD sans problème et copier rapidement des fichiers volumineux. On la trouve ailleurs à partir de 23,90 €. 


Voir l'offre
89,99 €Thrustmaster T-16000M FCS Hotas (joystick + manette des gaz) à 89,99 €
149 € -40%

Cdiscount fait promotion sur le système Thrustmaster T-16000M FCS Hotas qui passe à 89,99 € alors qu'on le trouve ailleurs à plus de 149 €. Cet ensemble comporte un joystick T.16000M FCS et une manette des gaz TWCS. Une bonne solution pour les amateurs de simulation de vol.


Voir l'offre
19,59 €Rasoir à barbe sans fil Philips QP2530/30 OneBlade à 19,59 €
32 € -39%

Amazon fait une promotion sur le rasoir électrique sans fil Philips QP2520/30 OneBlade qui passe à 19,59 €. Ce rasoir vous permettra à la fois de tailler votre barbe (sabots de 1 3 et 5 mm) et de définir proprement les contours. Le rasoir est étanche et fonctionne avec et sans mousse. Vous pouvez facilement le nettoyer. Il est accompagné d'une lame de rechange, de 3 sabots et de son chargeur.


Voir l'offre
74,99 €Alimentation modulaire Corsair CX750F RGB 80+ Bronze à 74,99 €
94,99 € -21%

Cdiscount propose actuellement l'alimentation modulaire Corsair CX750F RGB à 74,99 €. On la trouve ailleurs à partir de 94,99 €.

Cette alimentation de 750W est certifiée 80+ Bronze et est garantie 5 ans. Entièrement modulaire, vous pourrez brancher uniquement les câbles (fournis) dont vous avez besoin. Vous profitez également d’un éclairage personnalisable dynamique grâce à un ventilateur RGB de 120 mm doté de huit LED RGB.

 


Voir l'offre

Sujets relatifs
word a télécharger gratuitement pour windows 10
Aide indentation styles titres pour tables des matières, Word 2003 !!
Word 2003 sur Windows XP
Word 2010 - aide pour insertions automatiques SVP
liste déroulante pour publipostage word 2003
Pour débutantb: Word 2003 & 2007 simultanément
Bordures pour word 2003
Lenteur d'ouverture Word 2003 -Windows XP
erreur d'application pour Word 2003
Word 2003 et Word to go pour Palm
Plus de sujets relatifs à Vérifier les noms d''entrées automatiques en VBA pour WORD 2003 (Windows 10)
 > Tous les forums > Forum Bureautique