Bonsoir Anacoluthe, Ben oui, tu as raison ! Finalement, contrairement à ce que je supposais, j'avais bien du taper n au lieu de i : évidemment, ça ne pouvait pas marcher. Pourtant c'est pas à côté, sur le clavier... Va vraiment falloir que je mette beaucoup plus de rouge que de jaune dans le verre. A + André Anacoluthe wrote: || Bonjour André ! || || 'AB' nous a écrit ... ||| Pardon, pardon !!! ||| Je me suis trompé dans la reproduction du code. ||| ActiveDocument.Tables(i).Select (et non ||| ActiveDocument.Tables(n).Select). Je suis nul, mais pas à ce point ||| !!! ||| Et ça ne marche pas. Et je n'arrive pas à comprendre pourquoi. C'est ||| pourquoi je suis passé par l'artifice de contournement de i=i+1. ||| A vous l'association Alsaco-Tourangelle ! || || Désolé André mais TA macro corrigée ainsi comme Geo et moi l'avons || dit fonctionne correctement pour moi !!! || || Sub Macro2() || ' || ' Macro2 Macro || ' Macro enregistrée le 02/06/2004 par AB || n = ActiveDocument.Tables.Count || For i = n To 1 Step -1 || ActiveDocument.Tables(i).Select || Selection.Cut || Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile || Next i || End Sub || || Je ne vois pas où est ton problème || aqueu peut-être le pastis-tomate... ;-) ))) || || A++ || Anacoluthe || « Les tableaux sont des rêves qu'on pose sur les choses. » || - Jean-Guy RENS
Bonsoir Anacoluthe,
Ben oui, tu as raison !
Finalement, contrairement à ce que je supposais, j'avais bien du taper n au
lieu de i : évidemment, ça ne pouvait pas marcher. Pourtant c'est pas à
côté, sur le clavier...
Va vraiment falloir que je mette beaucoup plus de rouge que de jaune dans le
verre.
A +
André
Anacoluthe wrote:
|| Bonjour André !
||
|| 'AB' nous a écrit ...
||| Pardon, pardon !!!
||| Je me suis trompé dans la reproduction du code.
||| ActiveDocument.Tables(i).Select (et non
||| ActiveDocument.Tables(n).Select). Je suis nul, mais pas à ce point
||| !!!
||| Et ça ne marche pas. Et je n'arrive pas à comprendre pourquoi. C'est
||| pourquoi je suis passé par l'artifice de contournement de i=i+1.
||| A vous l'association Alsaco-Tourangelle !
||
|| Désolé André mais TA macro corrigée ainsi comme Geo et moi l'avons
|| dit fonctionne correctement pour moi !!!
||
|| Sub Macro2()
|| '
|| ' Macro2 Macro
|| ' Macro enregistrée le 02/06/2004 par AB
|| n = ActiveDocument.Tables.Count
|| For i = n To 1 Step -1
|| ActiveDocument.Tables(i).Select
|| Selection.Cut
|| Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
|| Next i
|| End Sub
||
|| Je ne vois pas où est ton problème
|| aqueu peut-être le pastis-tomate... ;-) )))
||
|| A++
|| Anacoluthe
|| « Les tableaux sont des rêves qu'on pose sur les choses. »
|| - Jean-Guy RENS
Bonsoir Anacoluthe, Ben oui, tu as raison ! Finalement, contrairement à ce que je supposais, j'avais bien du taper n au lieu de i : évidemment, ça ne pouvait pas marcher. Pourtant c'est pas à côté, sur le clavier... Va vraiment falloir que je mette beaucoup plus de rouge que de jaune dans le verre. A + André Anacoluthe wrote: || Bonjour André ! || || 'AB' nous a écrit ... ||| Pardon, pardon !!! ||| Je me suis trompé dans la reproduction du code. ||| ActiveDocument.Tables(i).Select (et non ||| ActiveDocument.Tables(n).Select). Je suis nul, mais pas à ce point ||| !!! ||| Et ça ne marche pas. Et je n'arrive pas à comprendre pourquoi. C'est ||| pourquoi je suis passé par l'artifice de contournement de i=i+1. ||| A vous l'association Alsaco-Tourangelle ! || || Désolé André mais TA macro corrigée ainsi comme Geo et moi l'avons || dit fonctionne correctement pour moi !!! || || Sub Macro2() || ' || ' Macro2 Macro || ' Macro enregistrée le 02/06/2004 par AB || n = ActiveDocument.Tables.Count || For i = n To 1 Step -1 || ActiveDocument.Tables(i).Select || Selection.Cut || Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile || Next i || End Sub || || Je ne vois pas où est ton problème || aqueu peut-être le pastis-tomate... ;-) ))) || || A++ || Anacoluthe || « Les tableaux sont des rêves qu'on pose sur les choses. » || - Jean-Guy RENS
Geo
Bonjour Anacoluthe
Bonjour !
'AB' nous a écrit ...
n = ActiveDocument.Tables.Count For i = n To 1 Step -1 ActiveDocument.Tables(n).Select
J'ai pas trop compris les explications de Geo (coucou !)...
Quelle mauvaise foi ! J'ai dit la même chose que toi en plus détaillé c'est tout.
--
A+
Bonjour Anacoluthe
Bonjour !
'AB' nous a écrit ...
n = ActiveDocument.Tables.Count
For i = n To 1 Step -1
ActiveDocument.Tables(n).Select
J'ai pas trop compris les explications de Geo (coucou !)...
Quelle mauvaise foi !
J'ai dit la même chose que toi
en plus détaillé c'est tout.
