[VB6] OLE:supprimer le contenu

OLE:supprimer le contenu [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 27-10-2005 à 14:33:07    

Salutation :hello:  
 
Je suis en stage et dans mon projet je doit créé un userform. Je voudrai que les gens puisse me faire suivre leur remarque en les écrivant dans le userform puis de me les envoyer.
Pour cela j'ai insérer un OLE dans ma form qui pointe vers un fichier word vide. Pendant l'appli, la personne modifi le texte puis en appuyant sur un bouton ça l'enregistre dans un autre fichier word (en fait ça enregistre une image de l'OLE).
Voici le code:
 
Private Sub cmdEnregistrer_Click()
   oleRemarques.Copy
   emplacement = "\\Voisys04\pcuti\Borne informatique de consultation\remarques.doc"
   Set FichierWord = CreateObject("Word.Application" )
   FichierWord.Documents.Open (emplacement)
   FichierWord.selection.Paste
   FichierWord.ActiveDocument.Save
   FichierWord.ActiveDocument.Close
   Set FichierWord = Nothing
   MsgBox ("Votre message a bien été enregistré" )
End Sub
 
 
En fait je voudrai qu'une fois le fichier enregistré, que l'OLE redevient une page blanche automatiquement, c'est à dire pouvoir supprimer tout le texte qui a été écrit.
 
 
J'espère être assez clair.
Un ptit cou de pouce serai le bien venu
Merci, tchou :)


Message édité par souz le 27-10-2005 à 15:47:36
Reply

Marsh Posté le 27-10-2005 à 14:33:07   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed