OLE:supprimer le contenu [VB6] - VB/VBA/VBS - Programmation
MarshPosté le 27-10-2005 à 14:33:07
Salutation
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
Marsh Posté le 27-10-2005 à 14:33:07
Salutation
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