Discussion :

[iloyer]

Bonjour,

Dans l'un de mes modèles, j'utilise la fonction autoclose qui à la fermeture de mon document doit créer à coté de celui-ci un fichier return.flg.

Tout fonctionne très bien avec Word XP mais cette macro qui se trouve dans mon modéle ne s'execute pas sous Word 2007.

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
 
Sub autoclose()
Dim Fichier As String
 
    Fichier = ActiveDocument.Path + "\" + "Return.FLG"
    Creation_RTF Fichier
 
End Sub
 
Private Sub Creation_RTF(ByVal F As String)
Dim FileNumber As Integer
    FileNumber = FreeFile
    Open F For Output As FileNumber
    Close FileNumber
End Sub

L'un de vous a t-il rencontré ce probléme et réussi à le contourné.
Sachant que mon modèle doit être diffusé sur différentes machines, je suis donc à la recherche d'une solution qui puisse fonctionner quelque soit la version de word.

Merci par avance

[Heureux-oli]

Salut,

Essaie avec

Code :

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

Sub Document_Close()

[iloyer]

Bonsoir,

J'ai fait la modif, je donne cela à mon collègue des demain matin pour test.

Merci pour cette idée.