Discussion :

[DevStage]

Bonjour!
Je me permet de poster ici parce qu' il ya 1 message d'erreur que je ne comprend pas:

Erreur d'exécution '9':
L'indice n'appartient pas à la séléction.

Le code:

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton1_Click()
    Sheets.Add after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Artistes"
    Workbooks("Artiste 2007 01 31 version a reintegrer.xls").Worksheets("------- Artiste -------").Range("I1:I3677").Copy
    Workbooks("Artiste 2007 01 31 version a reintegrer.xls").Worksheets("Artistes").Range("A1:A3677").PasteSpecial
End Sub

Merci d'avance pour votre aide!

[ouskel'n'or]

Comme je vais supprimer ton message, devstage, la solution passe par là

Code :

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

1
2
3
4
ActiveSheet.Name = "Artistes"
'......    
Workbooks("Artiste 2007 01 31 version a reintegrer.xls"). _
Worksheets(Artistes).Range("A1:A3677").Paste

Donne-nous le résultat que je fasse le ménage