Je cherche la formule pour aller =E0 la derniere feuille=20
d'un classeur.
C=E0d en r=E9sum=E9:
1: s=E9lectionner une feuille dans une "classeur1"
2: copier la feuille et ins=E9rer en dernier dans=20
le "classeur2"
J'ai fais ceci, mais comme je dois r=E9p=E9ter l'op=E9ration=20
15x, je cherche =E0 remplacer "sheets(2)", pour ne pas=20
=E9crire "sheets(3)" ...:
en supposant qu'il faille copier la feuille "zaza" du classeur 1...
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 15 Workbooks("classeur1.xls").Sheets("zaza") _ .Copy After:=Workbooks("classeur2.xls").Sheets(Sheets.Count) Next i End Sub
"dub" a écrit dans le message de news:706201c47610$50f786d0$ Bonjour à tous,
Je cherche la formule pour aller à la derniere feuille d'un classeur. Càd en résumé: 1: sélectionner une feuille dans une "classeur1" 2: copier la feuille et insérer en dernier dans le "classeur2"
J'ai fais ceci, mais comme je dois répéter l'opération 15x, je cherche à remplacer "sheets(2)", pour ne pas écrire "sheets(3)" ...:
en supposant qu'il faille copier la feuille "zaza" du classeur 1...
Sub zaza()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 15
Workbooks("classeur1.xls").Sheets("zaza") _
.Copy After:=Workbooks("classeur2.xls").Sheets(Sheets.Count)
Next i
End Sub
"dub" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:706201c47610$50f786d0$a401280a@phx.gbl...
Bonjour à tous,
Je cherche la formule pour aller à la derniere feuille
d'un classeur.
Càd en résumé:
1: sélectionner une feuille dans une "classeur1"
2: copier la feuille et insérer en dernier dans
le "classeur2"
J'ai fais ceci, mais comme je dois répéter l'opération
15x, je cherche à remplacer "sheets(2)", pour ne pas
écrire "sheets(3)" ...:
en supposant qu'il faille copier la feuille "zaza" du classeur 1...
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 15 Workbooks("classeur1.xls").Sheets("zaza") _ .Copy After:=Workbooks("classeur2.xls").Sheets(Sheets.Count) Next i End Sub
"dub" a écrit dans le message de news:706201c47610$50f786d0$ Bonjour à tous,
Je cherche la formule pour aller à la derniere feuille d'un classeur. Càd en résumé: 1: sélectionner une feuille dans une "classeur1" 2: copier la feuille et insérer en dernier dans le "classeur2"
J'ai fais ceci, mais comme je dois répéter l'opération 15x, je cherche à remplacer "sheets(2)", pour ne pas écrire "sheets(3)" ...:
Cela ne fonctionne pas. En positionnant la souris sur: Sheets.Count = j'ai bien une valeur "sheets%" Workbooks = <l'indice n'appartient pas à la sélection>
Comment trouver ce qui ne va pas?
Encore merci. R-J
-----Message d'origine----- Bonjour dub,
en supposant qu'il faille copier la feuille "zaza" du classeur 1...
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 15 Workbooks("classeur1.xls").Sheets("zaza") _ .Copy After:=Workbooks("classeur2.xls").Sheets (Sheets.Count)
Next i End Sub
"dub" a écrit dans le message de
news:706201c47610$50f786d0$ Bonjour à tous,
Je cherche la formule pour aller à la derniere feuille d'un classeur. Càd en résumé: 1: sélectionner une feuille dans une "classeur1" 2: copier la feuille et insérer en dernier dans le "classeur2"
J'ai fais ceci, mais comme je dois répéter l'opération 15x, je cherche à remplacer "sheets(2)", pour ne pas écrire "sheets(3)" ...:
Cela ne fonctionne pas.
En positionnant la souris sur:
Sheets.Count = j'ai bien une valeur "sheets=25"
Workbooks = <l'indice n'appartient pas à la sélection>
Comment trouver ce qui ne va pas?
Encore merci.
R-J
-----Message d'origine-----
Bonjour dub,
en supposant qu'il faille copier la feuille "zaza" du
classeur 1...
Sub zaza()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 15
Workbooks("classeur1.xls").Sheets("zaza") _
.Copy After:=Workbooks("classeur2.xls").Sheets
(Sheets.Count)
Next i
End Sub
"dub" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news:706201c47610$50f786d0$a401280a@phx.gbl...
Bonjour à tous,
Je cherche la formule pour aller à la derniere feuille
d'un classeur.
Càd en résumé:
1: sélectionner une feuille dans une "classeur1"
2: copier la feuille et insérer en dernier dans
le "classeur2"
J'ai fais ceci, mais comme je dois répéter l'opération
15x, je cherche à remplacer "sheets(2)", pour ne pas
écrire "sheets(3)" ...:
Cela ne fonctionne pas. En positionnant la souris sur: Sheets.Count = j'ai bien une valeur "sheets%" Workbooks = <l'indice n'appartient pas à la sélection>
Comment trouver ce qui ne va pas?
Encore merci. R-J
-----Message d'origine----- Bonjour dub,
en supposant qu'il faille copier la feuille "zaza" du classeur 1...
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 15 Workbooks("classeur1.xls").Sheets("zaza") _ .Copy After:=Workbooks("classeur2.xls").Sheets (Sheets.Count)
Next i End Sub
"dub" a écrit dans le message de
news:706201c47610$50f786d0$ Bonjour à tous,
Je cherche la formule pour aller à la derniere feuille d'un classeur. Càd en résumé: 1: sélectionner une feuille dans une "classeur1" 2: copier la feuille et insérer en dernier dans le "classeur2"
J'ai fais ceci, mais comme je dois répéter l'opération 15x, je cherche à remplacer "sheets(2)", pour ne pas écrire "sheets(3)" ...:
Workbooks = <l'indice n'appartient pas à la sélection>
As-tu bien adapté les noms des classeurs et de la feuille ?
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"dub" a écrit dans le message de news:731701c4761c$a2a30110$ Cela ne fonctionne pas. En positionnant la souris sur: Sheets.Count = j'ai bien une valeur "sheets%" Workbooks = <l'indice n'appartient pas à la sélection>
Comment trouver ce qui ne va pas?
Encore merci. R-J
-----Message d'origine----- Bonjour dub,
en supposant qu'il faille copier la feuille "zaza" du classeur 1...
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 15 Workbooks("classeur1.xls").Sheets("zaza") _ .Copy After:=Workbooks("classeur2.xls").Sheets (Sheets.Count)
Next i End Sub
"dub" a écrit dans le message de
news:706201c47610$50f786d0$ Bonjour à tous,
Je cherche la formule pour aller à la derniere feuille d'un classeur. Càd en résumé: 1: sélectionner une feuille dans une "classeur1" 2: copier la feuille et insérer en dernier dans le "classeur2"
J'ai fais ceci, mais comme je dois répéter l'opération 15x, je cherche à remplacer "sheets(2)", pour ne pas écrire "sheets(3)" ...:
Workbooks = <l'indice n'appartient pas à la sélection>
As-tu bien adapté les noms des classeurs et de la feuille ?
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"dub" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:731701c4761c$a2a30110$a501280a@phx.gbl...
Cela ne fonctionne pas.
En positionnant la souris sur:
Sheets.Count = j'ai bien une valeur "sheets%"
Workbooks = <l'indice n'appartient pas à la sélection>
Comment trouver ce qui ne va pas?
Encore merci.
R-J
-----Message d'origine-----
Bonjour dub,
en supposant qu'il faille copier la feuille "zaza" du
classeur 1...
Sub zaza()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 15
Workbooks("classeur1.xls").Sheets("zaza") _
.Copy After:=Workbooks("classeur2.xls").Sheets
(Sheets.Count)
Next i
End Sub
"dub" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news:706201c47610$50f786d0$a401280a@phx.gbl...
Bonjour à tous,
Je cherche la formule pour aller à la derniere feuille
d'un classeur.
Càd en résumé:
1: sélectionner une feuille dans une "classeur1"
2: copier la feuille et insérer en dernier dans
le "classeur2"
J'ai fais ceci, mais comme je dois répéter l'opération
15x, je cherche à remplacer "sheets(2)", pour ne pas
écrire "sheets(3)" ...:
Workbooks = <l'indice n'appartient pas à la sélection>
As-tu bien adapté les noms des classeurs et de la feuille ?
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"dub" a écrit dans le message de news:731701c4761c$a2a30110$ Cela ne fonctionne pas. En positionnant la souris sur: Sheets.Count = j'ai bien une valeur "sheets%" Workbooks = <l'indice n'appartient pas à la sélection>
Comment trouver ce qui ne va pas?
Encore merci. R-J
-----Message d'origine----- Bonjour dub,
en supposant qu'il faille copier la feuille "zaza" du classeur 1...
Sub zaza() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 15 Workbooks("classeur1.xls").Sheets("zaza") _ .Copy After:=Workbooks("classeur2.xls").Sheets (Sheets.Count)
Next i End Sub
"dub" a écrit dans le message de
news:706201c47610$50f786d0$ Bonjour à tous,
Je cherche la formule pour aller à la derniere feuille d'un classeur. Càd en résumé: 1: sélectionner une feuille dans une "classeur1" 2: copier la feuille et insérer en dernier dans le "classeur2"
J'ai fais ceci, mais comme je dois répéter l'opération 15x, je cherche à remplacer "sheets(2)", pour ne pas écrire "sheets(3)" ...:
