Donc si je comprends bien c'est ce qui explique pourquoi le *.dot ne fonctionne pas avec cette imprimante ?
Probable.
--
A+
o.0
Elle apparaît ds modèle de document mais pas dans l'autre...
Avec ta macro j'obtiens un classique normal.dot qui est ds mon répertoire user.
C:Documents and SettingsNSApplication DataMicrosoftModèlesNormal.dot
Tiens ?
"Geo" a écrit dans le message de news:
Bonjour o.0
Bonjour, ça va pour un Lundi ?
Je suis en congés, alors lundi ou pas c'est pareil. Et il a plu un peu ce matin et ça fait bien plaisir.
Tous les fameux documents qui nous sont envoyés pour impression sont faits à partir d'un *.dot que nous n'avons pas mais qui est "fusionné" avec le documents. On peut s'en rendre compte en ouvrant un doc et en allant dans :
Outils > Modèles et Documents là nous avons :
C:Documents and SettingsmarleneApplication DataMicrosoftModèlesCPA.dot
Donc ce point dot se trouve ds le répertoire user de la personne qui a tapé le doc.
Ma question : est-il possible de détecter le nom du modèle associé aux docs ouverts sur le poste de travail destiné à l'impression de ces docs...car ce même poste de travail imprime d'autres docs qui n'ont pas besoin de cette macro.
Oui on peut probablement, dans quelle partie de la fenêtre apparaît cette référence ? Dans la partie "modèle de document" ou Modèles globaux et documents ?
Peux-tu passer cette macro (trouvée toute faite dans l'aide) pour voir si c'est bien ce modèle qui est affiché ? Sub testModele() Dim MyTemplate As Template Set MyTemplate = ActiveDocument.AttachedTemplate MsgBox MyTemplate.Path & Application.PathSeparator _ & MyTemplate.name End Sub
--
A+
Elle apparaît ds modèle de document mais pas dans l'autre...
Avec ta macro j'obtiens un classique normal.dot qui est ds mon répertoire
user.
C:Documents and SettingsNSApplication DataMicrosoftModèlesNormal.dot
Tiens ?
"Geo" <Geo@sans.pub> a écrit dans le message de
news:eJncutefEHA.140@TK2MSFTNGP12.phx.gbl...
Bonjour o.0
Bonjour, ça va pour un Lundi ?
Je suis en congés, alors lundi ou pas c'est pareil.
Et il a plu un peu ce matin et ça fait bien plaisir.
Tous les fameux documents qui nous sont envoyés pour impression sont
faits à partir d'un *.dot que nous n'avons pas mais qui est
"fusionné" avec le documents.
On peut s'en rendre compte en ouvrant un doc et en allant dans :
Outils > Modèles et Documents
là nous avons :
C:Documents and SettingsmarleneApplication
DataMicrosoftModèlesCPA.dot
Donc ce point dot se trouve ds le répertoire user de la personne qui
a tapé le doc.
Ma question : est-il possible de détecter le nom du modèle associé
aux docs ouverts sur le poste de travail destiné à l'impression de
ces docs...car ce même poste de travail imprime d'autres docs qui
n'ont pas besoin de cette macro.
Oui on peut probablement,
dans quelle partie de la fenêtre apparaît cette référence ?
Dans la partie "modèle de document"
ou Modèles globaux et documents ?
Peux-tu passer cette macro (trouvée toute faite dans l'aide)
pour voir si c'est bien ce modèle qui est affiché ?
Sub testModele()
Dim MyTemplate As Template
Set MyTemplate = ActiveDocument.AttachedTemplate
MsgBox MyTemplate.Path & Application.PathSeparator _
& MyTemplate.name
End Sub
Elle apparaît ds modèle de document mais pas dans l'autre...
Avec ta macro j'obtiens un classique normal.dot qui est ds mon répertoire user.
C:Documents and SettingsNSApplication DataMicrosoftModèlesNormal.dot
Tiens ?
"Geo" a écrit dans le message de news:
Bonjour o.0
Bonjour, ça va pour un Lundi ?
Je suis en congés, alors lundi ou pas c'est pareil. Et il a plu un peu ce matin et ça fait bien plaisir.
Tous les fameux documents qui nous sont envoyés pour impression sont faits à partir d'un *.dot que nous n'avons pas mais qui est "fusionné" avec le documents. On peut s'en rendre compte en ouvrant un doc et en allant dans :
Outils > Modèles et Documents là nous avons :
C:Documents and SettingsmarleneApplication DataMicrosoftModèlesCPA.dot
Donc ce point dot se trouve ds le répertoire user de la personne qui a tapé le doc.
Ma question : est-il possible de détecter le nom du modèle associé aux docs ouverts sur le poste de travail destiné à l'impression de ces docs...car ce même poste de travail imprime d'autres docs qui n'ont pas besoin de cette macro.
Oui on peut probablement, dans quelle partie de la fenêtre apparaît cette référence ? Dans la partie "modèle de document" ou Modèles globaux et documents ?
Peux-tu passer cette macro (trouvée toute faite dans l'aide) pour voir si c'est bien ce modèle qui est affiché ? Sub testModele() Dim MyTemplate As Template Set MyTemplate = ActiveDocument.AttachedTemplate MsgBox MyTemplate.Path & Application.PathSeparator _ & MyTemplate.name End Sub
--
A+
Geo
Bonjour o.0
Elle apparaît ds modèle de document mais pas dans l'autre...
Avec ta macro j'obtiens un classique normal.dot qui est ds mon répertoire user.
C:Documents and SettingsNSApplication DataMicrosoftModèlesNormal.dot
Tiens ?
oui, tiens ? Ca n'a pas l'air cohérent. Tu l'as fait alors que le document à imprimer était ouvert ?
--
A+
Bonjour o.0
Elle apparaît ds modèle de document mais pas dans l'autre...
Avec ta macro j'obtiens un classique normal.dot qui est ds mon
répertoire user.
C:Documents and SettingsNSApplication
DataMicrosoftModèlesNormal.dot
Tiens ?
oui, tiens ? Ca n'a pas l'air cohérent.
Tu l'as fait alors que le document à imprimer était ouvert ?
Elle apparaît ds modèle de document mais pas dans l'autre...
Avec ta macro j'obtiens un classique normal.dot qui est ds mon répertoire user.
C:Documents and SettingsNSApplication DataMicrosoftModèlesNormal.dot
Tiens ?
oui, tiens ? Ca n'a pas l'air cohérent. Tu l'as fait alors que le document à imprimer était ouvert ?
--
A+
Geo
Bonjour o.0
bé vi... bon
Essayons celle-ci : Le résultat est affiché à l'écran, mais aussi disponible dans le presse papier qu'il suffit ensuite de coller dans un courriel par exemple :-)
Sub TestModele() Dim T As String Dim MaVariable Dim MyTemplate As Template T = "" Set MyTemplate = ActiveDocument.AttachedTemplate T = T & MyTemplate.Path & Application.PathSeparator _ & MyTemplate.name & Chr(13) For Each MyTemplate In Application.Templates T = T & MyTemplate.Path & Application.PathSeparator _ & MyTemplate.name & Chr(13) Next Set MaVariable = New DataObject MaVariable.SetText T MaVariable.PutInClipboard
MsgBox T
End Sub
Bonjour o.0
bé vi...
bon
Essayons celle-ci :
Le résultat est affiché à l'écran, mais aussi disponible dans le
presse papier qu'il suffit ensuite de coller dans un courriel par
exemple :-)
Sub TestModele()
Dim T As String
Dim MaVariable
Dim MyTemplate As Template
T = ""
Set MyTemplate = ActiveDocument.AttachedTemplate
T = T & MyTemplate.Path & Application.PathSeparator _
& MyTemplate.name & Chr(13)
For Each MyTemplate In Application.Templates
T = T & MyTemplate.Path & Application.PathSeparator _
& MyTemplate.name & Chr(13)
Next
Set MaVariable = New DataObject
MaVariable.SetText T
MaVariable.PutInClipboard
Essayons celle-ci : Le résultat est affiché à l'écran, mais aussi disponible dans le presse papier qu'il suffit ensuite de coller dans un courriel par exemple :-)
Sub TestModele() Dim T As String Dim MaVariable Dim MyTemplate As Template T = "" Set MyTemplate = ActiveDocument.AttachedTemplate T = T & MyTemplate.Path & Application.PathSeparator _ & MyTemplate.name & Chr(13) For Each MyTemplate In Application.Templates T = T & MyTemplate.Path & Application.PathSeparator _ & MyTemplate.name & Chr(13) Next Set MaVariable = New DataObject MaVariable.SetText T MaVariable.PutInClipboard
MsgBox T
End Sub
o.0
pas moyen de détecter le truc du haut par une macro alors ?
"o.0" a écrit dans le message de news:
bé vi...
"Geo" a écrit dans le message de news:%
Bonjour o.0
Elle apparaît ds modèle de document mais pas dans l'autre...
Avec ta macro j'obtiens un classique normal.dot qui est ds mon répertoire user.
C:Documents and SettingsNSApplication DataMicrosoftModèlesNormal.dot
Tiens ?
oui, tiens ? Ca n'a pas l'air cohérent. Tu l'as fait alors que le document à imprimer était ouvert ?
--
A+
pas moyen de détecter le truc du haut par une macro alors ?
"o.0" <none@none.fr> a écrit dans le message de
news:uWtM1NffEHA.3536@TK2MSFTNGP12.phx.gbl...
bé vi...
"Geo" <Geo@sans.pub> a écrit dans le message de
news:%237w08HffEHA.1652@TK2MSFTNGP09.phx.gbl...
Bonjour o.0
Elle apparaît ds modèle de document mais pas dans l'autre...
Avec ta macro j'obtiens un classique normal.dot qui est ds mon
répertoire user.
C:Documents and SettingsNSApplication
DataMicrosoftModèlesNormal.dot
Tiens ?
oui, tiens ? Ca n'a pas l'air cohérent.
Tu l'as fait alors que le document à imprimer était ouvert ?
pas moyen de détecter le truc du haut par une macro alors ?
"o.0" a écrit dans le message de news:
bé vi...
"Geo" a écrit dans le message de news:%
Bonjour o.0
Elle apparaît ds modèle de document mais pas dans l'autre...
Avec ta macro j'obtiens un classique normal.dot qui est ds mon répertoire user.
C:Documents and SettingsNSApplication DataMicrosoftModèlesNormal.dot
Tiens ?
oui, tiens ? Ca n'a pas l'air cohérent. Tu l'as fait alors que le document à imprimer était ouvert ?
--
A+
o.0
Erreur de compilation : avec New DataObject en surligné.
Type défini par l'utilisateur non défini
"Geo" a écrit dans le message de news:
Bonjour o.0
bé vi... bon
Essayons celle-ci : Le résultat est affiché à l'écran, mais aussi disponible dans le presse papier qu'il suffit ensuite de coller dans un courriel par exemple :-)
Sub TestModele() Dim T As String Dim MaVariable Dim MyTemplate As Template T = "" Set MyTemplate = ActiveDocument.AttachedTemplate T = T & MyTemplate.Path & Application.PathSeparator _ & MyTemplate.name & Chr(13) For Each MyTemplate In Application.Templates T = T & MyTemplate.Path & Application.PathSeparator _ & MyTemplate.name & Chr(13) Next Set MaVariable = New DataObject MaVariable.SetText T MaVariable.PutInClipboard
MsgBox T
End Sub
Erreur de compilation : avec New DataObject en surligné.
Type défini par l'utilisateur non défini
"Geo" <Geo@sans.pub> a écrit dans le message de
news:uE0fNPgfEHA.636@TK2MSFTNGP12.phx.gbl...
Bonjour o.0
bé vi...
bon
Essayons celle-ci :
Le résultat est affiché à l'écran, mais aussi disponible dans le
presse papier qu'il suffit ensuite de coller dans un courriel par
exemple :-)
Sub TestModele()
Dim T As String
Dim MaVariable
Dim MyTemplate As Template
T = ""
Set MyTemplate = ActiveDocument.AttachedTemplate
T = T & MyTemplate.Path & Application.PathSeparator _
& MyTemplate.name & Chr(13)
For Each MyTemplate In Application.Templates
T = T & MyTemplate.Path & Application.PathSeparator _
& MyTemplate.name & Chr(13)
Next
Set MaVariable = New DataObject
MaVariable.SetText T
MaVariable.PutInClipboard
Erreur de compilation : avec New DataObject en surligné.
Type défini par l'utilisateur non défini
"Geo" a écrit dans le message de news:
Bonjour o.0
bé vi... bon
Essayons celle-ci : Le résultat est affiché à l'écran, mais aussi disponible dans le presse papier qu'il suffit ensuite de coller dans un courriel par exemple :-)
Sub TestModele() Dim T As String Dim MaVariable Dim MyTemplate As Template T = "" Set MyTemplate = ActiveDocument.AttachedTemplate T = T & MyTemplate.Path & Application.PathSeparator _ & MyTemplate.name & Chr(13) For Each MyTemplate In Application.Templates T = T & MyTemplate.Path & Application.PathSeparator _ & MyTemplate.name & Chr(13) Next Set MaVariable = New DataObject MaVariable.SetText T MaVariable.PutInClipboard
MsgBox T
End Sub
Geo
Bonjour o.0
Erreur de compilation : avec New DataObject en surligné.
Dans l'éditeur VB, Outils / Références cliquer en face de "Microsoft Form 2.0 Object Library."
--
A+
Bonjour o.0
Erreur de compilation : avec New DataObject en surligné.
Dans l'éditeur VB,
Outils / Références
cliquer en face de "Microsoft Form 2.0 Object Library."
Jai MOFL 2.0 Type Library mais même en le cochant, j'ai toujours la même erreur...
"Geo" a écrit dans le message de news:
Bonjour o.0
Erreur de compilation : avec New DataObject en surligné.
Dans l'éditeur VB, Outils / Références cliquer en face de "Microsoft Form 2.0 Object Library."
--
A+
Geo
Bonjour o.0
je redescends dans l'arbre car mon écran n'est plus assez large.
La macro marche quand j'ai trois références (que VBE ne veut pas décocher car utilisées) : Visual Basic For applications Microsoft word 9.0 object library Microsoft Forms 2.0 Object Library
--
A+
Bonjour o.0
je redescends dans l'arbre car mon écran n'est plus assez large.
La macro marche quand j'ai trois références (que VBE ne veut pas
décocher car utilisées) :
Visual Basic For applications
Microsoft word 9.0 object library
Microsoft Forms 2.0 Object Library
je redescends dans l'arbre car mon écran n'est plus assez large.
La macro marche quand j'ai trois références (que VBE ne veut pas décocher car utilisées) : Visual Basic For applications Microsoft word 9.0 object library Microsoft Forms 2.0 Object Library
