Discussion :

[mistermail]

Bonjour,

J'aimerais copier une feuille d'un classeur en dernière position dans un autre classeur. Voici le code que j'utilise :

Code :

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

1
2
3
4
Workbooks.Add ("c:\Fichier2.xls")
nbonglet = Worksheets.Count
Sheets(Feuille).Select
Sheets(Feuille).Move After:=Workbooks("Fichier2").Sheets(nbonglet)

J'ai le message d'erreur suivant :

L'indice n'appartient pas à la sélection

Pouvez vous m'aider ?

Merci d'avance.

[laetitia]

bonjour mistermail le forum un code a adapter

Code :

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

1
2
3
4
5
Chemin = "c:\Fichier2.xls"
Fichier1 = ActiveWorkbook.Name
Workbooks.Open Chemin, 0, ReadOnly:=False
Fichier2 = ActiveWorkbook.Name
Workbooks(Fichier1).Sheets("Feuil1").Copy After:=Workbooks(Fichier2).Sheets("Feuil3")

ps oubli pas les balises

[mercatog]

Une proposition à adapter (qui teste l'existence du fichier de destination)
il faut impérativement prévoir un test si le nom de la feuille source existe déjà dans le fichier de destination

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
20
21
22
23
Public Sub es()
Dim wbkSource As Workbook, wbkDest As Workbook
Dim stFichier As String, stExistFich As String
 
Application.ScreenUpdating = True
Set wbkSource = ActiveWorkbook
stFichier = "CheminCompletDeTonFichierDeDestination.xls"
stExistFich = Dir(stFichier)
If stExistFich = "" Then
    Workbooks.Add (1)
    Set wbkDest = ActiveWorkbook
    wbkDest.SaveAs Filename:=stFichier
Else
    Set wbkDest = Workbooks.Open(stFichier)
End If
'ici prévoir un test sur l'inexistence de Feuille dans le classeur cible
wbkSource.Sheets("Feuille").Copy after:=wbkDest.Sheets(wbkDest.Sheets.Count)
wbkDest.Save
wbkDest.Close
Set wbkSource = Nothing
Set wbkDest = Nothing
Application.ScreenUpdating = True
End Sub

Edit: Laetitia, pas rafraichi