> 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
261,96 €Ecran PC 27 pouces incurvé Samsung Odyssey G5 (WQHD, 144 Hz, 1 ms) à 261,96 €
299 € -12%

Amazon fait une promotion sur l'écran PC Samsung 27 pouces incurvé Samsung Odyssey G5 à 261,96 € alors qu'on le trouve ailleurs à partir de 299 €. Cet écran incurvé de 27 pouces offre une définition WQHD de 2560x1440 pixels et est compatible FreeSync Premium avec un taux de réponse de 1 ms et un rafraichissement de 144 Hz. Une bonne affaire.


Voir l'offre
16,99 €Coffret d'embouts de vissage et clés à cliquet Bosch (27 pièces) à 16,99 €
23 € -26%

Amazon fait une promotion sur le coffret d'embouts de vissage et de clés à cliquet Bosch (27 pièces) qui passe à 16,99 € alors qu'on le trouve ailleurs à partir de 23 €. 


Voir l'offre
599 €Portable 17,3 pouces HP (FHD IPS, Ryzen 5 5500U, 16Go/512Go, Windows 11) à 599 €
699 € -14%

Leclerc fait une belle promotion sur l'ordinateur portable HP Pavilion 17-cp0298nf  qui passe à 599 €. Ce portable possède un écran 17.3 pouces Full HD (1920x1080) IPS, un processeur AMD Ryzen 5 5500U (8 coeurs), 16 Go de RAM, un SSD NVMe de 512 Go et un chip graphique Vega 7. Le tout tourne sous Windows 11.

De quoi faire de la bureautique, surfer sur Internet, du multimédia et des petits jeux en toute tranquillité.


Voir l'offre
67 €Clé USB Sandisk Luxe 512 Go à double connectique USB 3.1 Type A et C à 67 €
90 € -26%

Cdiscount fait une promotion sur la clé USB Sandisk Luxe 512 Go à double connectique USB 3.1 Type A et C qui passe à 67 €. 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 90 €.


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