> 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
41,99 €SSD Gigabyte 512 Go (M.2, 1700 Mo/s) à 41,99 €
Valable jusqu'au 27 Juin

RueDuCommerce fait une promotion sur le SSD Gigabyte 512 Go M.2 2280 à 41,99 € au lieu de 70 € ailleurs. Ce SSD offre des vitesses de lecture/écriture séquentielle allant jusqu’à 1700/ 1 555 Mo/s. Il est garanti 5 ans.

Compatible avec la boite à outils SSD de Gigabyte, application qui aide les utilisateurs à surveiller l'état du SSD, fournit des informations générales telles que le nom du modèle, la version FW, l'état de santé, l'optimisation du lecteur et détecte également la température du capteur. De plus, les utilisateurs peuvent effacer toutes les données avec la fonction Secure Erase. Vous pourrez télécharger la boîte à outils SSD depuis le support.


> Voir l'offre
255 €Bureau électrique réglable en hauteur ACGAM ET225E (2 moteurs, plateau bois, stock Europe) à 255 €
Valable jusqu'au 28 Juin

Geekbuying fait une promotion sur le bureau électrique assis-debout ACGAM ET225E qui passe à 255 € grâce au code promo NNNFRACGAM. On le trouve ailleurs à 379,99 €. La livraison est rapide et gratuite (entrepôt européen). Avec 2 moteurs , hauteur réglable de 62 à 127 cm, télécommande avec 3 hauteurs en mémoire, plateau bois de 140x60 cm.


> Voir l'offre
36,99 €Clé USB Sandisk Luxe 256 Go à double connectique USB 3.1 Type A et C à 36,99 €
Valable jusqu'au 28 Juin

Cdiscount fait une promotion sur la clé USB Sandisk Luxe 256 Go à double connectique USB 3.1 Type A et C qui passe à 36,99 €. Cette clé USB  dispose d'un connecteur USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 47 €.


> 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