Pb avec Workbooks.Add

[Guilmo]

Voilà j'ai un p'tit bout de prog dont l'objéctif est de créer un nouveau classeur et de copîer des feuilles dedans ...
Cependant à chaque coup que le prog rencontre une ligne contenant
CurrentWorkbook, il me crée un nouveau classeur et je comprends pas
pourquoi !!! Monde trop zinzuste !
Merci pour vos réponses, forums cool.

Guilmo.

Dim sinw As Long

sinw = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Set CurrentWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = sinw

'on copie les courbes ...
If page4 Then
Courbes.Copy
CurrentWorkbook.Sheets(1).Paste
Else
Graph2.Copy
CurrentWorkbook.Sheets(1).Paste
CurrentWorkbook.Sheets.Add
Graph3.Copy
CurrentWorkbook.Sheets(2).Paste
End If

 

[Roland]

Salut guilmo

tu as cree un objet currentworkbook dont le contenu est : workbooks.add

Chaque fois que tu lui demande d'executer currentworkbook, il cree un nouveau

A++

 

[schmail]

Bonjour Guilmo, Roland et le forum

Vite fait sur le feu...

Il faudrait que tu remplaces certains de tes currentworkbook par des ActiveWorkbook...@+