Copier d'une feuille d'un fichier à un autre

[jacky49]

Bonsoir le forum,

j'ai ce code que je viens de créer qui me copie les cellules A5 à A105 du classeur "inscrits" et de la feuille SMG sur mon 2ème classeur Classements et sur la feuille SMG à partir de la cellule A7, mon problème, c'est que j'ai plusieurs feuille qui ont la même structure et du coup, il me copie toujours la même feuille dans le 2ème classeur
merci de votre aide

Sub Copier_Inscrits_SMG()

    Windows("Inscrits.xls").Activate
    Range("A5:A105").Select
    Selection.Copy
    Windows("Classement .xlsm").Activate
    Range("A7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A7").Select
End Sub

jacky

 

[jacky49]

Re : Copier d'une feuille d'un fichier à un autre

Re Bonsoir,

une partie de résolu, juste le dernier point , l'erreur sur la transpose

Sub Copier_Inscrits_JunSenF()
 Dim CLASSEUR As Workbook
 Dim SOURCE As Range, DESTINATION As Range
 Set SOURCE = ThisWorkbook.Sheets("JSF").Range("B5:B103")
 Set CLASSEUR = Workbooks("Classement 2014.xlsm")
 Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("B7,K7,U7,AI7,AS7,BC7,BQ7,BZ7,CJ7,CX7,DP7,EN7")' cela fonctionne
  DESTINATION.PasteSpecial xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ' Erreur 
 CLASSEUR.Activate
 DESTINATION.Select.Range (A7)
 End Sub

merci
jacky