Re
essaies ceci
Guy3.xls correspond au fichier sur lequel tu va copier ta feuille et le toto.xls le fichier de départ. Et pour mes essais NBRE etait le nom de la feuille que je voulais copier et je voulais la renommer sur le nouveau classeur Nbre1
Citation:
Sub essai()
Dim x AsByte
* * ChDir 'C:\\\\\\\\Tmp'
* * Workbooks.Open Filename:='C:\\\\\\\\Tmp\\\\\\\\Guy3.xls'
* * Windows('Toto.xls').Activate
* * Sheets('Nbre').Copy Before:=Workbooks('Guy3.xls').Sheets(1)
* * OnErrorGoTo erreur
* * ActiveSheet.Name = 'Nbre1'
* * ExitSub
erreur:
* * Application.DisplayAlerts = False
* * Workbooks('Guy3.xls').Sheets('Nbre1').Delete
* * Application.DisplayAlerts = True
* * Workbooks('Guy3.xls').Sheets('Nbre').Name = 'Nbre1'
EndSub
|
Message édité par: Pascal76, à: 11/04/2006 09:58