Discussion :

[zaki_1982]

bonjour

j'ai utilisé ce code pour copier les feuille d'un fichier execl vers un autre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
n = Sheets.Count
For i = 2 To n
v = Sheets(i).Name
Sheets(v).Copy
Next i
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ("c:\ test.xls")

mais j'arrive à copier que la premier feuille càd quand i=1 et pour la 2 éme j'ai ce message:
l'indice n'appartient pas à la selection

est ce qu'il y a une solution pour résoudre ce problème

merci

[alsimbad]

au départ, il est dans ton classeur actif
ensuite il prend la feuille 2, il la copie dans un nouvaux classeur qu'il crée avec cette unique feuille
et quand il revient a l'occurence suivante de la boucle, il est toujour dans ce nouveau classeur ou la troisieme feuille n'existe pas. il faut donc que tu revienne dans ton classeur d'origine.
il y a même des fàçons un peu plus simple de lui désigner les feuilles mais essaie d'abord celle là petit scarabé

[Oh!Tofocus]

Comme dit le dicton: un scarabé peut en cacher un autre (surtout si ils sont petits )

J'ai le même problème que zaki_1982

Je n'arrive pas à copier une feuille et la deposer dans un classeur déja existant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Windows("Classeur2").Activate
    Sheets(1).Copy
 
    Windows("Classeur1").Select
    Workbooks("Classeur1").Paste

Sheets(1).copy crée un nouveau classeur ( Classeur3) et je ne peux pas rajouter la feuille dans le Classeur1

de toute manière Workbooks("Classeur1").Paste ça n'existe pas dan VBA

actuellement je sélectionne toutes les cellules de la feuille1 du Classeur2 et je les colle dans une feuille vierge du Classeur1. Mais peut être y a t il plus élégant

[Abed_H]

Bonsoir
ce code archive les Onglets dans un nouveau classeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ArchiveFeuilles()
Dim Arr, sh, Wbk As Workbook, tmp As Workbook
Set tmp = ThisWorkbook ' classeur active
    Arr = Array("Feuil1", "Feuil2", "Feuil3") ' au besoin ajoute des feuilles
  Set Wbk = Workbooks.Add ' nouveau classeur
        For i = 1 To UBound(Arr)
            Wbk.Sheets(i).Name = Arr(i)
      Next i
 
     For Each sh In Arr
        'copie la plage utilisée de la feuille
           tmp.Sheets(sh).UsedRange.Copy
            'la colle dans la feuille du 2ème classeur
         Wbk.Sheets(sh).Paste
      'vide le presse-papiers
      Application.CutCopyMode = False
  Next
End Sub

Bonne soirée

Abed_H

[alsimbad]

je vous le donne émile

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub test()
Set c1 = Workbooks("Classeur1.xls").Sheets(1)
Set c2 = Workbooks("classeur2.xls").Sheets(1)
c1.Range("A1").EntireRow.Copy Destination:=c2.Range("a4")
End Sub

[Oh!Tofocus]

Merci vos réponses
Il semble donc que l'on est obligé de passer par le copier coller le contenu de la feuille.
On ne peut donc pas copier physiquement une feuille pour la deposer dans un autre classeur.....
Tant pis, je crois que je m'en remettrai ... il y a des choses plus graves dans la vie.

[alsimbad]

si, on peut
excuse moi, je t'avais mal compris, je croyais que tu parlais de ligne
voila ce que donne l'enregistreur de macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("mafeuille").Move Before:=Workbooks("Classeur2.xls").Sheets(1)

ça c'est si tu veux la déplacer : "move"
si tu veux la copier et quelle reste aussi dans son classeur d'origine tu utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("mafeuille").copy Before:=Workbooks("Classeur2.xls").Sheets(1)

excuse moi pour le retard

[Oh!Tofocus]

Quelle nouille je suis
Je n'avais jamais remarqué que l'on pouvais choisir le classeur dans la fenêtre de copie de feuille sous EXEL . Sinon l'enregistreur de macro m'aurait montré la voie.

excuse moi pour le retard

7 minutes pour une réponse je trouve ça rapido

[alsimbad]

7 minutes pour une réponse je trouve ça rapido

surement, mais 7minutes et 10 jours ! pour le pauvre zaki_1982 qui a posé la question d'origine. (et qui n'a pas donné signe de vie depuis d'ailleurs)

[zaki_1982]

merci mes ami pr la collaboration j'etais en congé apparament mon collegue à utiliser d'autre solution je vais le contacter et je vais la mettre sur le forum