re... au final ca ne marche pas trop , c'est peut etre du à un manque de precision de ma part
au depart j'ai le code suivant
Sub a()
Dim Ws As Worksheet
Dim WbkD As Workbook
Application.ScreenUpdating = False
With ThisWorkbook
For Each Ws In .Sheets
If Ws.Range("H7") <> "" Then
If WbkD Is Nothing Then
Ws.Copy
Set WbkD = ActiveWorkbook
Else
Ws.Copy after:=WbkD.Sheets(WbkD.Sheets.Count)
End If
ActiveSheet.DrawingObjects.Delete
ActiveSheet.Name = Ws.Range("H7")
Ws.Range("H7").ClearContents
End If
Next Ws
End With
If Not WbkD Is Nothing Then
With WbkD
.SaveAs "C:\Users\ROCKET\Desktop\Nouveau dossier (8)\Extraction de feuille.xls"
' Ma sauvegarde : Evite d'avoir le même nom
' .SaveAs ThisWorkbook.Path & "\Extraction de feuille le " & Format(Now, "yyyy mm dd hhmmss") & ".xls"
.Close
End With
Else
MsgBox "Pas de feuilles à copier"
End If
End Sub
je voudrai inclure dans ce code une ligne de comptage des feuilles du classeur crée qui s'appelle "Extraction de feuille " et qui me renverrai cette valeur dans un classeur nommé A , feuil2 ,cellule C33
j'ai essayé d'adapter ta précedente réponse à ce code sans succès
merci pour toute intervention