Créer un fichier word

Marsh Posté le 12-09-2006 à 11:48:04

Question à 10 points:
Comment créer un fichier RTF vide sans avoir à créer un nouveau document (et dc à l'ouvrir), à "l'enregistrer sous" le nom du document.rtf.
En fait il me faudrait le code de l'action: clique-droit: créer nouveau>fichier word>et je tape mon nom.rtf
Merci beaucoup.

Marsh Posté le 12-09-2006 à 11:48:04

Marsh Posté le 12-09-2006 à 15:48:02

Bonjour :

Sub Macro1()

Documents.Add DocumentType:=wdNewBlankDocument
ActiveDocument.SaveAs Filename:="test.rtf"
ActiveDocument.Close
End Sub
J'espère que c'est ce que vous cherchiez.

Marsh Posté le 12-09-2006 à 15:50:59

NB : il faut préalablement cocher "Microsoft Word X.X Object Library" dans Outils/Références.

Marsh Posté le 12-09-2006 à 15:55:55

ok merci. C'est que j'utilise (j'ai oulié de le mettre) mais je voudrais une fonction qui créé un fichier genre: monfic.txt sans l'ouvrir.

Marsh Posté le 12-09-2006 à 16:14:31

Je ne sais pas si c'est possible... visiblement, on peut faire pas mal de trucs sans ouvrir l'application concernée... sauf créer un document dans cette appli.

Marsh Posté le 13-09-2006 à 04:02:11

Pourquoi pas un truc du genre ( à la bourrin ? ) :

Option Explicit

Private Sub Creation_RTF(ByVal F As String)
Dim FileNumber As Integer
FileNumber = FreeFile
Open F For Output As FileNumber
Close FileNumber
End Sub

Private Sub Tst()
Dim Fichier As String
Fichier = "D:\Essai.rtf"
Creation_RTF Fichier
End Sub

Message édité par kiki29 le 13-09-2006 à 04:13:11

Marsh Posté le 13-09-2006 à 09:06:17

Pas bête...
Merci

Sujets relatifs:

Leave a Replay

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

Name *

Email *

URL

Message *