Bonjour,
 
Je ne suis pas calé en programmation VBA et je m'arrache les cheveux en cherchant à créer une opération "basique" malgré le suivi de tutos...
 
J'ai un document Word sur lequel j'ai inséré 13 signet (signet01, signet 02, ... , signet 13).
 
J'ai créé un userform qui s'ouvre au démarrage du document avec 13 textbox (TextBox1, Textbox2, ... , TextBox13)
 
Je souhaiterai que, lorsque je clique sur le bouton, ce qui est écrit dans TextBox1 se copie dans le signet01, Textbox2 dans signet02, .... , jusqu'à 13. Avec une boucle ou sans boucle...
 
Mais je rencontre systématiquement des erreurs en m'inspirant des tutos.
 
Y a-t-il quelques lignes de code simples à entrer dans mon bouton ?
 
Merci à vous !

Salut,
j'ai taper ton problémes sur Chatgpt  
voici sa reponse:"
Je comprends à quel point la programmation VBA peut parfois être délicate. Pas de souci, je suis là pour aider! Pour copier le contenu des TextBox dans les signets correspondants, vous pouvez utiliser un code VBA simple.

Voici un exemple de code que vous pouvez placer dans le gestionnaire d'événements du bouton de votre UserForm :

vba
Copy code
Private Sub Bouton_Click()
    Dim i As Integer

   ' Boucle à travers les TextBox et copie le contenu dans les signets correspondants
    For i = 1 To 13
        ActiveDocument.Bookmarks("signet" & Format(i, "00" )).Range.Text = Controls("TextBox" & i).Text
    Next i
End Sub
Assurez-vous de remplacer "Bouton" par le nom réel de votre bouton dans le code.

N'hésitez pas à me faire savoir si vous avez des questions supplémentaires ou si quelque chose ne fonctionne pas comme prévu. Bonne chance avec votre projet VBA!"
Pas mal non?

Si tu as des questions ou si tu es bloqué avec VBA, tu pourrais essayer de lui poser des questions spécifiques. C'est assez impressionnant pour fournir des réponses claires et utiles. Ça pourrait vraiment accélérer ton processus d'apprentissage.

Salut et merci pour cette réponse !
Il est vrai que je n'avais pas pensé à chatGPT...
 
Mais je recois une erreur sur la ligne ActiveDocument : 5941 le membre de la collection n'existe pas.
 
 
****
 
Sinon j'avais essayé avec ce code :
 
et WordApp = GetObject(, "Word.Application" )
 
 
With WordApp
 
.Selection.GoTo what:=wdGoToBookmark, Name:="signetA"
            .Selection.TypeText Text:=Me.TextBox1.Text
 
Mais je reçois une erreur me disant que le signet n'existe pas "impossible de trouver le signet spécifié" alors que ce signet existe bien et que je l'orthographie correctement...
 

oups, le code de chatGPT fonctionne finalement.
 
Mais pourquoi je rencontre une erreur sur MON code ?