creer nouvelle feuille dans un autre classeur

[inèsanso]

bonjour à tous,

petit probleme la petite programmation fonctionne bien seul probleme je veux que la feuille qui se crée soit dans un autre dossier nommé interventions 2012 et non dans le classeur actif.
merci de votre aide.

 

[inèsanso]

Re : creer nouvelle feuille dans un autre classeur

bonjour ,
j'ai besoin d'un très bon conseil pour finaliser mon projet,
je voudrai que ma feuille que je cree soit enregistrée non pas dans ce classeur mais dans un dossier nommé "suivi annuel" car il se peux que j'ai deux dates identiques et cela me met une erreur car on ne peux avoir deux onglets du meme nom.
ci joint le code utilisé . merci de votre aide.

Private Sub CommandButton2_Click()
Dim nom As String
nom = TextBox1

If nom <> "" Then
DerLig = 1
While Sheets("base").Cells(DerLig, 1) <> ""
DerLig = DerLig + 1
Wend
Application.ScreenUpdating = True

Workbooks.Open Filename:=ThisWorkbook.Path & "\intervention.xlsx"
Sheets("intervention").Select
Sheets("intervention").Copy after:=ThisWorkbook.Sheets(Sheets.Count)
ActiveSheet.Name = nom