J'ai créé une application sous forme de modèle qui est stockée dans le
répertoire de DEMARRAGE de word.
Cette application maintient un contexte, or à la fermeture du dernier
document (sans fermer word), le contexte est perdu!
Je peux :
- soit le sauver sur disque, mais cela fait encore du boulot
- soit controler la fermeture des documents depuis l'application et
créer un nouveau document si nécessaire ... mais cela ne marche pas
vraiment depuis le modèle!
Merci de votre aide!
Yves
Voici le code:
/* ========== cut here ========== */
Public Sub AutoClose()
Dim doc As Document
''' Les données internes de la macro sont effacées
''' si tous les documents sont fermés.
''' Dans ce cas, je crée un document.
If Documents.Count > 1 Then
Application.ActiveDocument.Close
Else
Set doc = Application.ActiveDocument
Documents.Add
doc.activate
doc.Close
Set doc = Nothing
End If
End Sub
/* ========== cut here ========== */
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anacoluthe
Bonjour !
Pas tout compris l'histoire de votre 'contexte' mais il y a indubitablement un problème dans votre AutoClose : AutoClose s'exécute avant de fermer le document : cette macro ne doit donc pas comporter de commande Close puisque par définition elle sera suivie d'une commande Close !!!! ;-) Compris ?
Anacoluthe « Fermer les maisons closes, c'est un pléonasme. » - ARLETTY
'Yves Crespin' nous a écrit ...
J'ai créé une application sous forme de modèle qui est stockée dans le répertoire de DEMARRAGE de word. Cette application maintient un contexte, or à la fermeture du dernier document (sans fermer word), le contexte est perdu! Je peux : - soit le sauver sur disque, mais cela fait encore du boulot - soit controler la fermeture des documents depuis l'application et créer un nouveau document si nécessaire ... mais cela ne marche pas vraiment depuis le modèle!
Merci de votre aide!
Yves
Voici le code:
/* ========== cut here ========== */ Public Sub AutoClose() Dim doc As Document
''' Les données internes de la macro sont effacées ''' si tous les documents sont fermés. ''' Dans ce cas, je crée un document. If Documents.Count > 1 Then Application.ActiveDocument.Close Else Set doc = Application.ActiveDocument Documents.Add doc.activate doc.Close Set doc = Nothing End If End Sub /* ========== cut here ========== */
Bonjour !
Pas tout compris l'histoire de votre 'contexte'
mais il y a indubitablement un problème dans votre AutoClose :
AutoClose s'exécute avant de fermer le document : cette macro
ne doit donc pas comporter de commande Close puisque par définition
elle sera suivie d'une commande Close !!!! ;-) Compris ?
Anacoluthe
« Fermer les maisons closes, c'est un pléonasme. »
- ARLETTY
'Yves Crespin' nous a écrit ...
J'ai créé une application sous forme de modèle qui est stockée dans le
répertoire de DEMARRAGE de word.
Cette application maintient un contexte, or à la fermeture du dernier
document (sans fermer word), le contexte est perdu!
Je peux :
- soit le sauver sur disque, mais cela fait encore du boulot
- soit controler la fermeture des documents depuis l'application et
créer un nouveau document si nécessaire ... mais cela ne marche pas
vraiment depuis le modèle!
Merci de votre aide!
Yves
Voici le code:
/* ========== cut here ========== */
Public Sub AutoClose()
Dim doc As Document
''' Les données internes de la macro sont effacées
''' si tous les documents sont fermés.
''' Dans ce cas, je crée un document.
If Documents.Count > 1 Then
Application.ActiveDocument.Close
Else
Set doc = Application.ActiveDocument
Documents.Add
doc.activate
doc.Close
Set doc = Nothing
End If
End Sub
/* ========== cut here ========== */
Pas tout compris l'histoire de votre 'contexte' mais il y a indubitablement un problème dans votre AutoClose : AutoClose s'exécute avant de fermer le document : cette macro ne doit donc pas comporter de commande Close puisque par définition elle sera suivie d'une commande Close !!!! ;-) Compris ?
Anacoluthe « Fermer les maisons closes, c'est un pléonasme. » - ARLETTY
'Yves Crespin' nous a écrit ...
J'ai créé une application sous forme de modèle qui est stockée dans le répertoire de DEMARRAGE de word. Cette application maintient un contexte, or à la fermeture du dernier document (sans fermer word), le contexte est perdu! Je peux : - soit le sauver sur disque, mais cela fait encore du boulot - soit controler la fermeture des documents depuis l'application et créer un nouveau document si nécessaire ... mais cela ne marche pas vraiment depuis le modèle!
Merci de votre aide!
Yves
Voici le code:
/* ========== cut here ========== */ Public Sub AutoClose() Dim doc As Document
''' Les données internes de la macro sont effacées ''' si tous les documents sont fermés. ''' Dans ce cas, je crée un document. If Documents.Count > 1 Then Application.ActiveDocument.Close Else Set doc = Application.ActiveDocument Documents.Add doc.activate doc.Close Set doc = Nothing End If End Sub /* ========== cut here ========== */
