forcer word a creer un fichier

Re : forcer word a creer un fichier

Ca marche avec ca, mais par contre mon fichier est crée en lecture seule, du coup je ne peux pas le réouvrir ! Auriez vous une astuce pour changer ce statut ?

Sub fin()
Dim WordApp As Word.Application
Dim fichier_word As Word.Document

nom = ActiveCell.Value
chem = "c:\" & nom & ".rtf"

creer_feuille_word (chem)

End Sub

Sub creer_feuille_word(ByVal PathName As String)

Set WordApp = New Word.Application
WordApp.Visible = True

Set feuille_word = New Word.Document

"""""""""""''C'est là qu'il devient en lecture seule""""""""""""

feuille_word.SaveAs Filename:=PathName

feuille_word.Close
WordApp.Quit

nom = ActiveCell.Value
chem = "c:\" & nom & ".rtf"



rep = Shell("C:\program files\microsoft office\office11\WINword.exe c:\ & chem", 1)



End Sub

Re : forcer word a creer un fichier

Merci, là je pars d'excel pour ouvrir un document word.

si mon fichier rtf n'existe pas alors word le crée. Ta macro fonctionne peut être en vba word mais à partir d'excel j'ai une erreur "objet requis".

Merci de me donner quelques explications complémentaires.

Re : forcer word a creer un fichier

tatiak à dit:

B'jour,
Pour lancer la procédure à partir d'Excel, et à l'ouverture du classeur,ll suffit d'écrire :

Code:

Private Sub Workbook_Open()
    Open ThisWorkboook.Path & "\test.rtf" For Append As #1
    Close #1
End Sub

On peut, bien sûr, remplacer "ThisWorkboook.Path" par le chemin que tu veux "c:\Machin\truc\bidule" par exemple
🙂 tatiak

Cliquez pour agrandir...

Merci, ca marche très bien; juste une dernière question si je veux que ce fichier reste ouvert après sa création, afin que je puisse saisir des données dedans ,quelle est la commande ?

Re : forcer word a creer un fichier

Merci , mais j'ai du mal à comprendre la commande print#1 'taga", mavariable

Le principe de mon application est le suivant j'ai des fiches clients pour lequels je peux saisir un blocnote dans un fichier rtf, j'ouvre ce fichier rtf en cliquent sur un bouton.

Soit le bloc note existe et alors le fichier rtf s'ouvre et affiche son contenu dans word, soit le fichier n'existe pas, et alors ta commande le crée.

Ce qui m'interesse c'est d'avoir ce fichier vierge ouvert afin que je puisse y saisir manuellement des données , que je sauvegarde ensuite manuellement et que je ferme manuellement.

Merci pour ton aide

Re : forcer word a creer un fichier

Toutes mes excuses pour ne pas avoir répondu avant mais j'avais du partir en déplacement à l'étranger et ca m'était sorti de la tete.

j'ai utilisé Open Fichier For Append As #1 puis j'ai adapté et ca marche très bien.

Merci pour ton aide