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

jacky49 · 15 Mai 2014

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

Code:

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 · 12 Juin 2014

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

Code:

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

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

jacky49

XLDnaute Impliqué

jacky49

XLDnaute Impliqué

Discussions similaires

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

jacky49

XLDnaute Impliqué

jacky49

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency