comment fait-on au juste ? Je ne suis pas un expert, juste un petit scarabé...
"geo" a écrit dans le message de news:bc5f01c479f9$77e4fdd0$ Plus efficace et met en évidence que la liste des valeurs de word ne couvre pas tous les cas : Sub Correspondance() Dim i Debug.Print ActivePrinter For i = 0 To 1000 Options.DefaultTrayID = i If Left(Options.DefaultTray, 3) = "Bac" Then Debug.Print i, Options.DefaultTrayID, _ Options.DefaultTray End If Next End Sub
Reste plus qu'à faire la liaison entre le type d'imprimante et la valeur à mettre pour avoir le bac souhaité, ça ne doit pas être très compliqué.
A+
comment fait-on au juste ?
Je ne suis pas un expert, juste un petit scarabé...
"geo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:bc5f01c479f9$77e4fdd0$a601280a@phx.gbl...
Plus efficace et met en évidence que la liste des valeurs
de word ne couvre pas tous les cas :
Sub Correspondance()
Dim i
Debug.Print ActivePrinter
For i = 0 To 1000
Options.DefaultTrayID = i
If Left(Options.DefaultTray, 3) = "Bac" Then
Debug.Print i, Options.DefaultTrayID, _
Options.DefaultTray
End If
Next
End Sub
Reste plus qu'à faire la liaison entre le type
d'imprimante et la valeur à mettre pour avoir le bac
souhaité, ça ne doit pas être très compliqué.
comment fait-on au juste ? Je ne suis pas un expert, juste un petit scarabé...
"geo" a écrit dans le message de news:bc5f01c479f9$77e4fdd0$ Plus efficace et met en évidence que la liste des valeurs de word ne couvre pas tous les cas : Sub Correspondance() Dim i Debug.Print ActivePrinter For i = 0 To 1000 Options.DefaultTrayID = i If Left(Options.DefaultTray, 3) = "Bac" Then Debug.Print i, Options.DefaultTrayID, _ Options.DefaultTray End If Next End Sub
Reste plus qu'à faire la liaison entre le type d'imprimante et la valeur à mettre pour avoir le bac souhaité, ça ne doit pas être très compliqué.
A+
Geo
Bonjour o.0
Bon on va reprendre par le commencement : Tu ouvres un nouveau document sur une machine où ça ne marche pas et tu passes cette macro : Sub Correspondance() Dim i As Integer With ActiveDocument.Range .InsertAfter ActivePrinter .InsertAfter vbCrLf For i = 1 To 2000 Options.DefaultTrayID = i If Options.DefaultTrayID = i Then .InsertAfter i & " " & _ Options.DefaultTray .InsertAfter vbCrLf End If Next End With End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe : c'est bac * 2 cette fois.
--
A+
Bonjour o.0
Bon on va reprendre par le commencement :
Tu ouvres un nouveau document sur une machine où ça ne marche pas et
tu passes cette macro :
Sub Correspondance()
Dim i As Integer
With ActiveDocument.Range
.InsertAfter ActivePrinter
.InsertAfter vbCrLf
For i = 1 To 2000
Options.DefaultTrayID = i
If Options.DefaultTrayID = i Then
.InsertAfter i & " " & _
Options.DefaultTray
.InsertAfter vbCrLf
End If
Next
End With
End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe :
c'est bac * 2 cette fois.
Bon on va reprendre par le commencement : Tu ouvres un nouveau document sur une machine où ça ne marche pas et tu passes cette macro : Sub Correspondance() Dim i As Integer With ActiveDocument.Range .InsertAfter ActivePrinter .InsertAfter vbCrLf For i = 1 To 2000 Options.DefaultTrayID = i If Options.DefaultTrayID = i Then .InsertAfter i & " " & _ Options.DefaultTray .InsertAfter vbCrLf End If Next End With End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe : c'est bac * 2 cette fois.
--
A+
o.0
Voilà ce qu'il affiche Docteur :
HP LaserJet 4300 PCL 6 on NE01:
15 Sélection automatique
258 Alim. manuelle (bac 1)
263 Bac 2
264 Bac 1
1002 Transparent
1257 Enveloppe
1258 Rugueux
1259 Papiercartonné > 164 g/
1260 Couleur
1261 Recyclé
1262 Document
1263 Etiquettes
1264 Perforé
1265 A en-tête
1266 Préimprimé
1267 Ordinaire
1268 Non spécifié
"Geo" a écrit dans le message de news:
Bonjour o.0
Bon on va reprendre par le commencement : Tu ouvres un nouveau document sur une machine où ça ne marche pas et tu passes cette macro : Sub Correspondance() Dim i As Integer With ActiveDocument.Range .InsertAfter ActivePrinter .InsertAfter vbCrLf For i = 1 To 2000 Options.DefaultTrayID = i If Options.DefaultTrayID = i Then .InsertAfter i & " " & _ Options.DefaultTray .InsertAfter vbCrLf End If Next End With End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe : c'est bac * 2 cette fois.
--
A+
Voilà ce qu'il affiche Docteur :
HP LaserJet 4300 PCL 6 on NE01:
15 Sélection automatique
258 Alim. manuelle (bac 1)
263 Bac 2
264 Bac 1
1002 Transparent
1257 Enveloppe
1258 Rugueux
1259 Papiercartonné > 164 g/
1260 Couleur
1261 Recyclé
1262 Document
1263 Etiquettes
1264 Perforé
1265 A en-tête
1266 Préimprimé
1267 Ordinaire
1268 Non spécifié
"Geo" <Geo@sans.pub> a écrit dans le message de
news:OjtYMdxeEHA.2604@TK2MSFTNGP12.phx.gbl...
Bonjour o.0
Bon on va reprendre par le commencement :
Tu ouvres un nouveau document sur une machine où ça ne marche pas et
tu passes cette macro :
Sub Correspondance()
Dim i As Integer
With ActiveDocument.Range
.InsertAfter ActivePrinter
.InsertAfter vbCrLf
For i = 1 To 2000
Options.DefaultTrayID = i
If Options.DefaultTrayID = i Then
.InsertAfter i & " " & _
Options.DefaultTray
.InsertAfter vbCrLf
End If
Next
End With
End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe :
c'est bac * 2 cette fois.
Bon on va reprendre par le commencement : Tu ouvres un nouveau document sur une machine où ça ne marche pas et tu passes cette macro : Sub Correspondance() Dim i As Integer With ActiveDocument.Range .InsertAfter ActivePrinter .InsertAfter vbCrLf For i = 1 To 2000 Options.DefaultTrayID = i If Options.DefaultTrayID = i Then .InsertAfter i & " " & _ Options.DefaultTray .InsertAfter vbCrLf End If Next End With End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe : c'est bac * 2 cette fois.
--
A+
Geo
Bonjour o.0
Voilà ce qu'il affiche Docteur :
[...]
Alors ... j'y comprends rien. Tu peux le refaire sur un poste où ça marche ?
--
A+
Bonjour o.0
Voilà ce qu'il affiche Docteur :
[...]
Alors ... j'y comprends rien.
Tu peux le refaire sur un poste où ça marche ?
Alors ... j'y comprends rien. Tu peux le refaire sur un poste où ça marche ?
--
A+
o.0
Si j'ai bien suivi, j'injecte les valeurs obtenues par cette macro ds la macro bacsalternés() ? ValBac1 = 264 ValBac2 = 263
Comme suit :
-------------------------------------------------- Sub SectionsAvecBacsAlternés() . . . Debug.Print ActivePrinter ValBac1 = 264 ValBac2 = 263 ValBac3 = 0 ValBac4 = 0 For i = 0 To 1000 Options.DefaultTrayID = i Select Case Options.DefaultTray . . . . End Sub --------------------------------------------------
Mais alors voici ce que j'obtiens pour le fameux docs à saut de section :
La première page du doc est bien sur le Bac 1 et les autres pages sur Bac 2, Mais si je me place au premier sut de section ds le doc alors : Première page sur : Bac1 (Alimentation manuelle) Autres pages sur : Bac 1 (Alimentation manuelle)
Alors que autres pages devaient être sur Bac 2 et première page sur Bac 1 normal pas alimentation manuelle.
Y'a t-il un problème avec la macro ou alors me suis-je débrouillé comme un manche ?
"o.0" a écrit dans le message de news:
Voilà ce qu'il affiche Docteur :
HP LaserJet 4300 PCL 6 on NE01:
15 Sélection automatique
258 Alim. manuelle (bac 1)
263 Bac 2
264 Bac 1
1002 Transparent
1257 Enveloppe
1258 Rugueux
1259 Papiercartonné > 164 g/
1260 Couleur
1261 Recyclé
1262 Document
1263 Etiquettes
1264 Perforé
1265 A en-tête
1266 Préimprimé
1267 Ordinaire
1268 Non spécifié
"Geo" a écrit dans le message de news:
Bonjour o.0
Bon on va reprendre par le commencement : Tu ouvres un nouveau document sur une machine où ça ne marche pas et tu passes cette macro : Sub Correspondance() Dim i As Integer With ActiveDocument.Range .InsertAfter ActivePrinter .InsertAfter vbCrLf For i = 1 To 2000 Options.DefaultTrayID = i If Options.DefaultTrayID = i Then .InsertAfter i & " " & _ Options.DefaultTray .InsertAfter vbCrLf End If Next End With End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe : c'est bac * 2 cette fois.
--
A+
Si j'ai bien suivi, j'injecte les valeurs obtenues par cette macro ds la
macro bacsalternés() ?
ValBac1 = 264
ValBac2 = 263
Comme suit :
--------------------------------------------------
Sub SectionsAvecBacsAlternés()
.
.
.
Debug.Print ActivePrinter
ValBac1 = 264
ValBac2 = 263
ValBac3 = 0
ValBac4 = 0
For i = 0 To 1000
Options.DefaultTrayID = i
Select Case Options.DefaultTray
.
.
.
.
End Sub
--------------------------------------------------
Mais alors voici ce que j'obtiens pour le fameux docs à saut de section :
La première page du doc est bien sur le Bac 1 et les autres pages sur Bac 2,
Mais si je me place au premier sut de section ds le doc alors :
Première page sur : Bac1 (Alimentation manuelle)
Autres pages sur : Bac 1 (Alimentation manuelle)
Alors que autres pages devaient être sur Bac 2 et première page sur Bac 1
normal pas alimentation manuelle.
Y'a t-il un problème avec la macro ou alors me suis-je débrouillé comme un
manche ?
"o.0" <none@none.fr> a écrit dans le message de
news:OUXnMT4eEHA.2848@TK2MSFTNGP10.phx.gbl...
Voilà ce qu'il affiche Docteur :
HP LaserJet 4300 PCL 6 on NE01:
15 Sélection automatique
258 Alim. manuelle (bac 1)
263 Bac 2
264 Bac 1
1002 Transparent
1257 Enveloppe
1258 Rugueux
1259 Papiercartonné > 164 g/
1260 Couleur
1261 Recyclé
1262 Document
1263 Etiquettes
1264 Perforé
1265 A en-tête
1266 Préimprimé
1267 Ordinaire
1268 Non spécifié
"Geo" <Geo@sans.pub> a écrit dans le message de
news:OjtYMdxeEHA.2604@TK2MSFTNGP12.phx.gbl...
Bonjour o.0
Bon on va reprendre par le commencement :
Tu ouvres un nouveau document sur une machine où ça ne marche pas et
tu passes cette macro :
Sub Correspondance()
Dim i As Integer
With ActiveDocument.Range
.InsertAfter ActivePrinter
.InsertAfter vbCrLf
For i = 1 To 2000
Options.DefaultTrayID = i
If Options.DefaultTrayID = i Then
.InsertAfter i & " " & _
Options.DefaultTray
.InsertAfter vbCrLf
End If
Next
End With
End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe :
c'est bac * 2 cette fois.
Si j'ai bien suivi, j'injecte les valeurs obtenues par cette macro ds la macro bacsalternés() ? ValBac1 = 264 ValBac2 = 263
Comme suit :
-------------------------------------------------- Sub SectionsAvecBacsAlternés() . . . Debug.Print ActivePrinter ValBac1 = 264 ValBac2 = 263 ValBac3 = 0 ValBac4 = 0 For i = 0 To 1000 Options.DefaultTrayID = i Select Case Options.DefaultTray . . . . End Sub --------------------------------------------------
Mais alors voici ce que j'obtiens pour le fameux docs à saut de section :
La première page du doc est bien sur le Bac 1 et les autres pages sur Bac 2, Mais si je me place au premier sut de section ds le doc alors : Première page sur : Bac1 (Alimentation manuelle) Autres pages sur : Bac 1 (Alimentation manuelle)
Alors que autres pages devaient être sur Bac 2 et première page sur Bac 1 normal pas alimentation manuelle.
Y'a t-il un problème avec la macro ou alors me suis-je débrouillé comme un manche ?
"o.0" a écrit dans le message de news:
Voilà ce qu'il affiche Docteur :
HP LaserJet 4300 PCL 6 on NE01:
15 Sélection automatique
258 Alim. manuelle (bac 1)
263 Bac 2
264 Bac 1
1002 Transparent
1257 Enveloppe
1258 Rugueux
1259 Papiercartonné > 164 g/
1260 Couleur
1261 Recyclé
1262 Document
1263 Etiquettes
1264 Perforé
1265 A en-tête
1266 Préimprimé
1267 Ordinaire
1268 Non spécifié
"Geo" a écrit dans le message de news:
Bonjour o.0
Bon on va reprendre par le commencement : Tu ouvres un nouveau document sur une machine où ça ne marche pas et tu passes cette macro : Sub Correspondance() Dim i As Integer With ActiveDocument.Range .InsertAfter ActivePrinter .InsertAfter vbCrLf For i = 1 To 2000 Options.DefaultTrayID = i If Options.DefaultTrayID = i Then .InsertAfter i & " " & _ Options.DefaultTray .InsertAfter vbCrLf End If Next End With End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe : c'est bac * 2 cette fois.
--
A+
o.0
ok ça marche !!!!
C'est fabulous !
Impeccable yahooooo !!!
Merde alors ce que je suis content !!!
:))
Bravo Mille mercis !!!!
"o.0" a écrit dans le message de news:
Voilà ce qu'il affiche Docteur :
HP LaserJet 4300 PCL 6 on NE01:
15 Sélection automatique
258 Alim. manuelle (bac 1)
263 Bac 2
264 Bac 1
1002 Transparent
1257 Enveloppe
1258 Rugueux
1259 Papiercartonné > 164 g/
1260 Couleur
1261 Recyclé
1262 Document
1263 Etiquettes
1264 Perforé
1265 A en-tête
1266 Préimprimé
1267 Ordinaire
1268 Non spécifié
"Geo" a écrit dans le message de news:
Bonjour o.0
Bon on va reprendre par le commencement : Tu ouvres un nouveau document sur une machine où ça ne marche pas et tu passes cette macro : Sub Correspondance() Dim i As Integer With ActiveDocument.Range .InsertAfter ActivePrinter .InsertAfter vbCrLf For i = 1 To 2000 Options.DefaultTrayID = i If Options.DefaultTrayID = i Then .InsertAfter i & " " & _ Options.DefaultTray .InsertAfter vbCrLf End If Next End With End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe : c'est bac * 2 cette fois.
--
A+
ok ça marche !!!!
C'est fabulous !
Impeccable yahooooo !!!
Merde alors ce que je suis content !!!
:))
Bravo Mille mercis !!!!
"o.0" <none@none.fr> a écrit dans le message de
news:OUXnMT4eEHA.2848@TK2MSFTNGP10.phx.gbl...
Voilà ce qu'il affiche Docteur :
HP LaserJet 4300 PCL 6 on NE01:
15 Sélection automatique
258 Alim. manuelle (bac 1)
263 Bac 2
264 Bac 1
1002 Transparent
1257 Enveloppe
1258 Rugueux
1259 Papiercartonné > 164 g/
1260 Couleur
1261 Recyclé
1262 Document
1263 Etiquettes
1264 Perforé
1265 A en-tête
1266 Préimprimé
1267 Ordinaire
1268 Non spécifié
"Geo" <Geo@sans.pub> a écrit dans le message de
news:OjtYMdxeEHA.2604@TK2MSFTNGP12.phx.gbl...
Bonjour o.0
Bon on va reprendre par le commencement :
Tu ouvres un nouveau document sur une machine où ça ne marche pas et
tu passes cette macro :
Sub Correspondance()
Dim i As Integer
With ActiveDocument.Range
.InsertAfter ActivePrinter
.InsertAfter vbCrLf
For i = 1 To 2000
Options.DefaultTrayID = i
If Options.DefaultTrayID = i Then
.InsertAfter i & " " & _
Options.DefaultTray
.InsertAfter vbCrLf
End If
Next
End With
End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe :
c'est bac * 2 cette fois.
Bon on va reprendre par le commencement : Tu ouvres un nouveau document sur une machine où ça ne marche pas et tu passes cette macro : Sub Correspondance() Dim i As Integer With ActiveDocument.Range .InsertAfter ActivePrinter .InsertAfter vbCrLf For i = 1 To 2000 Options.DefaultTrayID = i If Options.DefaultTrayID = i Then .InsertAfter i & " " & _ Options.DefaultTray .InsertAfter vbCrLf End If Next End With End Sub
et tu nous dis ce qu'il y a comme texte dans le document Word.
Remarque particulière pour Anacoluthe : c'est bac * 2 cette fois.
--
A+
Geo
Bonjour o.0
ok ça marche !!!!
C'est fabulous !
Impeccable yahooooo !!!
Merde alors ce que je suis content !!!
:))
Ben tant mieux, mais j'ai pas tout compris au film.
--
A+
Bonjour o.0
ok ça marche !!!!
C'est fabulous !
Impeccable yahooooo !!!
Merde alors ce que je suis content !!!
:))
Ben tant mieux, mais j'ai pas tout compris au film.
Ben tant mieux, mais j'ai pas tout compris au film.
--
A+
o.0
pourquoi comment ça ?
J'ai lancé ta première macro pour avoir les variables numériques correspondant au Bac 1 et Bac 2 et ensuite je les ai injectés ds l'autre macro Bacs Alternes(), pi ça marche. Pourquoi ça ne fonctionnerait pas ?
Juste un truc comment rajouter un message genre "le Doc a été mis en forme" après l'exécution de la macro ?
"Geo" a écrit dans le message de news:%
Bonjour o.0
ok ça marche !!!!
C'est fabulous !
Impeccable yahooooo !!!
Merde alors ce que je suis content !!!
:))
Ben tant mieux, mais j'ai pas tout compris au film.
--
A+
pourquoi comment ça ?
J'ai lancé ta première macro pour avoir les variables numériques
correspondant au Bac 1 et Bac 2 et ensuite je les ai injectés ds l'autre
macro Bacs Alternes(), pi ça marche.
Pourquoi ça ne fonctionnerait pas ?
Juste un truc comment rajouter un message genre "le Doc a été mis en forme"
après l'exécution de la macro ?
"Geo" <Geo@sans.pub> a écrit dans le message de
news:%23p0aaI5eEHA.556@tk2msftngp13.phx.gbl...
Bonjour o.0
ok ça marche !!!!
C'est fabulous !
Impeccable yahooooo !!!
Merde alors ce que je suis content !!!
:))
Ben tant mieux, mais j'ai pas tout compris au film.
J'ai lancé ta première macro pour avoir les variables numériques correspondant au Bac 1 et Bac 2 et ensuite je les ai injectés ds l'autre macro Bacs Alternes(), pi ça marche. Pourquoi ça ne fonctionnerait pas ?
Juste un truc comment rajouter un message genre "le Doc a été mis en forme" après l'exécution de la macro ?
"Geo" a écrit dans le message de news:%
Bonjour o.0
ok ça marche !!!!
C'est fabulous !
Impeccable yahooooo !!!
Merde alors ce que je suis content !!!
:))
Ben tant mieux, mais j'ai pas tout compris au film.
--
A+
Geo
Bonjour o.0
pourquoi comment ça ?
Passeque ça aurait du fonctionner sans que tu interviennes sur la macro. faudra que je mette ça de coté pour la fin de mes vacances, je crois qu'il y a une imprimante de ce type qualque part sur le réseau.
Juste un truc comment rajouter un message genre "le Doc a été mis en forme" après l'exécution de la macro ?
msgbox "le Doc a été mis en forme" Avant le end sub
--
A+
Bonjour o.0
pourquoi comment ça ?
Passeque ça aurait du fonctionner sans que tu interviennes sur la
macro.
faudra que je mette ça de coté pour la fin de mes vacances, je crois
qu'il y a une imprimante de ce type qualque part sur le réseau.
Juste un truc comment rajouter un message genre "le Doc a été mis en
forme" après l'exécution de la macro ?
msgbox "le Doc a été mis en forme"
Avant le end sub
Passeque ça aurait du fonctionner sans que tu interviennes sur la macro. faudra que je mette ça de coté pour la fin de mes vacances, je crois qu'il y a une imprimante de ce type qualque part sur le réseau.
Juste un truc comment rajouter un message genre "le Doc a été mis en forme" après l'exécution de la macro ?
msgbox "le Doc a été mis en forme" Avant le end sub
--
A+
o.0
Je sais bien que ça aurait du marcher sans la macro. Exemple, hier j'ai réinstallé une des nbreuses bécanes ici (même OS, même version d'Office que l'autre bécane où ça ne marche pas "automatiquement"), j'ouvre un des fameux docs je fais mise en page (c'est une LaserJet 2200 sur ce poste) et là , stupeur ! ça marche automatiquement.
Effectivement, il y a qque chose de pas très logique ds tout ça...à creuser donc, mais creuser où, telle est la question...
"Geo" a écrit dans le message de news:
Bonjour o.0
pourquoi comment ça ?
Passeque ça aurait du fonctionner sans que tu interviennes sur la macro. faudra que je mette ça de coté pour la fin de mes vacances, je crois qu'il y a une imprimante de ce type qualque part sur le réseau.
Juste un truc comment rajouter un message genre "le Doc a été mis en forme" après l'exécution de la macro ?
msgbox "le Doc a été mis en forme" Avant le end sub
--
A+
Je sais bien que ça aurait du marcher sans la macro.
Exemple, hier j'ai réinstallé une des nbreuses bécanes ici (même OS, même
version d'Office que l'autre bécane où ça ne marche pas "automatiquement"),
j'ouvre un des fameux docs je fais mise en page (c'est une LaserJet 2200 sur
ce poste) et là , stupeur ! ça marche automatiquement.
Effectivement, il y a qque chose de pas très logique ds tout ça...à creuser
donc, mais creuser où, telle est la question...
"Geo" <Geo@sans.pub> a écrit dans le message de
news:udi7QY6eEHA.3792@TK2MSFTNGP09.phx.gbl...
Bonjour o.0
pourquoi comment ça ?
Passeque ça aurait du fonctionner sans que tu interviennes sur la
macro.
faudra que je mette ça de coté pour la fin de mes vacances, je crois
qu'il y a une imprimante de ce type qualque part sur le réseau.
Juste un truc comment rajouter un message genre "le Doc a été mis en
forme" après l'exécution de la macro ?
msgbox "le Doc a été mis en forme"
Avant le end sub
Je sais bien que ça aurait du marcher sans la macro. Exemple, hier j'ai réinstallé une des nbreuses bécanes ici (même OS, même version d'Office que l'autre bécane où ça ne marche pas "automatiquement"), j'ouvre un des fameux docs je fais mise en page (c'est une LaserJet 2200 sur ce poste) et là , stupeur ! ça marche automatiquement.
Effectivement, il y a qque chose de pas très logique ds tout ça...à creuser donc, mais creuser où, telle est la question...
"Geo" a écrit dans le message de news:
Bonjour o.0
pourquoi comment ça ?
Passeque ça aurait du fonctionner sans que tu interviennes sur la macro. faudra que je mette ça de coté pour la fin de mes vacances, je crois qu'il y a une imprimante de ce type qualque part sur le réseau.
Juste un truc comment rajouter un message genre "le Doc a été mis en forme" après l'exécution de la macro ?
msgbox "le Doc a été mis en forme" Avant le end sub
