> 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
99 €Platine vinyle Audio Technica ATLP60BK à 99 €
Valable jusqu'au 28 Juin

Boulanger fait une promotion sur la platine vinyle Audio-Technica ATLP60BK qui passe à 99 € via une remise effectuée automatiquement dans le panier au lieu de 120 € habituellement. La platine AUDIO-TECHNICA ATLP60BK vous permet d'écouter les disques vinyle aux formats 33 tours ou 45 tours. Son fonctionnement entièrement automatique vous dispense de tout réglage fastidieux. Placez votre vinyle, lancez la lecture et profitez du son chaleureux de vos disques. La platine intègre un pré-ampli phono commutable.


> Voir l'offre
19,99 €Ventilateur sur pied Oceanic (40 cm, 45W, oscillant, 3 puissances, hauteur réglable) à 19,99 €
Valable jusqu'au 28 Juin

Cdisount fait une promotion sur le ventilateur sur pied Oceanic (40 cm, 45W, oscillant, 3 puissances, hauteur réglable) à 19,99 € au lieu de 35 €. 


> Voir l'offre
44,99 €Lot de 2 brosses à dents électriques Oral-B Pro 2950 CrossAction à 44,99 €
Valable jusqu'au 29 Juin

Amazon fait une promotion sur le lot de 2 brosses à dents électriques Oral-B Pro 2950 CrossAction qui passe à 44,99 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 63 €. Cette brosse à dent rechargeable rend vos dents plus blanches en douceur dès le premier jour en éliminant les taches de surface. 2 modes de brossage : propreté et soin des gencives. Le minuteur professionnel de 2 minutes vous permet de vous brosser les dents pendant la durée recommandée.


> 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