Manipuler un Array

[GeoTrouvePas]

Bonjour tout le monde,

Voilà j'ai un petit soucis sur quelque chose de pas bien compliqué que je n'arrive pas à maîtriser.

Je voudrais exporter tous les onglets de mon classeur vers un nouveau sauf les onglets dont les noms figurent dans une plage nommée "Feuilles_A_Garder"

En fait j'arrive à faire une boucle pour les exporter les uns après les autres dans des fichiers séparés mais pas tous ensemble dans le même fichier.

Il me semble qu'il faut utiliser un "Array" mais j'ai du mal à comprendre comment ça marche.

Auriez vous une idée ?

Merci d'avance et bonne fin de journée à tout le monde

 

[Paritec]

Re : Manipuler un Array

Bonjour GeoTrouvePas
tu fais une macro, tu copies le classeur et tu supprimes la feuille que tu ne voulais pas exporter et le résultat voulu est obtenu
a+
papou 🙂

 

[JNP]

Re : Manipuler un Array

Salut Géo, Pascal 🙂,
A adapter

Sub test()
Dim Feuille As Worksheet
For Each Feuille In ThisWorkbook.Worksheets
If Range("Plage").Find(Feuille.Name) Is Nothing Then
MsgBox Feuille.Name
End If
Next
End Sub

Bonne soirée 😎

 

[GeoTrouvePas]

Re : Manipuler un Array

Bonsoir Paritec !

Bien pensé ! J'avais pas envisagé de prendre le problème dans ce sens là. Mais petit soucis : Les feuilles que je veux garder sont extrèmement bien remplies. Du coup une macro comme celle que tu proproses serait très longue à tourner.

Et ça m'embète un peu d'exporter des feuilles aussi lourdes pour les supprimer après.

En fait il me faudrait juste une façon de boucler comme ceci :

Sub Sauvegarder()

For i = 1 To ThisWorkbook.Sheets.Count

    [COLOR="Red"]If Sheets(i).name 'n'appartient pas à la plage("Feuilles_A_Garder") Then
        'Ajouter dans Array[/COLOR]    End If

Next

[COLOR="red"]Sheets(Array("Feuil1", "Feuil3")).Move[/COLOR]

ActiveWorkbook.SaveAs "C:\Mondossier\Sauvegarde.xls"

End Sub

Quelqu'un auriat une idée pour exprimer ce "concept" correctement ?

 

[JNP]

Re : Manipuler un Array

Re 🙂,
Vu la colision, as-tu vu mon post 😛 ?
Bonne soirée 😎

 

[GeoTrouvePas]

Re : Manipuler un Array

Salut JNP, on s'est croisés manifestement 😉

Merci pour ta proposition, mais mon soucis ne vient pas du fait que je ne sais pas déterminer si la feuille enquestion fait partir de ma plage d'exclusion ou pas mais plutôt du fait que je ne sais pas comment l'ajouter dans une expression du type :

Sheets(Array("Feuil1", "Feuil3")).Move

 

[GeoTrouvePas]

Re : Manipuler un Array

2 collision d'affilée 😛

Oui j'ai vu ton post. Et toi, as tu vu le mien ? 😉

Edit : C'est plus un forum, c'est un vrai tchat ^^

 

[YANN-56]

Re : Manipuler un Array

Bonjour GéoTrouePas, Pascal, et à ceux qui passeront par ici,

Je joins un Exemple qui fonctionne à l'envers de ce que tu demandes!
(Il suffit donc de faire un 180° avec l'écran) 😀

Je pense cependant que tu sauras l'adapter à ta recherche...

Il y manque aussi la création du Classeur de destination,
mais je ne doute que tu saches le faire.

Si tu n'y trouves pas solution; je suis disposé à aller plus loin.
(Mais il me faudra un peu de temps pour te construire un exemple)

Amicalement.

Yann

 

[Paritec]

Re : Manipuler un Array

Bonsoir GeoTrouvePas Jean Noël🙂,
pourquoi copier les feuilles? tu copies le classeur complet avec un
saveas et après tu supprimes ta feuille
La copie d'un classeur complet n'est pas longue ou alors tu as un fichier de combien de MO ??
a+
papou 🙂

autrement dans ta boucle 
dim ws as worksheet
for each ws in worksheets
if ws.name<> " le nom a pas copier" then  "ta copie ou tu veux"
next ws

 

[YANN-56]

Re : Manipuler un Array

Poussez pas les mecs!!!

Chacun son tour 🙂 🙂 🙂

 

[JNP]

Re : Manipuler un Array

Re 🙂,
Bon alors, comme ça

Sub test()
Dim Feuille As Worksheet, Tableau()
ReDim Tableau(0)
For Each Feuille In ThisWorkbook.Worksheets
If Range("Plage").Find(Feuille.Name) Is Nothing Then
ReDim Preserve Tableau(UBound(Tableau) + 1)
Tableau(UBound(Tableau) - 1) = Feuille.Name
End If
Next
ReDim Preserve Tableau(UBound(Tableau) - 1)
Sheets(Tableau).Select
End Sub

Attention aux chauffards 😀...
Bonne soirée 😎

 

[Hervé]

Re : Manipuler un Array

bonjour

peut etre un truc dans ce style :

Dim tablo()
Dim i As Byte
ReDim tablo(0)
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Feuil3" Then
        If i = 1 Then ReDim Preserve tablo(UBound(tablo)) Else ReDim Preserve tablo(UBound(tablo) + 1)
        tablo(UBound(tablo)) = Sheets(i).Name
    End If
Next i
Sheets(tablo).Select

salut

 

[GeoTrouvePas]

Re : Manipuler un Array

Salut Yann-56 !

Et bien voilà, il suffisait de compiler la méthode de JNP pour boucler sur les feuilles et la tienne pour les exporter, et le tour est joué ! ça marche impec ! 😀😀😀

Merci beaucoup à vous trois et bonne soirée !