Set ws2 = Workbooks("Saisie" & Smax & ".xls").Sheets(Tableau)
Dim Tableau As Worksheet
Set Tableau=sheets("NomDeMaFeuille") Set ws2 = Workbooks("Saisie" & Smax & ".xls").Tableau
wb1.ws1.Range("A1:A36") = wb2.ws2.Range("A1:A36").Value
Dim Valeurs As Rangemais ça ne marche pas nom plus des la première ligne avec :
wb1.ws1.Range("A1:A36")
J'ai essayé de changer par Sheets(1) et ... ca marche -_-'
Set Tableau=sheets("Tableau ") Set ws2 = Workbooks("Saisie" & Smax & ".xls").Tableau ' ou Set ws2 = Workbooks("Saisie" & Smax & ".xls").sheets("Tableau") ' ou encore Set ws2 = Workbooks("Saisie" & Smax & ".xls").Sheets(1)
Dim Plage1 As Range Dim Plage2 As Range wb1.Activate ws1.Select Set Plage1 = ActiveSheet.Range("A1:A36") wb2.Activate ws2.Select Set Plage2 = ActiveSheet.Range("A1:A36") Plage1 = Plage2.Value
wb2.worksheets("....nom de la feuille à copier.....").range("A1:A36").copy destination:= wb1.worksheets("ValeursTableau").range("A1")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionworksheets("....nom de la feuille à copier.....")ne marche pas, mais
Worksheets(numero de la feuille)fonctionne.