Bonjour, j'ai crée cette macro pour ouvrir un fichier rtf avec word. Mais si ce fichier n'existe pas je voudrais que word le crée automatiquement dans le répertoire où je le cherchais.
Sub test()
rep = Shell("C:\apps\microsoft office\office11\WINword.exe c:\har\cour\toto3.rtf", 1)
end sub
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"
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 ?
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.