Comment puis je dire en VBA : selctionne toutes les feuil du fichier
lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et
colle les dans le fichier toto.xls
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
Daniel.C
Bonjour. Il faut le faire feuille par feuille :
Sub test() Dim sh As Worksheet Set Source = Workbooks("lulu.xls") For Each sh In Source.Sheets If sh.Name Like "Sheet*" Then sh.Copy before:=Workbooks("toto.xls").Sheets(1) End If Next sh End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
Bonjour.
Il faut le faire feuille par feuille :
Sub test()
Dim sh As Worksheet
Set Source = Workbooks("lulu.xls")
For Each sh In Source.Sheets
If sh.Name Like "Sheet*" Then
sh.Copy before:=Workbooks("toto.xls").Sheets(1)
End If
Next sh
End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls
qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans
le fichier toto.xls
Sub test() Dim sh As Worksheet Set Source = Workbooks("lulu.xls") For Each sh In Source.Sheets If sh.Name Like "Sheet*" Then sh.Copy before:=Workbooks("toto.xls").Sheets(1) End If Next sh End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
michdenis
Bonjour,
Pour la sélection des feuilles débutant par "Sheet" '--------------------------------- For each sh in sheets if left(Sh.name,5) = "Sheet" then Sh.select False end if Next '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
Bonjour,
Pour la sélection des feuilles débutant par "Sheet"
'---------------------------------
For each sh in sheets
if left(Sh.name,5) = "Sheet" then
Sh.select False
end if
Next
'---------------------------------
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de groupe de discussion :
ebFss64tKHA.4220@TK2MSFTNGP05.phx.gbl...
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier
lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et
colle les dans le fichier toto.xls
Pour la sélection des feuilles débutant par "Sheet" '--------------------------------- For each sh in sheets if left(Sh.name,5) = "Sheet" then Sh.select False end if Next '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
Manu
Merci, je vais tester en fin d'AM et je vous tiens au courant.
Merci
Manu
"michdenis" a écrit dans le message de news:
Bonjour,
Pour la sélection des feuilles débutant par "Sheet" '--------------------------------- For each sh in sheets if left(Sh.name,5) = "Sheet" then Sh.select False end if Next '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
Merci, je vais tester en fin d'AM et je vous tiens au courant.
Merci
Manu
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
E54E1343-2398-489E-8C41-5385FEA10E69@microsoft.com...
Bonjour,
Pour la sélection des feuilles débutant par "Sheet"
'---------------------------------
For each sh in sheets
if left(Sh.name,5) = "Sheet" then
Sh.select False
end if
Next
'---------------------------------
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de groupe de
discussion :
ebFss64tKHA.4220@TK2MSFTNGP05.phx.gbl...
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier
lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et
colle les dans le fichier toto.xls
Merci, je vais tester en fin d'AM et je vous tiens au courant.
Merci
Manu
"michdenis" a écrit dans le message de news:
Bonjour,
Pour la sélection des feuilles débutant par "Sheet" '--------------------------------- For each sh in sheets if left(Sh.name,5) = "Sheet" then Sh.select False end if Next '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
Manu
Bonsoir,
J'ai utilisé la methode de Daniel car j'ai facilement reussi à l'integrer, en revanche, il ne me les met pas dans le bon ordre, dans lulu.xls, elle sont sont dans l'ordre croissant Sheet1 ; Sheet2 .... et quand il les copie dans toto.xls, il met l'ordre inverse, Sheet8 ; Sheet7 .... ca qui ne peut pas aller du tout avec la suite de mon travail, est t'il possible de lui demander de garder l'ordre d'origine ou alors de les trier.
Merci
Manu
"Daniel.C" a écrit dans le message de news:
Bonjour. Il faut le faire feuille par feuille :
Sub test() Dim sh As Worksheet Set Source = Workbooks("lulu.xls") For Each sh In Source.Sheets If sh.Name Like "Sheet*" Then sh.Copy before:=Workbooks("toto.xls").Sheets(1) End If Next sh End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
Bonsoir,
J'ai utilisé la methode de Daniel car j'ai facilement reussi à l'integrer,
en revanche, il ne me les met pas dans le bon ordre, dans lulu.xls, elle
sont sont dans l'ordre croissant Sheet1 ; Sheet2 .... et quand il les copie
dans toto.xls, il met l'ordre inverse, Sheet8 ; Sheet7 .... ca qui ne peut
pas aller du tout avec la suite de mon travail, est t'il possible de lui
demander de garder l'ordre d'origine ou alors de les trier.
Merci
Manu
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uckxnP5tKHA.3360@TK2MSFTNGP06.phx.gbl...
Bonjour.
Il faut le faire feuille par feuille :
Sub test()
Dim sh As Worksheet
Set Source = Workbooks("lulu.xls")
For Each sh In Source.Sheets
If sh.Name Like "Sheet*" Then
sh.Copy before:=Workbooks("toto.xls").Sheets(1)
End If
Next sh
End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier
lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et
colle les dans le fichier toto.xls
J'ai utilisé la methode de Daniel car j'ai facilement reussi à l'integrer, en revanche, il ne me les met pas dans le bon ordre, dans lulu.xls, elle sont sont dans l'ordre croissant Sheet1 ; Sheet2 .... et quand il les copie dans toto.xls, il met l'ordre inverse, Sheet8 ; Sheet7 .... ca qui ne peut pas aller du tout avec la suite de mon travail, est t'il possible de lui demander de garder l'ordre d'origine ou alors de les trier.
Merci
Manu
"Daniel.C" a écrit dans le message de news:
Bonjour. Il faut le faire feuille par feuille :
Sub test() Dim sh As Worksheet Set Source = Workbooks("lulu.xls") For Each sh In Source.Sheets If sh.Name Like "Sheet*" Then sh.Copy before:=Workbooks("toto.xls").Sheets(1) End If Next sh End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
isabelle
bonjour Manu,
remplace
Before par After
isabelle
Le 2010-02-27 13:41, Manu a écrit :
Bonsoir,
J'ai utilisé la methode de Daniel car j'ai facilement reussi à l'integrer, en revanche, il ne me les met pas dans le bon ordre, dans lulu.xls, elle sont sont dans l'ordre croissant Sheet1 ; Sheet2 .... et quand il les copie dans toto.xls, il met l'ordre inverse, Sheet8 ; Sheet7 .... ca qui ne peut pas aller du tout avec la suite de mon travail, est t'il possible de lui demander de garder l'ordre d'origine ou alors de les trier.
Merci
Manu
"Daniel.C" a écrit dans le message de news:
Bonjour. Il faut le faire feuille par feuille :
Sub test() Dim sh As Worksheet Set Source = Workbooks("lulu.xls") For Each sh In Source.Sheets If sh.Name Like "Sheet*" Then sh.Copy before:=Workbooks("toto.xls").Sheets(1) End If Next sh End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
bonjour Manu,
remplace
Before
par
After
isabelle
Le 2010-02-27 13:41, Manu a écrit :
Bonsoir,
J'ai utilisé la methode de Daniel car j'ai facilement reussi à l'integrer,
en revanche, il ne me les met pas dans le bon ordre, dans lulu.xls, elle
sont sont dans l'ordre croissant Sheet1 ; Sheet2 .... et quand il les copie
dans toto.xls, il met l'ordre inverse, Sheet8 ; Sheet7 .... ca qui ne peut
pas aller du tout avec la suite de mon travail, est t'il possible de lui
demander de garder l'ordre d'origine ou alors de les trier.
Merci
Manu
"Daniel.C"<dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uckxnP5tKHA.3360@TK2MSFTNGP06.phx.gbl...
Bonjour.
Il faut le faire feuille par feuille :
Sub test()
Dim sh As Worksheet
Set Source = Workbooks("lulu.xls")
For Each sh In Source.Sheets
If sh.Name Like "Sheet*" Then
sh.Copy before:=Workbooks("toto.xls").Sheets(1)
End If
Next sh
End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier
lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et
colle les dans le fichier toto.xls
J'ai utilisé la methode de Daniel car j'ai facilement reussi à l'integrer, en revanche, il ne me les met pas dans le bon ordre, dans lulu.xls, elle sont sont dans l'ordre croissant Sheet1 ; Sheet2 .... et quand il les copie dans toto.xls, il met l'ordre inverse, Sheet8 ; Sheet7 .... ca qui ne peut pas aller du tout avec la suite de mon travail, est t'il possible de lui demander de garder l'ordre d'origine ou alors de les trier.
Merci
Manu
"Daniel.C" a écrit dans le message de news:
Bonjour. Il faut le faire feuille par feuille :
Sub test() Dim sh As Worksheet Set Source = Workbooks("lulu.xls") For Each sh In Source.Sheets If sh.Name Like "Sheet*" Then sh.Copy before:=Workbooks("toto.xls").Sheets(1) End If Next sh End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
michdenis
Je n'avais pas lu qu'il fallait les copier vers un autre classeur '--------------------------------- Sub test() With Workbooks("lulu.xls") .Activate For Each sh In .Sheets If Left(sh.Name, 5) = "Sheet" Then sh.Select False End If Next End With With Workbooks("toto.xls") ActiveWindow.SelectedSheets.Copy after:=.Sheets(.Sheets.Count) End With End Sub '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Merci, je vais tester en fin d'AM et je vous tiens au courant.
Merci
Manu
"michdenis" a écrit dans le message de news:
Bonjour,
Pour la sélection des feuilles débutant par "Sheet" '--------------------------------- For each sh in sheets if left(Sh.name,5) = "Sheet" then Sh.select False end if Next '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
Je n'avais pas lu qu'il fallait les copier vers un autre classeur
'---------------------------------
Sub test()
With Workbooks("lulu.xls")
.Activate
For Each sh In .Sheets
If Left(sh.Name, 5) = "Sheet" Then
sh.Select False
End If
Next
End With
With Workbooks("toto.xls")
ActiveWindow.SelectedSheets.Copy after:=.Sheets(.Sheets.Count)
End With
End Sub
'---------------------------------
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de groupe de discussion :
ueJFBd7tKHA.4796@TK2MSFTNGP02.phx.gbl...
Merci, je vais tester en fin d'AM et je vous tiens au courant.
Merci
Manu
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
E54E1343-2398-489E-8C41-5385FEA10E69@microsoft.com...
Bonjour,
Pour la sélection des feuilles débutant par "Sheet"
'---------------------------------
For each sh in sheets
if left(Sh.name,5) = "Sheet" then
Sh.select False
end if
Next
'---------------------------------
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de groupe de
discussion :
ebFss64tKHA.4220@TK2MSFTNGP05.phx.gbl...
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier
lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et
colle les dans le fichier toto.xls
Je n'avais pas lu qu'il fallait les copier vers un autre classeur '--------------------------------- Sub test() With Workbooks("lulu.xls") .Activate For Each sh In .Sheets If Left(sh.Name, 5) = "Sheet" Then sh.Select False End If Next End With With Workbooks("toto.xls") ActiveWindow.SelectedSheets.Copy after:=.Sheets(.Sheets.Count) End With End Sub '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Merci, je vais tester en fin d'AM et je vous tiens au courant.
Merci
Manu
"michdenis" a écrit dans le message de news:
Bonjour,
Pour la sélection des feuilles débutant par "Sheet" '--------------------------------- For each sh in sheets if left(Sh.name,5) = "Sheet" then Sh.select False end if Next '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
C'est la 1ere chose que j'avais tenté, mais il ne me les a pas placé dans l'ordre, il les à tout simplement mis apres la feuil1
"isabelle" a écrit dans le message de news:
bonjour Manu,
remplace
Before par After
isabelle
Le 2010-02-27 13:41, Manu a écrit :
Bonsoir,
J'ai utilisé la methode de Daniel car j'ai facilement reussi à l'integrer, en revanche, il ne me les met pas dans le bon ordre, dans lulu.xls, elle sont sont dans l'ordre croissant Sheet1 ; Sheet2 .... et quand il les copie dans toto.xls, il met l'ordre inverse, Sheet8 ; Sheet7 .... ca qui ne peut pas aller du tout avec la suite de mon travail, est t'il possible de lui demander de garder l'ordre d'origine ou alors de les trier.
Merci
Manu
"Daniel.C" a écrit dans le message de news:
Bonjour. Il faut le faire feuille par feuille :
Sub test() Dim sh As Worksheet Set Source = Workbooks("lulu.xls") For Each sh In Source.Sheets If sh.Name Like "Sheet*" Then sh.Copy before:=Workbooks("toto.xls").Sheets(1) End If Next sh End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
C'est la 1ere chose que j'avais tenté, mais il ne me les a pas placé dans
l'ordre, il les à tout simplement mis apres la feuil1
"isabelle" <i@v> a écrit dans le message de news:
OkY6w09tKHA.5384@TK2MSFTNGP04.phx.gbl...
bonjour Manu,
remplace
Before
par
After
isabelle
Le 2010-02-27 13:41, Manu a écrit :
Bonsoir,
J'ai utilisé la methode de Daniel car j'ai facilement reussi à
l'integrer,
en revanche, il ne me les met pas dans le bon ordre, dans lulu.xls, elle
sont sont dans l'ordre croissant Sheet1 ; Sheet2 .... et quand il les
copie
dans toto.xls, il met l'ordre inverse, Sheet8 ; Sheet7 .... ca qui ne
peut
pas aller du tout avec la suite de mon travail, est t'il possible de lui
demander de garder l'ordre d'origine ou alors de les trier.
Merci
Manu
"Daniel.C"<dcolardelleZZZ@gmail.com> a écrit dans le message de news:
uckxnP5tKHA.3360@TK2MSFTNGP06.phx.gbl...
Bonjour.
Il faut le faire feuille par feuille :
Sub test()
Dim sh As Worksheet
Set Source = Workbooks("lulu.xls")
For Each sh In Source.Sheets
If sh.Name Like "Sheet*" Then
sh.Copy before:=Workbooks("toto.xls").Sheets(1)
End If
Next sh
End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier
lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et
colle les dans le fichier toto.xls
C'est la 1ere chose que j'avais tenté, mais il ne me les a pas placé dans l'ordre, il les à tout simplement mis apres la feuil1
"isabelle" a écrit dans le message de news:
bonjour Manu,
remplace
Before par After
isabelle
Le 2010-02-27 13:41, Manu a écrit :
Bonsoir,
J'ai utilisé la methode de Daniel car j'ai facilement reussi à l'integrer, en revanche, il ne me les met pas dans le bon ordre, dans lulu.xls, elle sont sont dans l'ordre croissant Sheet1 ; Sheet2 .... et quand il les copie dans toto.xls, il met l'ordre inverse, Sheet8 ; Sheet7 .... ca qui ne peut pas aller du tout avec la suite de mon travail, est t'il possible de lui demander de garder l'ordre d'origine ou alors de les trier.
Merci
Manu
"Daniel.C" a écrit dans le message de news:
Bonjour. Il faut le faire feuille par feuille :
Sub test() Dim sh As Worksheet Set Source = Workbooks("lulu.xls") For Each sh In Source.Sheets If sh.Name Like "Sheet*" Then sh.Copy before:=Workbooks("toto.xls").Sheets(1) End If Next sh End Sub
Daniel
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
Manu
Super michdenis, exactement ce qu'il ma faut, merci à vous 3
Manu
"michdenis" a écrit dans le message de news:
Je n'avais pas lu qu'il fallait les copier vers un autre classeur '--------------------------------- Sub test() With Workbooks("lulu.xls") .Activate For Each sh In .Sheets If Left(sh.Name, 5) = "Sheet" Then sh.Select False End If Next End With With Workbooks("toto.xls") ActiveWindow.SelectedSheets.Copy after:=.Sheets(.Sheets.Count) End With End Sub '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Merci, je vais tester en fin d'AM et je vous tiens au courant.
Merci
Manu
"michdenis" a écrit dans le message de news:
Bonjour,
Pour la sélection des feuilles débutant par "Sheet" '--------------------------------- For each sh in sheets if left(Sh.name,5) = "Sheet" then Sh.select False end if Next '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
Merci
Manu
Super michdenis, exactement ce qu'il ma faut, merci à vous 3
Manu
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
ABD5793D-DDE0-47A8-A56D-7DCCA77D4820@microsoft.com...
Je n'avais pas lu qu'il fallait les copier vers un autre classeur
'---------------------------------
Sub test()
With Workbooks("lulu.xls")
.Activate
For Each sh In .Sheets
If Left(sh.Name, 5) = "Sheet" Then
sh.Select False
End If
Next
End With
With Workbooks("toto.xls")
ActiveWindow.SelectedSheets.Copy after:=.Sheets(.Sheets.Count)
End With
End Sub
'---------------------------------
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de groupe de
discussion :
ueJFBd7tKHA.4796@TK2MSFTNGP02.phx.gbl...
Merci, je vais tester en fin d'AM et je vous tiens au courant.
Merci
Manu
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
E54E1343-2398-489E-8C41-5385FEA10E69@microsoft.com...
Bonjour,
Pour la sélection des feuilles débutant par "Sheet"
'---------------------------------
For each sh in sheets
if left(Sh.name,5) = "Sheet" then
Sh.select False
end if
Next
'---------------------------------
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de groupe de
discussion :
ebFss64tKHA.4220@TK2MSFTNGP05.phx.gbl...
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier
lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et
colle les dans le fichier toto.xls
Super michdenis, exactement ce qu'il ma faut, merci à vous 3
Manu
"michdenis" a écrit dans le message de news:
Je n'avais pas lu qu'il fallait les copier vers un autre classeur '--------------------------------- Sub test() With Workbooks("lulu.xls") .Activate For Each sh In .Sheets If Left(sh.Name, 5) = "Sheet" Then sh.Select False End If Next End With With Workbooks("toto.xls") ActiveWindow.SelectedSheets.Copy after:=.Sheets(.Sheets.Count) End With End Sub '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Merci, je vais tester en fin d'AM et je vous tiens au courant.
Merci
Manu
"michdenis" a écrit dans le message de news:
Bonjour,
Pour la sélection des feuilles débutant par "Sheet" '--------------------------------- For each sh in sheets if left(Sh.name,5) = "Sheet" then Sh.select False end if Next '---------------------------------
"Manu" a écrit dans le message de groupe de discussion :
Bonjour
Comment puis je dire en VBA : selctionne toutes les feuil du fichier lulu.xls qui commencent par Sheet (quel que soit le nombre de feuil) et colle les dans le fichier toto.xls
