[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
Répondre avec citation
Partager