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 14/01/2008, 16h02   #1
Membre éclairé
 
Inscription : décembre 2007
Messages : 426
Détails du profil
Informations forums :
Inscription : décembre 2007
Messages : 426
Points : 313
Points : 313
Par défaut Positionner le curseur

Bonjour,

J'ai une macro qui se termine par
Code :
Selection.Fields.Update
qui à l'inconvénient de me selectionner tout mon document.

Comment déselectionner le document et repositionner le curseur en début de document, ou mieu à un endroit que je désire ?

Merci d'avance pour vos réponse
Eric93 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 14/01/2008, 17h27   #2
Responsable Word

 
Avatar de Heureux-oli
 
Homme Olivier Lebeau
Contrôleur d'industrie
Inscription : février 2006
Messages : 17 354
Détails du profil
Informations personnelles :
Nom : Homme Olivier Lebeau
Âge : 47
Localisation : Belgique

Informations professionnelles :
Activité : Contrôleur d'industrie
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2006
Messages : 17 354
Points : 29 270
Points : 29 270
Au début du document, c'est facile, on connait la position, mais à un autre endroit, il faut dire à Word où aller.

Code :
Selection.HomeKey Unit:=wdStory
Pour atteindre le début du document.

Et EndKey pour la fin !
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA

Mes articles


Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Heureux-oli est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/01/2008, 11h26   #3
Membre éclairé
 
Inscription : décembre 2007
Messages : 426
Détails du profil
Informations forums :
Inscription : décembre 2007
Messages : 426
Points : 313
Points : 313
Ok, merci, et si on veux qu'il se repositionne à l'endroit ou il se trouvais avant le lancement de la macro ? ca dois être faisable, non ?
Eric93 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/01/2008, 11h46   #4
Responsable Word

 
Avatar de Heureux-oli
 
Homme Olivier Lebeau
Contrôleur d'industrie
Inscription : février 2006
Messages : 17 354
Détails du profil
Informations personnelles :
Nom : Homme Olivier Lebeau
Âge : 47
Localisation : Belgique

Informations professionnelles :
Activité : Contrôleur d'industrie
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2006
Messages : 17 354
Points : 29 270
Points : 29 270
Oui, on peut le faire, il faut insérer un Signet pour y retourner ensuite.
Code :
1
2
 
ActiveDocument.Bookmarks.Add Name:="S1"
Pour y retouner

Code :
Selection.GoTo What:=wdGoToBookmark, Name:="S1"
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA

Mes articles


Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Heureux-oli est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/01/2008, 12h38   #5
Membre éclairé
 
Inscription : décembre 2007
Messages : 426
Détails du profil
Informations forums :
Inscription : décembre 2007
Messages : 426
Points : 313
Points : 313
Merci, c'est parfait, et comment supprimer le signet ensuite ?
Eric93 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/01/2008, 12h43   #6
Membre éclairé
 
Inscription : décembre 2007
Messages : 426
Détails du profil
Informations forums :
Inscription : décembre 2007
Messages : 426
Points : 313
Points : 313
J'ai trouvé, merci beaucoup
Eric93 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/01/2008, 12h48   #7
Responsable Word

 
Avatar de Heureux-oli
 
Homme Olivier Lebeau
Contrôleur d'industrie
Inscription : février 2006
Messages : 17 354
Détails du profil
Informations personnelles :
Nom : Homme Olivier Lebeau
Âge : 47
Localisation : Belgique

Informations professionnelles :
Activité : Contrôleur d'industrie
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2006
Messages : 17 354
Points : 29 270
Points : 29 270
Avec la seule méthode qui permet la suppresion en informatique

Code :
ActiveDocument.Bookmarks("a").Delete
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA

Mes articles


Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Heureux-oli est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/01/2008, 14h32   #8
Rédacteur/Modérateur
 
Avatar de Sepia
 
Homme JF Jousseaume
Inscription : octobre 2007
Messages : 2 390
Détails du profil
Informations personnelles :
Nom : Homme JF Jousseaume
Âge : 48
Localisation : France

Informations professionnelles :
Secteur : High Tech - Éditeur de logiciels

Informations forums :
Inscription : octobre 2007
Messages : 2 390
Points : 3 356
Points : 3 356
Par défaut Supprimer un signet

Salut,


Pour éviter tout pb, il est préférable de tester avant la présence du signte (pour éviter une erreur d'exécution). En effet, en fonction de l'endroit où tu es au départ de ta macro ton signet peut avoir disparu entre temps, par exemple si tu es dans une table des matières car lors de sa mise à jour complète, elle est supprimée pour être construite et donc si ton signet était dedans ele signet disparait avec une erreur d'exécution (il y a d'autres cas mais c'est le plus courant). Donc il faut tester avant

Code :
1
2
3
4
 
If ActiveDocument.Bookmarks("a").Exists Then
   ActiveDocument.Bookmarks("a").Delete
End If
Sepia est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/01/2008, 15h16   #9
Membre éclairé
 
Inscription : décembre 2007
Messages : 426
Détails du profil
Informations forums :
Inscription : décembre 2007
Messages : 426
Points : 313
Points : 313
Merci pour la précision, je corrige
Eric93 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/01/2008, 15h21   #10
Membre éclairé
 
Inscription : décembre 2007
Messages : 426
Détails du profil
Informations forums :
Inscription : décembre 2007
Messages : 426
Points : 313
Points : 313
Petite correction :
Code :
1
2
3
If ActiveDocument.Bookmarks.Exists("a") Then
   ActiveDocument.Bookmarks("a").Delete
End If
Eric93 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 15/01/2008, 23h01   #11
Rédacteur/Modérateur
 
Avatar de Sepia
 
Homme JF Jousseaume
Inscription : octobre 2007
Messages : 2 390
Détails du profil
Informations personnelles :
Nom : Homme JF Jousseaume
Âge : 48
Localisation : France

Informations professionnelles :
Secteur : High Tech - Éditeur de logiciels

Informations forums :
Inscription : octobre 2007
Messages : 2 390
Points : 3 356
Points : 3 356
Oui, en effet.

Je l'ai fait tellement souvent que j'ai cru pouvoir éviter de vérifier la commande avec Word. Ce n'est pas bien. Excuse-moi encore.
Sepia est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/01/2008, 07h45   #12
Responsable Word

 
Avatar de Heureux-oli
 
Homme Olivier Lebeau
Contrôleur d'industrie
Inscription : février 2006
Messages : 17 354
Détails du profil
Informations personnelles :
Nom : Homme Olivier Lebeau
Âge : 47
Localisation : Belgique

Informations professionnelles :
Activité : Contrôleur d'industrie
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2006
Messages : 17 354
Points : 29 270
Points : 29 270
Heureux-oli est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 17/01/2008, 17h40   #13
Rédacteur/Modérateur
 
Avatar de Sepia
 
Homme JF Jousseaume
Inscription : octobre 2007
Messages : 2 390
Détails du profil
Informations personnelles :
Nom : Homme JF Jousseaume
Âge : 48
Localisation : France

Informations professionnelles :
Secteur : High Tech - Éditeur de logiciels

Informations forums :
Inscription : octobre 2007
Messages : 2 390
Points : 3 356
Points : 3 356
Citation:
Envoyé par Heureux-oli Voir le message
Aie
Sepia 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 07h45.


 
 
 
 
Partenaires

Hébergement Web