Discussion :

[coco21]

bonjour!
je suis desolee mais meme en consultant la faq, je n 'ai pas trouver comment creer un document word ou txt. je sais comment ouvrir word et le notepad, mais moi, je voudrai les ouvrir avec un nouveau documen que je veu nommer...
ai je ete claire ?

merci!!

[Kloun]

Il est plus simple de créer un document txt.
Regarde du côté du FileScriptingObject

[coco21]

j'ai rien trouver du cote de FileScriptingObject. tu peux m'en dire plus stp ?

merci bcp!!

[coco21]

pardon, je viens de creer une variable FileSystemObject et j essaie de creer un nouveau fichier texte, et la j 'ai une erreur d execution 91 ...
qu est ce que cette erreur svp ?

merci...

[keita]

salut
et ici, tu as regardé?
http://access.developpez.com/faq/?page=Fichier#FicTxt
@+

[coco21]

oui mais le truc, c'est que moi je veux un bouton qui ouvre le notepad normalement et que l'utilisateur puisse travailler dedans..
je ne veux pas ecrire dasn un fichier texte depuis access...

[Steph9]

ben et comme ça ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call Shell("C:\WINDOWS\NOTEPAD.EXE", 1)

[coco21]

ben ca, ca ouvre le notepad avec un document vierge (ca j y arrive), mais moi, je voudrais que ca ouvre un document vierge qui porte un nom que je lui donne (ex : ouvrir un fichier txt appelé "toto.txt" mais sachant que toto.txt est un nouveau document...)

[Maître Kenobi]

salut,
je ne suis pas spécialste à ce niveau là mais je nepense pas qu'à partir d'access ou une autre application office tu puisses faire cela.
A mon avis, le nom du fichier ne sera créer que lorsque l'utilisateur le sauvegardera.

[Keuf95]

1) Ouvrir un document vierge
2) Immédiatement l'enregistrer avec le nom voulu
Il faut appeler la fonction "fusionword"et lui passer en paramètre le nom du document (je n'ai pas testé le code) mais cela te fait une base de départ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Function fusionword(NomFic as string)
Dim NomFic as String
Dim wdapp As Object
' Répertoire ou sera enregistré le document
Dim Repertoire as String
Repertoire = "c:\tmp\"
 
'Démarrer Word
Set wdapp = CreateObject("Word.application")
' le code ci-dessous permet de faire apparaitre word
' en premier plan ou pas, false -> non et true -> oui
wdapp.Visible = True
 
 
' Sauvegarde du fichier sous un autre nom
wdapp.ActiveDocument.SaveAs Repertoire & NomFic & ".doc"
 
Set wdapp = Nothing
End Function

Bon courage pour la suite

[coco21]

merci beaucoup
je vais etudier ca..