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 25/04/2006, 09h45   #1
Invité de passage
 
Inscription : avril 2006
Messages : 1
Détails du profil
Informations forums :
Inscription : avril 2006
Messages : 1
Points : 0
Points : 0
Par défaut [VBA-W]Pb de prog sous word!!!!!

Bonjour a tous

Je vous écris car g un problème en programmation. En fait je veux programmer en Visual Basic sous Word

Je dois créer un document ou l'utilisateur doit cliquer sur un bouton de commande. Lorsque qu'il clique dessus, une nouvelle fenêtre (userform) apparait ou il peut cliquer sur différents boutons de commande. Suivant sur quel bouton il clique un autre document s'ouvre et je veux copier ce qu'il y a dans le nouveau document pour le mettre à un certain endroit dans le premier

Le problème est que les infos du 2nd doc se mettent n' importe où ds le premier et parfois même ca me supprime le bouton de commande???

J'ai essayé d'utiliser les méthodes Move ou des trucs comme ca mais ca ne marche pas!!!!

Ca fait une semaine ke j'essaie alors si quelqu'1 a 1 idée kil n'hésite pas...

Voici le code de ma fonction:

'On cache la fenetre de selection du choix de categorie
UserForm1.Hide

'On change le chemin d'acces pour ouvrir les doc
ChangeFileOpenDirectory "H:\Analyse du risque\FORD\Essais"

'Ouverture du fichier ce_410.doc et configuration
Documents.Open FileName:="ce_410.doc", ConfirmConversions:=False, _ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto

'On descend d'une fenetre vers le bas
ActiveWindow.ActivePane.LargeScroll Down:=-1

'On selectionne tout le doc ce_410.doc
Selection.WholeStory

'On copie toute la selection
Selection.Copy

'On ferme la fenetre du doc ce_410.doc
ActiveWindow.Close

'On colle la selection dans le doc principal
Selection.Paste

'On selectionne ce que l'on vient de coller
ActiveDocument.Bookmarks("ce_410").Select

'On deplace le signet ce_410
wdUnits = Selection.Move(Unit:=wdSection, Count:=1)

C'est sur la fin ke ca marche pas kan je veux deplacer ce ke je viens de coller! je comprends vraiment pas!!!!

Merci
mat31 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/04/2006, 09h58   #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
Montre-nous le code qui cloche, comment tu insères les données, comment tu les positionnes. Sans quoi on ne pourra parler que de généralités.

A+
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 02h31.


 
 
 
 
Partenaires

Hébergement Web