Bonjour à tous,
voila plusieurs moi que lancement de word2000 du pc de mon directeur plante
des qu'une modification du normal.dot a lieu.
Je suis allée sur la FAQ et j'ai trouvé un article sur "Comment
réinitialiser les options utilisateur et les paramètre du Registre"
La seule manip qui fonctionne (mais elle n'est que temporaire) c'est
l'exécution de WinWord /a.
Lors d'un précédent message, geo m'a répondu qu'il existait un utilitaire
qui nettoie les modèles mais dont il avait oublié le nom. Quelqu'un le
connaît il?
De plus, il parlait de mettre les macro dans un autre modèle dans le
répertoire de démarrage. Comment dois je m'y prendre.
Je souhaiterai savoir également s'il existe un outil qui permet d'analyser
le normal.dot et de le comparer à un autre (plus sain)?
Merci de m'aider, je ne sais plus quoi faire pour solutionner ce problème.
@+ Angéla
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
Circé
Bonjour,
Je pense que tu devrais renommer ton normal.dot en anormal.dot par exemple. Puis, via le menu Outils, Modèles et compléments, organiser, tu récupères ce dont tu as besoin.
Concernant les macros à mettre dans le répertoire de démarrage, regarde dans le menu Outils, Options, Fichiers par défaut, et tu trouveras le chemin de ton dossier de démarrage (fichiers de démarrage).
Circé http://faqword.free.fr
Angèla a exposé le 27/03/2006 :
Bonjour à tous, voila plusieurs moi que lancement de word2000 du pc de mon directeur plante des qu'une modification du normal.dot a lieu.
Je suis allée sur la FAQ et j'ai trouvé un article sur "Comment réinitialiser les options utilisateur et les paramètre du Registre" La seule manip qui fonctionne (mais elle n'est que temporaire) c'est l'exécution de WinWord /a. Lors d'un précédent message, geo m'a répondu qu'il existait un utilitaire qui nettoie les modèles mais dont il avait oublié le nom. Quelqu'un le connaît il?
De plus, il parlait de mettre les macro dans un autre modèle dans le répertoire de démarrage. Comment dois je m'y prendre.
Je souhaiterai savoir également s'il existe un outil qui permet d'analyser le normal.dot et de le comparer à un autre (plus sain)?
Merci de m'aider, je ne sais plus quoi faire pour solutionner ce problème. @+ Angéla
Bonjour,
Je pense que tu devrais renommer ton normal.dot en anormal.dot par
exemple. Puis, via le menu Outils, Modèles et compléments, organiser,
tu récupères ce dont tu as besoin.
Concernant les macros à mettre dans le répertoire de démarrage, regarde
dans le menu Outils, Options, Fichiers par défaut, et tu trouveras le
chemin de ton dossier de démarrage (fichiers de démarrage).
Circé
http://faqword.free.fr
Angèla a exposé le 27/03/2006 :
Bonjour à tous,
voila plusieurs moi que lancement de word2000 du pc de mon directeur plante
des qu'une modification du normal.dot a lieu.
Je suis allée sur la FAQ et j'ai trouvé un article sur "Comment réinitialiser
les options utilisateur et les paramètre du Registre"
La seule manip qui fonctionne (mais elle n'est que temporaire) c'est
l'exécution de WinWord /a.
Lors d'un précédent message, geo m'a répondu qu'il existait un utilitaire qui
nettoie les modèles mais dont il avait oublié le nom. Quelqu'un le connaît
il?
De plus, il parlait de mettre les macro dans un autre modèle dans le
répertoire de démarrage. Comment dois je m'y prendre.
Je souhaiterai savoir également s'il existe un outil qui permet d'analyser le
normal.dot et de le comparer à un autre (plus sain)?
Merci de m'aider, je ne sais plus quoi faire pour solutionner ce problème.
@+ Angéla
Je pense que tu devrais renommer ton normal.dot en anormal.dot par exemple. Puis, via le menu Outils, Modèles et compléments, organiser, tu récupères ce dont tu as besoin.
Concernant les macros à mettre dans le répertoire de démarrage, regarde dans le menu Outils, Options, Fichiers par défaut, et tu trouveras le chemin de ton dossier de démarrage (fichiers de démarrage).
Circé http://faqword.free.fr
Angèla a exposé le 27/03/2006 :
Bonjour à tous, voila plusieurs moi que lancement de word2000 du pc de mon directeur plante des qu'une modification du normal.dot a lieu.
Je suis allée sur la FAQ et j'ai trouvé un article sur "Comment réinitialiser les options utilisateur et les paramètre du Registre" La seule manip qui fonctionne (mais elle n'est que temporaire) c'est l'exécution de WinWord /a. Lors d'un précédent message, geo m'a répondu qu'il existait un utilitaire qui nettoie les modèles mais dont il avait oublié le nom. Quelqu'un le connaît il?
De plus, il parlait de mettre les macro dans un autre modèle dans le répertoire de démarrage. Comment dois je m'y prendre.
Je souhaiterai savoir également s'il existe un outil qui permet d'analyser le normal.dot et de le comparer à un autre (plus sain)?
Merci de m'aider, je ne sais plus quoi faire pour solutionner ce problème. @+ Angéla
Geo
Lors d'un précédent message, geo m'a répondu qu'il existait un utilitaire qui nettoie les modèles mais dont il avait oublié le nom. Quelqu'un le connaît il?
De plus, il parlait de mettre les macro dans un autre modèle dans le répertoire de démarrage. Comment dois je m'y prendre.
Il me semble aussi que tu avais dit qu'il n'y avait pas de macros, j'en avais donc conclu que la question était sans objet.
La solution de Circé est la meilleure pour remettre le modèle d'aplomb.
Quelle taille fait-il sur le disque ?
-- A+
Lors d'un précédent message, geo m'a répondu qu'il existait un utilitaire qui nettoie
les modèles mais dont il avait oublié le nom. Quelqu'un le connaît il?
De plus, il parlait de mettre les macro dans un autre modèle dans le répertoire de
démarrage. Comment dois je m'y prendre.
Il me semble aussi que tu avais dit qu'il n'y avait pas de macros, j'en
avais donc conclu que la question était sans objet.
La solution de Circé est la meilleure pour remettre le modèle d'aplomb.
Lors d'un précédent message, geo m'a répondu qu'il existait un utilitaire qui nettoie les modèles mais dont il avait oublié le nom. Quelqu'un le connaît il?
De plus, il parlait de mettre les macro dans un autre modèle dans le répertoire de démarrage. Comment dois je m'y prendre.
Il me semble aussi que tu avais dit qu'il n'y avait pas de macros, j'en avais donc conclu que la question était sans objet.
La solution de Circé est la meilleure pour remettre le modèle d'aplomb.
Quelle taille fait-il sur le disque ?
-- A+
Angèla
Bonjour Géo, tu as raison, j'avais dit que je n'en avais pas mais je me suis dit que peut être je pourrai utiliser cette "technique" pour lancer un autre model qui, lui, ne planterait pas... Le disque fait 80Go A plus Angéla
"Geo" a écrit dans le message de news:
Lors d'un précédent message, geo m'a répondu qu'il existait un utilitaire qui nettoie les modèles mais dont il avait oublié le nom. Quelqu'un le connaît il?
De plus, il parlait de mettre les macro dans un autre modèle dans le répertoire de démarrage. Comment dois je m'y prendre.
Il me semble aussi que tu avais dit qu'il n'y avait pas de macros, j'en avais donc conclu que la question était sans objet.
La solution de Circé est la meilleure pour remettre le modèle d'aplomb.
Quelle taille fait-il sur le disque ?
-- A+
Bonjour Géo,
tu as raison, j'avais dit que je n'en avais pas mais je me suis dit que peut
être je pourrai utiliser cette "technique" pour lancer un autre model qui,
lui, ne planterait pas...
Le disque fait 80Go
A plus
Angéla
"Geo" <Geo@sans.pub> a écrit dans le message de news:
mn.dd127d6312306710.41568@sans.pub...
Lors d'un précédent message, geo m'a répondu qu'il existait un utilitaire
qui nettoie les modèles mais dont il avait oublié le nom. Quelqu'un le
connaît il?
De plus, il parlait de mettre les macro dans un autre modèle dans le
répertoire de démarrage. Comment dois je m'y prendre.
Il me semble aussi que tu avais dit qu'il n'y avait pas de macros, j'en
avais donc conclu que la question était sans objet.
La solution de Circé est la meilleure pour remettre le modèle d'aplomb.
Bonjour Géo, tu as raison, j'avais dit que je n'en avais pas mais je me suis dit que peut être je pourrai utiliser cette "technique" pour lancer un autre model qui, lui, ne planterait pas... Le disque fait 80Go A plus Angéla
"Geo" a écrit dans le message de news:
Lors d'un précédent message, geo m'a répondu qu'il existait un utilitaire qui nettoie les modèles mais dont il avait oublié le nom. Quelqu'un le connaît il?
De plus, il parlait de mettre les macro dans un autre modèle dans le répertoire de démarrage. Comment dois je m'y prendre.
Il me semble aussi que tu avais dit qu'il n'y avait pas de macros, j'en avais donc conclu que la question était sans objet.
La solution de Circé est la meilleure pour remettre le modèle d'aplomb.
Quelle taille fait-il sur le disque ?
-- A+
Geo
Bonjour Géo, tu as raison, j'avais dit que je n'en avais pas mais je me suis dit que peut être je pourrai utiliser cette "technique" pour lancer un autre model qui, lui, ne planterait pas...
L'outil en question ne nettoie que les macros.
Le disque fait 80Go
Aaargggghhh j'ai cru un instant que c'était la taille du modèle. C'est ça qui est intéressant, désolé d'avoir mal rédigé.
-- A+
Bonjour Géo,
tu as raison, j'avais dit que je n'en avais pas mais je me suis dit que peut être je
pourrai utiliser cette "technique" pour lancer un autre model qui, lui, ne planterait
pas...
L'outil en question ne nettoie que les macros.
Le disque fait 80Go
Aaargggghhh j'ai cru un instant que c'était la taille du modèle.
C'est ça qui est intéressant, désolé d'avoir mal rédigé.
Bonjour Géo, tu as raison, j'avais dit que je n'en avais pas mais je me suis dit que peut être je pourrai utiliser cette "technique" pour lancer un autre model qui, lui, ne planterait pas...
L'outil en question ne nettoie que les macros.
Le disque fait 80Go
Aaargggghhh j'ai cru un instant que c'était la taille du modèle. C'est ça qui est intéressant, désolé d'avoir mal rédigé.
-- A+
Angèla
Re bonjour Géo
désolé d'avoir mal rédigé. C'est moi qui suis désolée je n'ai pas bien lu
Il fait 32Ko Tu vois là, je viens de procédé comme Circé me l'a dit : j'ai renommé le normal.dot (pour la 4345555 e fois) Je suis allée dans Outils, Modèles et compléments, organiser, et la je me retrouve avec "Normal" et "Police par défaut" je suis bien avancée ave ça... J'ai lu plus haut un message de quelqu'un (andrew) qui avait un problème du même acabit, j'ai donc appliqué ce qu'on lui conseillait
- Outils / Personnaliser / Commandes - Chercher Catégorie: Outils / Commande: Modules complémentaires COM... - Faites glisser cette commande dans le menu Outils par exemple en dessous de "Modèles et compléments"
Ce nouveau menu permet de contrôler les addins COM A part que chez moi ça s'appelle supplément COM, j'ai tout supprimer ...
et... c'est toujours pareil. Mais que faut il que je fasse?! Je suis désespérée. Angéla
"Geo" a écrit dans le message de news:
Bonjour Géo, tu as raison, j'avais dit que je n'en avais pas mais je me suis dit que peut être je pourrai utiliser cette "technique" pour lancer un autre model qui, lui, ne planterait pas...
L'outil en question ne nettoie que les macros.
Le disque fait 80Go
Aaargggghhh j'ai cru un instant que c'était la taille du modèle. C'est ça qui est intéressant, désolé d'avoir mal rédigé.
-- A+
Re bonjour Géo
désolé d'avoir mal rédigé.
C'est moi qui suis désolée je n'ai pas bien lu
Il fait 32Ko
Tu vois là, je viens de procédé comme Circé me l'a dit : j'ai renommé le
normal.dot (pour la 4345555 e fois)
Je suis allée dans Outils, Modèles et compléments, organiser, et la je me
retrouve avec "Normal" et "Police par défaut" je suis bien avancée ave ça...
J'ai lu plus haut un message de quelqu'un (andrew) qui avait un problème du
même acabit, j'ai donc appliqué ce qu'on lui conseillait
- Outils / Personnaliser / Commandes
- Chercher Catégorie: Outils / Commande: Modules complémentaires COM...
- Faites glisser cette commande dans le menu Outils par exemple en
dessous de "Modèles et compléments"
Ce nouveau menu permet de contrôler les addins COM
A part que chez moi ça s'appelle supplément COM, j'ai tout supprimer ...
et... c'est toujours pareil.
Mais que faut il que je fasse?! Je suis désespérée.
Angéla
"Geo" <Geo@sans.pub> a écrit dans le message de news:
mn.e3187d6353b02616.41568@sans.pub...
Bonjour Géo,
tu as raison, j'avais dit que je n'en avais pas mais je me suis dit que
peut être je pourrai utiliser cette "technique" pour lancer un autre
model qui, lui, ne planterait pas...
L'outil en question ne nettoie que les macros.
Le disque fait 80Go
Aaargggghhh j'ai cru un instant que c'était la taille du modèle.
C'est ça qui est intéressant, désolé d'avoir mal rédigé.
désolé d'avoir mal rédigé. C'est moi qui suis désolée je n'ai pas bien lu
Il fait 32Ko Tu vois là, je viens de procédé comme Circé me l'a dit : j'ai renommé le normal.dot (pour la 4345555 e fois) Je suis allée dans Outils, Modèles et compléments, organiser, et la je me retrouve avec "Normal" et "Police par défaut" je suis bien avancée ave ça... J'ai lu plus haut un message de quelqu'un (andrew) qui avait un problème du même acabit, j'ai donc appliqué ce qu'on lui conseillait
- Outils / Personnaliser / Commandes - Chercher Catégorie: Outils / Commande: Modules complémentaires COM... - Faites glisser cette commande dans le menu Outils par exemple en dessous de "Modèles et compléments"
Ce nouveau menu permet de contrôler les addins COM A part que chez moi ça s'appelle supplément COM, j'ai tout supprimer ...
et... c'est toujours pareil. Mais que faut il que je fasse?! Je suis désespérée. Angéla
"Geo" a écrit dans le message de news:
Bonjour Géo, tu as raison, j'avais dit que je n'en avais pas mais je me suis dit que peut être je pourrai utiliser cette "technique" pour lancer un autre model qui, lui, ne planterait pas...
L'outil en question ne nettoie que les macros.
Le disque fait 80Go
Aaargggghhh j'ai cru un instant que c'était la taille du modèle. C'est ça qui est intéressant, désolé d'avoir mal rédigé.
-- A+
Geo
Re bonjour Géo
désolé d'avoir mal rédigé. C'est moi qui suis désolée je n'ai pas bien lu
Il fait 32Ko
Rien d'alarmant. Je recopie ci-dessous une macro qui liste tous les modèles et compléments, tu verras bien s'il traine quelque chose. Attention aux retours à la ligne qui seraient faits par mon courrieleur, j'ai essayé de mettre des lignes suites mais on ne sait jamais.
Option explicit Public Sub ListeModelesEtAddins() Dim aTemp As Template Dim aCom As COMAddIn Dim DateLue As Date Dim DateModele As Date Dim DateJ As Date Dim DateHier As Date Dim EcartDates As Integer Dim Mess As String Dim NbCom As Integer Dim TabCom As String Dim i As Integer Dim oAddin As AddIn With ActiveDocument.Range(Start:=0, End:=0) .InsertAfter "Modèle " & vbTab & "Chemin" & vbTab & _ "Date" & vbTab & "type" .InsertParagraphAfter
DateJ = Date DateHier = DateJ - 1 For Each aTemp In Templates DateLue = aTemp.BuiltInDocumentProperties(wdPropertyTimeLastSaved) EcartDates = DateDiff("d", DateLue, DateJ) Select Case EcartDates Case Is <= 0 Mess = " d'aujourdhui (" & DateLue & ")" Case Is = 1 Mess = " d'hier (" & DateLue & ")" Case Is <= 7 Select Case Weekday(DateLue) Case vbSunday Mess = " de dimanche (" & DateLue & ")" Case vbMonday Mess = " de lundi (" & DateLue & ")" Case vbTuesday Mess = " de mardi (" & DateLue & ")" Case vbWednesday Mess = " de mercredi (" & DateLue & ")" Case vbThursday Mess = " de jeudi (" & DateLue & ")" Case vbFriday Mess = " de vendredi (" & DateLue & ")" Case vbSaturday Mess = " de samedi (" & DateLue & ")" Case Else Mess = " du ? " & DateLue End Select Case Else Mess = " du " & DateLue End Select .InsertAfter aTemp.name & vbTab & aTemp.Path & _ vbTab & Mess & vbTab
Select Case aTemp.Type Case 0 .InsertAfter "Normal" Case 1 .InsertAfter "Global" Case 2 .InsertAfter "Attaché" Case Else .InsertAfter "aTemp.Type" End Select .InsertParagraphAfter aTemp.Saved = True Next aTemp .InsertAfter " -------" & vbTab & "------" & vbTab _ & "-----" & vbTab & "-----" .InsertParagraphAfter
.InsertAfter " COM Addin" & vbTab & "ID Addin" _ & vbTab & "Connecté " & vbTab .InsertParagraphAfter For i = 1 To Application.COMAddIns.Count Set aCom = Application.COMAddIns(i)
.InsertAfter aCom.Description & vbTab & _ aCom.ProgID & vbTab & aCom.Connect _ & vbTab .InsertParagraphAfter Next i .ConvertToTable End With
End Sub
-- A+
Re bonjour Géo
désolé d'avoir mal rédigé.
C'est moi qui suis désolée je n'ai pas bien lu
Il fait 32Ko
Rien d'alarmant.
Je recopie ci-dessous une macro qui liste tous les modèles et
compléments, tu verras bien s'il traine quelque chose.
Attention aux retours à la ligne qui seraient faits par mon
courrieleur, j'ai essayé de mettre des lignes suites mais on ne sait
jamais.
Option explicit
Public Sub ListeModelesEtAddins()
Dim aTemp As Template
Dim aCom As COMAddIn
Dim DateLue As Date
Dim DateModele As Date
Dim DateJ As Date
Dim DateHier As Date
Dim EcartDates As Integer
Dim Mess As String
Dim NbCom As Integer
Dim TabCom As String
Dim i As Integer
Dim oAddin As AddIn
With ActiveDocument.Range(Start:=0, End:=0)
.InsertAfter "Modèle " & vbTab & "Chemin" & vbTab & _
"Date" & vbTab & "type"
.InsertParagraphAfter
DateJ = Date
DateHier = DateJ - 1
For Each aTemp In Templates
DateLue =
aTemp.BuiltInDocumentProperties(wdPropertyTimeLastSaved)
EcartDates = DateDiff("d", DateLue, DateJ)
Select Case EcartDates
Case Is <= 0
Mess = " d'aujourdhui (" & DateLue & ")"
Case Is = 1
Mess = " d'hier (" & DateLue & ")"
Case Is <= 7
Select Case Weekday(DateLue)
Case vbSunday
Mess = " de dimanche (" & DateLue & ")"
Case vbMonday
Mess = " de lundi (" & DateLue & ")"
Case vbTuesday
Mess = " de mardi (" & DateLue & ")"
Case vbWednesday
Mess = " de mercredi (" & DateLue & ")"
Case vbThursday
Mess = " de jeudi (" & DateLue & ")"
Case vbFriday
Mess = " de vendredi (" & DateLue & ")"
Case vbSaturday
Mess = " de samedi (" & DateLue & ")"
Case Else
Mess = " du ? " & DateLue
End Select
Case Else
Mess = " du " & DateLue
End Select
.InsertAfter aTemp.name & vbTab & aTemp.Path & _
vbTab & Mess & vbTab
Select Case aTemp.Type
Case 0
.InsertAfter "Normal"
Case 1
.InsertAfter "Global"
Case 2
.InsertAfter "Attaché"
Case Else
.InsertAfter "aTemp.Type"
End Select
.InsertParagraphAfter
aTemp.Saved = True
Next aTemp
.InsertAfter " -------" & vbTab & "------" & vbTab _
& "-----" & vbTab & "-----"
.InsertParagraphAfter
désolé d'avoir mal rédigé. C'est moi qui suis désolée je n'ai pas bien lu
Il fait 32Ko
Rien d'alarmant. Je recopie ci-dessous une macro qui liste tous les modèles et compléments, tu verras bien s'il traine quelque chose. Attention aux retours à la ligne qui seraient faits par mon courrieleur, j'ai essayé de mettre des lignes suites mais on ne sait jamais.
Option explicit Public Sub ListeModelesEtAddins() Dim aTemp As Template Dim aCom As COMAddIn Dim DateLue As Date Dim DateModele As Date Dim DateJ As Date Dim DateHier As Date Dim EcartDates As Integer Dim Mess As String Dim NbCom As Integer Dim TabCom As String Dim i As Integer Dim oAddin As AddIn With ActiveDocument.Range(Start:=0, End:=0) .InsertAfter "Modèle " & vbTab & "Chemin" & vbTab & _ "Date" & vbTab & "type" .InsertParagraphAfter
DateJ = Date DateHier = DateJ - 1 For Each aTemp In Templates DateLue = aTemp.BuiltInDocumentProperties(wdPropertyTimeLastSaved) EcartDates = DateDiff("d", DateLue, DateJ) Select Case EcartDates Case Is <= 0 Mess = " d'aujourdhui (" & DateLue & ")" Case Is = 1 Mess = " d'hier (" & DateLue & ")" Case Is <= 7 Select Case Weekday(DateLue) Case vbSunday Mess = " de dimanche (" & DateLue & ")" Case vbMonday Mess = " de lundi (" & DateLue & ")" Case vbTuesday Mess = " de mardi (" & DateLue & ")" Case vbWednesday Mess = " de mercredi (" & DateLue & ")" Case vbThursday Mess = " de jeudi (" & DateLue & ")" Case vbFriday Mess = " de vendredi (" & DateLue & ")" Case vbSaturday Mess = " de samedi (" & DateLue & ")" Case Else Mess = " du ? " & DateLue End Select Case Else Mess = " du " & DateLue End Select .InsertAfter aTemp.name & vbTab & aTemp.Path & _ vbTab & Mess & vbTab
Select Case aTemp.Type Case 0 .InsertAfter "Normal" Case 1 .InsertAfter "Global" Case 2 .InsertAfter "Attaché" Case Else .InsertAfter "aTemp.Type" End Select .InsertParagraphAfter aTemp.Saved = True Next aTemp .InsertAfter " -------" & vbTab & "------" & vbTab _ & "-----" & vbTab & "-----" .InsertParagraphAfter
.InsertAfter " COM Addin" & vbTab & "ID Addin" _ & vbTab & "Connecté " & vbTab .InsertParagraphAfter For i = 1 To Application.COMAddIns.Count Set aCom = Application.COMAddIns(i)
.InsertAfter aCom.Description & vbTab & _ aCom.ProgID & vbTab & aCom.Connect _ & vbTab .InsertParagraphAfter Next i .ConvertToTable End With
End Sub
-- A+
Angèla
Bonjour et merci géo, La macro ne marche pas... Cela dit ce n'est pas grave puisque j'ai finalement pu trouver l'addin.dll installé par omnipage. Mais le probleme persiste, dès que je modifie mon normal.dot, ne serait ce qu'en rajoutant des bouton dans la barre d'outils, ca plante. C'est déprimant.:((( Je lance un ultime secours. @+ Angela "Geo" a écrit dans le message de news:
Re bonjour Géo
désolé d'avoir mal rédigé. C'est moi qui suis désolée je n'ai pas bien lu
Il fait 32Ko
Rien d'alarmant. Je recopie ci-dessous une macro qui liste tous les modèles et compléments, tu verras bien s'il traine quelque chose. Attention aux retours à la ligne qui seraient faits par mon courrieleur, j'ai essayé de mettre des lignes suites mais on ne sait jamais.
Option explicit Public Sub ListeModelesEtAddins() Dim aTemp As Template Dim aCom As COMAddIn Dim DateLue As Date Dim DateModele As Date Dim DateJ As Date Dim DateHier As Date Dim EcartDates As Integer Dim Mess As String Dim NbCom As Integer Dim TabCom As String Dim i As Integer Dim oAddin As AddIn With ActiveDocument.Range(Start:=0, End:=0) .InsertAfter "Modèle " & vbTab & "Chemin" & vbTab & _ "Date" & vbTab & "type" .InsertParagraphAfter
DateJ = Date DateHier = DateJ - 1 For Each aTemp In Templates DateLue = aTemp.BuiltInDocumentProperties(wdPropertyTimeLastSaved) EcartDates = DateDiff("d", DateLue, DateJ) Select Case EcartDates Case Is <= 0 Mess = " d'aujourdhui (" & DateLue & ")" Case Is = 1 Mess = " d'hier (" & DateLue & ")" Case Is <= 7 Select Case Weekday(DateLue) Case vbSunday Mess = " de dimanche (" & DateLue & ")" Case vbMonday Mess = " de lundi (" & DateLue & ")" Case vbTuesday Mess = " de mardi (" & DateLue & ")" Case vbWednesday Mess = " de mercredi (" & DateLue & ")" Case vbThursday Mess = " de jeudi (" & DateLue & ")" Case vbFriday Mess = " de vendredi (" & DateLue & ")" Case vbSaturday Mess = " de samedi (" & DateLue & ")" Case Else Mess = " du ? " & DateLue End Select Case Else Mess = " du " & DateLue End Select .InsertAfter aTemp.name & vbTab & aTemp.Path & _ vbTab & Mess & vbTab
Select Case aTemp.Type Case 0 .InsertAfter "Normal" Case 1 .InsertAfter "Global" Case 2 .InsertAfter "Attaché" Case Else .InsertAfter "aTemp.Type" End Select .InsertParagraphAfter aTemp.Saved = True Next aTemp .InsertAfter " -------" & vbTab & "------" & vbTab _ & "-----" & vbTab & "-----" .InsertParagraphAfter
.InsertAfter " COM Addin" & vbTab & "ID Addin" _ & vbTab & "Connecté " & vbTab .InsertParagraphAfter For i = 1 To Application.COMAddIns.Count Set aCom = Application.COMAddIns(i)
.InsertAfter aCom.Description & vbTab & _ aCom.ProgID & vbTab & aCom.Connect _ & vbTab .InsertParagraphAfter Next i .ConvertToTable End With
End Sub
-- A+
Bonjour et merci géo,
La macro ne marche pas...
Cela dit ce n'est pas grave puisque j'ai finalement pu trouver l'addin.dll
installé par omnipage.
Mais le probleme persiste, dès que je modifie mon normal.dot, ne serait ce
qu'en rajoutant des bouton dans la barre d'outils, ca plante.
C'est déprimant.:(((
Je lance un ultime secours.
@+ Angela
"Geo" <Geo@sans.pub> a écrit dans le message de news:
mn.e46c7d63d7e55895.41568@sans.pub...
Re bonjour Géo
désolé d'avoir mal rédigé.
C'est moi qui suis désolée je n'ai pas bien lu
Il fait 32Ko
Rien d'alarmant.
Je recopie ci-dessous une macro qui liste tous les modèles et compléments,
tu verras bien s'il traine quelque chose.
Attention aux retours à la ligne qui seraient faits par mon courrieleur,
j'ai essayé de mettre des lignes suites mais on ne sait jamais.
Option explicit
Public Sub ListeModelesEtAddins()
Dim aTemp As Template
Dim aCom As COMAddIn
Dim DateLue As Date
Dim DateModele As Date
Dim DateJ As Date
Dim DateHier As Date
Dim EcartDates As Integer
Dim Mess As String
Dim NbCom As Integer
Dim TabCom As String
Dim i As Integer
Dim oAddin As AddIn
With ActiveDocument.Range(Start:=0, End:=0)
.InsertAfter "Modèle " & vbTab & "Chemin" & vbTab & _
"Date" & vbTab & "type"
.InsertParagraphAfter
DateJ = Date
DateHier = DateJ - 1
For Each aTemp In Templates
DateLue = aTemp.BuiltInDocumentProperties(wdPropertyTimeLastSaved)
EcartDates = DateDiff("d", DateLue, DateJ)
Select Case EcartDates
Case Is <= 0
Mess = " d'aujourdhui (" & DateLue & ")"
Case Is = 1
Mess = " d'hier (" & DateLue & ")"
Case Is <= 7
Select Case Weekday(DateLue)
Case vbSunday
Mess = " de dimanche (" & DateLue & ")"
Case vbMonday
Mess = " de lundi (" & DateLue & ")"
Case vbTuesday
Mess = " de mardi (" & DateLue & ")"
Case vbWednesday
Mess = " de mercredi (" & DateLue & ")"
Case vbThursday
Mess = " de jeudi (" & DateLue & ")"
Case vbFriday
Mess = " de vendredi (" & DateLue & ")"
Case vbSaturday
Mess = " de samedi (" & DateLue & ")"
Case Else
Mess = " du ? " & DateLue
End Select
Case Else
Mess = " du " & DateLue
End Select
.InsertAfter aTemp.name & vbTab & aTemp.Path & _
vbTab & Mess & vbTab
Select Case aTemp.Type
Case 0
.InsertAfter "Normal"
Case 1
.InsertAfter "Global"
Case 2
.InsertAfter "Attaché"
Case Else
.InsertAfter "aTemp.Type"
End Select
.InsertParagraphAfter
aTemp.Saved = True
Next aTemp
.InsertAfter " -------" & vbTab & "------" & vbTab _
& "-----" & vbTab & "-----"
.InsertParagraphAfter
Bonjour et merci géo, La macro ne marche pas... Cela dit ce n'est pas grave puisque j'ai finalement pu trouver l'addin.dll installé par omnipage. Mais le probleme persiste, dès que je modifie mon normal.dot, ne serait ce qu'en rajoutant des bouton dans la barre d'outils, ca plante. C'est déprimant.:((( Je lance un ultime secours. @+ Angela "Geo" a écrit dans le message de news:
Re bonjour Géo
désolé d'avoir mal rédigé. C'est moi qui suis désolée je n'ai pas bien lu
Il fait 32Ko
Rien d'alarmant. Je recopie ci-dessous une macro qui liste tous les modèles et compléments, tu verras bien s'il traine quelque chose. Attention aux retours à la ligne qui seraient faits par mon courrieleur, j'ai essayé de mettre des lignes suites mais on ne sait jamais.
Option explicit Public Sub ListeModelesEtAddins() Dim aTemp As Template Dim aCom As COMAddIn Dim DateLue As Date Dim DateModele As Date Dim DateJ As Date Dim DateHier As Date Dim EcartDates As Integer Dim Mess As String Dim NbCom As Integer Dim TabCom As String Dim i As Integer Dim oAddin As AddIn With ActiveDocument.Range(Start:=0, End:=0) .InsertAfter "Modèle " & vbTab & "Chemin" & vbTab & _ "Date" & vbTab & "type" .InsertParagraphAfter
DateJ = Date DateHier = DateJ - 1 For Each aTemp In Templates DateLue = aTemp.BuiltInDocumentProperties(wdPropertyTimeLastSaved) EcartDates = DateDiff("d", DateLue, DateJ) Select Case EcartDates Case Is <= 0 Mess = " d'aujourdhui (" & DateLue & ")" Case Is = 1 Mess = " d'hier (" & DateLue & ")" Case Is <= 7 Select Case Weekday(DateLue) Case vbSunday Mess = " de dimanche (" & DateLue & ")" Case vbMonday Mess = " de lundi (" & DateLue & ")" Case vbTuesday Mess = " de mardi (" & DateLue & ")" Case vbWednesday Mess = " de mercredi (" & DateLue & ")" Case vbThursday Mess = " de jeudi (" & DateLue & ")" Case vbFriday Mess = " de vendredi (" & DateLue & ")" Case vbSaturday Mess = " de samedi (" & DateLue & ")" Case Else Mess = " du ? " & DateLue End Select Case Else Mess = " du " & DateLue End Select .InsertAfter aTemp.name & vbTab & aTemp.Path & _ vbTab & Mess & vbTab
Select Case aTemp.Type Case 0 .InsertAfter "Normal" Case 1 .InsertAfter "Global" Case 2 .InsertAfter "Attaché" Case Else .InsertAfter "aTemp.Type" End Select .InsertParagraphAfter aTemp.Saved = True Next aTemp .InsertAfter " -------" & vbTab & "------" & vbTab _ & "-----" & vbTab & "-----" .InsertParagraphAfter
.InsertAfter " COM Addin" & vbTab & "ID Addin" _ & vbTab & "Connecté " & vbTab .InsertParagraphAfter For i = 1 To Application.COMAddIns.Count Set aCom = Application.COMAddIns(i)
.InsertAfter aCom.Description & vbTab & _ aCom.ProgID & vbTab & aCom.Connect _ & vbTab .InsertParagraphAfter Next i .ConvertToTable End With
End Sub
-- A+
Geo
Bonjour et merci géo, La macro ne marche pas...
Comment ça ? Mais si elle marche ! J'ai fait un copier du courriel dans un nouveau module et elle fonctionne très bien. Il faut avoir un document vierge affiché avant de la lancer.
-- A+
Bonjour et merci géo,
La macro ne marche pas...
Comment ça ?
Mais si elle marche !
J'ai fait un copier du courriel dans un nouveau module et elle
fonctionne très bien.
Il faut avoir un document vierge affiché avant de la lancer.
Comment ça ? Mais si elle marche ! J'ai fait un copier du courriel dans un nouveau module et elle fonctionne très bien. Il faut avoir un document vierge affiché avant de la lancer.
-- A+
Angèla
bonjour géo, ça y est j'ai trouvé... Après avoir appliqué les consignes qu'anacoluthe a donné à andrew, le problème persistait toujours. En trifouillant un peu, je suis allée dans outils/ macro/sécurité et j'ai choisi faible. Et ça m'a l'air de marcher. En tous les cas je vous remercie tous pour votre aide. A très bientôt. Angéla
"Geo" a écrit dans le message de news:
Bonjour et merci géo, La macro ne marche pas...
Comment ça ? Mais si elle marche ! J'ai fait un copier du courriel dans un nouveau module et elle fonctionne très bien. Il faut avoir un document vierge affiché avant de la lancer.
-- A+
bonjour géo,
ça y est j'ai trouvé...
Après avoir appliqué les consignes qu'anacoluthe a donné à andrew, le
problème persistait toujours.
En trifouillant un peu, je suis allée dans outils/ macro/sécurité et j'ai
choisi faible.
Et ça m'a l'air de marcher.
En tous les cas je vous remercie tous pour votre aide.
A très bientôt.
Angéla
"Geo" <Geo@sans.pub> a écrit dans le message de news:
mn.fbdb7d631bfd955e.41568@sans.pub...
Bonjour et merci géo,
La macro ne marche pas...
Comment ça ?
Mais si elle marche !
J'ai fait un copier du courriel dans un nouveau module et elle fonctionne
très bien.
Il faut avoir un document vierge affiché avant de la lancer.
bonjour géo, ça y est j'ai trouvé... Après avoir appliqué les consignes qu'anacoluthe a donné à andrew, le problème persistait toujours. En trifouillant un peu, je suis allée dans outils/ macro/sécurité et j'ai choisi faible. Et ça m'a l'air de marcher. En tous les cas je vous remercie tous pour votre aide. A très bientôt. Angéla
"Geo" a écrit dans le message de news:
Bonjour et merci géo, La macro ne marche pas...
Comment ça ? Mais si elle marche ! J'ai fait un copier du courriel dans un nouveau module et elle fonctionne très bien. Il faut avoir un document vierge affiché avant de la lancer.
