Bonjour tout le monde !!
Voila j'ai un petit souci dans l'export d'une feuille:
semweek = Range('weeksem')
Application.DisplayAlerts = False
Workbooks.Open Filename:='F:/classeur1.xls'
Var = 'weekend' & '(' & semweek & ')'
Windows('classeur1.xls').Activate
For Each Ws In Workbooks('classeur1').Sheets
If Ws.Name = Var Then
Ws.Delete
Exit For
End If
Next Ws
Cde petit bout de code me permet de faire une recherche dans un autre classeur pour voir si le nom existe, et s'il existe il doit le supprimer, mais cela ne fonctionne pas, enfin si mais bizarre il reste coincé sur la ligne ws.delete.
Ensuite je voudrais qu'il revienne sur le classeur où il travaille et qu'il fasse une copie.
Workbooks('futur_FDP').Activate
Sheets('weekend').Select
ActiveSheet.Copy Before:=Workbooks('classeur1.xls').Sheets(1)
Workbooks('classeur1.xls').Sheets(1).Name = Var
ActiveSheet.Move After:=Sheets(Sheets.Count)
Mais cela ne fonctionne pas.
Je vous remercie à l'avance de l'aide que vous pourriez m'apporter.
Voila j'ai un petit souci dans l'export d'une feuille:
semweek = Range('weeksem')
Application.DisplayAlerts = False
Workbooks.Open Filename:='F:/classeur1.xls'
Var = 'weekend' & '(' & semweek & ')'
Windows('classeur1.xls').Activate
For Each Ws In Workbooks('classeur1').Sheets
If Ws.Name = Var Then
Ws.Delete
Exit For
End If
Next Ws
Cde petit bout de code me permet de faire une recherche dans un autre classeur pour voir si le nom existe, et s'il existe il doit le supprimer, mais cela ne fonctionne pas, enfin si mais bizarre il reste coincé sur la ligne ws.delete.
Ensuite je voudrais qu'il revienne sur le classeur où il travaille et qu'il fasse une copie.
Workbooks('futur_FDP').Activate
Sheets('weekend').Select
ActiveSheet.Copy Before:=Workbooks('classeur1.xls').Sheets(1)
Workbooks('classeur1.xls').Sheets(1).Name = Var
ActiveSheet.Move After:=Sheets(Sheets.Count)
Mais cela ne fonctionne pas.
Je vous remercie à l'avance de l'aide que vous pourriez m'apporter.