Discussion :

[Enfermania]

Bonjour à tous!

Voilà j'ai un petit problème :
Je dois créer une Macro qui simplifie le nombre de ligne et le nombre de colonne d'un fichier Excel (Source), dois prendre un 2ème fichier Excel (Mobility1), les lignes que je veux, pour l'intégrer dans mon fichier Source.
Bon jusque là, j'y arrive a peu près... J'utilise au début de ma Macro :

Code :

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

1
2
         Sheets("Source").Select
            Sheets("Source").Copy

Et pof! Il me créer un Classeur1.

Plus tard dans ma Macro (lorsque j'ai supprimé les lignes qui ne m'intéressent pas et fait tout ce que j'avais à faire), je veux copier les lignes de mon fichier Mobility1 et les coller à la fin des lignes de mon fichier Source. (Suis-je clair?!) J'ai donc

Code :

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

1
2
3
      Windows("Mobility1").Activate
        Sheets("UO_Mobility").Copy                    et POF j'ai mon Classeur2 créé!
        Windows("Classeur2").Activate

Sauf que pour passer de mon fichier Mobility (copie) à mon fichier Source (colle, à la fin des lignes), j'ai "Windows("Mobility1").Activate" qui me lance une erreur :
Erreur d'éxécution 9 : L'indice n'appartient pas à la sélection !

Que faire? Y a t-il d'autres moyens pour passer d'un classeur à un autre? Workbooks à préférer?

Comprenez que je copie mes Sheets pour ne pas modifier (et donc supprimer) mes fichiers d'origine.

Je tourne sous Excel 2010, mon boss aussi, sur mon pc tout fonctionne bien, sur le sien, bug à cette ligne!

[vinc_bilb]

Bonjour,

Il vaut mieux passer par le workbook que par le window ....

Exemple de code à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
ThisWorkbook.Worksheets(SrcWsname).Copy  'SrcWsname est le nom de la feuille à copier
 
    Set Ext_Wbkk = ActiveWorkbook   'Workbook destination
 
 
        ' Si besoin, efface les sheets autres du workbook destination, normalement, ne sert à rien
 
If Ext_Wbkk.Worksheets.Count > 1
   For Each WS In Ext_Wbkk.Worksheets
        If (WS.Name) <> SrcWsname Then Worksheets(WS.Name).Delete
    Next WS
End If

[Enfermania]

Bonjour vinc_bilb et merci pour ta réponse rapide!

Par contre, OULA, je ne comprends rien a ce que tu as écrit, je suis débutant en VBA!

Je ne peux pas simplement faire :

Code :

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

Workbooks("Mobility1").Activate

Non ?

Merci

J'aurais besoin d'un peu d'aide car je dois rendre mon projet avant ce soir!

J'ai utilisé :

Code :

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

1
2
 
Workbooks.("Mobility1").Select

Mais cela plante sur mon ordi!

NEED HELP PLEASE!!!

Merci d'avance!

[vinc_bilb]

Bonjour,

Vous pourriez envoyer votre code complet, voire le fichier?

[Enfermania]

Bonjour vinc_bilb,

Malheureusement je ne peux pas envoyer le fichier car il présente les Nom et Prénom de salariés dans l'entreprise où je suis actuellement en stage!

Mais je peux t'envoyer une partie de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sheets("Source").Select
Sheets("Source").Copy        'Me copie mon Classeur TUSFR Feuille Source en Classeur1
[.....]
    If NbLignesFin > 1 Then
    MsgBox ("Vous êtes passé de " & NbLignesOrigine & " à " & NbLignesFin & " lignes dans ce document")
    Else
    MsgBox ("Vous êtes passé de " & NbLignesOrigine & " à " & NbLignesFin & " ligne dans ce document")
    End If
 
    Windows("Mobility1").Activate         'Est censé passer de mon Classeur1 (sur lequel je supprime les lignes) à mon Classeur Mobility1 (que je veux copier)
        Sheets("UO_Mobility").Copy        'Me copie mon Classeur Mobility1 Feuille UO_Mobility en Classeur2
    Windows("Classeur2").Activate        'Est censé passer de mon Mobility1 à mon Classeur2 (Classeur2 = celui que je veux modifier et copier les lignes dans mon Classeur1)

J'ai toujours l'erreur 9 : L'indice n'appartient pas à la sélection à [Windows("Mobility1").Activate]

Je n'ai pas compris ta réponse d'hier, j'ai vu que tu utilise un .Delete , mais je ne veux pas supprimer mes feuilles, juste les copier-coller et modifier la feuille collée.

Merci de te soucier de mon problème.

Merci d'avance pour ta réponse.

[vinc_bilb]

Bonjour,

Vous pourriez fournir un fichier expurgé, juste avec quelques éléments fictifs.

Dans quel workbook est votre code? Mobility1?

Bon, sur la base de ce que je peux faire avec quelques éléments (et nons testé):

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
19
 
Sub Test_Copy
 
Dim WbkSrc As Workbook, WbkDest As Workbook    'Source et Destination
Dim WshDest As Worksheet                                  'Destination
 
Set WbkSrc = ThisWorkbook                                 'ou Workbooks("TUSFR")
 
WbkSrc.Worksheets("Source").Copy                        'Copie mon Classeur TUSFR Feuille Source dans un nouveau classeur
 
Set WbkDest  = ActiveWorkbook                           'Workbook destination
Set WshDest = ActiveWorksheet
 
Debug.Print  WbkDest.Name, WshDest.Name
 
'Si l'on veut copier une autre worksheet du classeur source vers le dest, après la feuille "source"
WbkSrc.Worksheets("UO_Mobility").Copy After:=WshDest 
 
End Sub