Problème code VBA

[kiff77]

Bonjour,

J'ai un problème avec le code suivant (créer avec l'enregistreur de macro). Le problème se traouve au niveau de "Windows("Classeur97").Activate", je ne sais pas comment indiquer à excel qu'il doit travailler sur le nouveau classeur qu'il vient de créer.

Merci pour votre aide
Bonnes fêtes
Kiff

Private Sub CommandButton2_Click()

Sheets("liste nominative sorties").Range("a5:i107").Copy

Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Windows("bdd4V2.xls").Activate
Sheets("Tableau croisé Sorties").Select
ActiveSheet.PivotTables("sortie").PivotSelect "", xlDataAndLabel, True
Selection.Copy
Windows("Classeur97").Activate
Sheets("Feuil2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Columns("A:A").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("E:E").ColumnWidth = 16.57
Columns("C:C").ColumnWidth = 12
Columns("B:B").ColumnWidth = 15.43
Range("A1").Select
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "Liste nominative effectifs"
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "Tableau croisé sorties"


End Sub

 

[Pierrot93]

Re : Problème code VBA

Re

autre solution pour créer un classeur de 10 feuilles :

Dim nbf As Byte, nf As Byte, wb As Workbook
nbf = Application.SheetsInNewWorkbook
nf = 10
Application.SheetsInNewWorkbook = nf
Set wb = Workbooks.Add
Application.SheetsInNewWorkbook = nbf

@+

 

[kiff77]

Re : Problème code VBA

re,

Merci à tous ça marche nikel 😀

bonne fin de journée
A+
Kiff