Bonjour à tous,
pourriez vous améliorer ce petit programme, il fonctionne très bien sauf qu'a la création des feuilles
il les places a gauche de la dernière feuille (before)
pourriez vous modifier pour qu'il place les feuilles vers la droite (after).
Application.DisplayAlerts = True
Set ongl = ThisWorkbook.Sheets.Add
ongl.Name = num
fich.Sheets(1).Cells.Copy
Workbooks(ThisWorkbook.Name).Activate
ongl.Select
Application.DisplayAlerts = False
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
fich.Close (False)
merci à vous tous
pourriez vous améliorer ce petit programme, il fonctionne très bien sauf qu'a la création des feuilles
il les places a gauche de la dernière feuille (before)
pourriez vous modifier pour qu'il place les feuilles vers la droite (after).
Application.DisplayAlerts = True
Set ongl = ThisWorkbook.Sheets.Add
ongl.Name = num
fich.Sheets(1).Cells.Copy
Workbooks(ThisWorkbook.Name).Activate
ongl.Select
Application.DisplayAlerts = False
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
fich.Close (False)
merci à vous tous