Sub plusgrand() Dim A As Workbook Dim B As Workbook Dim chemin As String chemin = ThisWorkbook.Path Application.Workbooks.Open Filename:=chemin & "\B.xls" For i = 1 To sheetcounts sheetcounts = Sheet.Add.Name Workbooks("A.xls").Sheets("Feuil1").Range("D2") = sheetcounts.Add.Name Next Exit Sub End Sub
Sub plusgrand() Dim A As Workbook 'je déclare mon classeur A Dim B As Workbook 'je declare mon classeur B Dim chemin As String ' je declare ma variable chemin chemin = ThisWorkbook.Path Application.Workbooks.Open Filename:=chemin & "\B.xls" 'je donne le chemin d'ouverture de B pour aller y chercher la feuille possédant la plus grande valeur car mes feuilles sont numerotées 10,11, 12 , 13 ,.....etc dans mon classeur B For i = 1 To sheetcounts ' pour toute les feuilles allant de 1 à X dans mon classeur B, X feuille non definie puisque je peux en ajouter sheetcounts = Sheet.Add.Name ' la dernière feuille portant le numero plus elevé Workbooks("A.xls").Sheets("Feuil1").Range("D2") = sheetcounts.Add.Name ' je desire placer cette valeur en cellule d2 , feuille 1 de mon classeur A next Exit Sub End Sub
Workbooks("A.xls").Sheets("Feuil1").Range("D2") = Workbooks("B.xls").Sheets(Sheets.Count).Select
Option Explicit Sub plusgrand() Dim A As Workbook Dim B As Workbook Dim chemin As String chemin = ThisWorkbook.Path Dim i As Integer Application.Workbooks.Open Filename:=chemin & "\B.xls" Workbooks("A.xls").Sheets("Feuil1").Range("D2") = Workbooks("B.xls").Sheets(Sheets.Count).Select Workbooks("B.xls").Close True Exit Sub End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question