Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 20/12/2006, 08h11   #1
Nouveau Membre du Club
 
Avatar de PhRey
 
Inscription : décembre 2006
Messages : 187
Détails du profil
Informations forums :
Inscription : décembre 2006
Messages : 187
Points : 30
Points : 30
Par défaut [Word]Recuperer valeur Signet Word

Bonjour,
dans un document Word, je desire récuperer la valeur de mon signet "numero" et enregistrer mon fichier .doc avec pour nom cette valeur... puis fermer le fichier. (le tout commandé par un simple bouton)

Exemple :
Mon document Word ouvert se nomme "Document.doc"
Le permier Signet de ce document s'appele "numero" et montre la valeur "4455".
En cliquant sur un bouton, je voudrais enregistrer mon document Word sous le nom "4455.doc" et le fermer.

Je ne pense que ca soit difficile ou long, mais en tant que touriste de VB je patauge lamentablement, et comme c'est pour m'aider dans mon taf, je stress !!!

Qqun aurait-il la gentillesse de m'aider un peu svp ?
PhRey est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 20/12/2006, 12h19   #2
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Vas donc, hé ! Touriste !
Pas compliqué, en effet
Si ton signet contient le N° que tu souhaites utiliser comme nom de fichier,
Code :
1
2
3
    Selection.GoTo What:=wdGoToBookmark, Name:="Numéro"
    NomFich = Selection
    ActiveDocument.SaveAs FileName:=NomFich + ".doc"
Si le signet est placé avant le Numéro, tu dois sélectionner ce dernier
Code :
1
2
3
4
    Selection.GoTo What:=wdGoToBookmark, Name:="Numéro"
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
    NomFich = Selection
'etc
A+
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 20/12/2006, 13h23   #3
Nouveau Membre du Club
 
Avatar de PhRey
 
Inscription : décembre 2006
Messages : 187
Détails du profil
Informations forums :
Inscription : décembre 2006
Messages : 187
Points : 30
Points : 30
Genial ! T'es un pote ! Ca va me permettre d'aller prendre l'air au lieu de passer la journée sur une betise comme ca !!! Merci pour ta gentillesse !
PhRey est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 15h51.


 
 
 
 
Partenaires

Hébergement Web