Sélectionner un autre classeur ouvert pour exécuter l VBA

Bonjour,

Je vous explique d'abord ce que je suis entrain de faire:

J'ai un fichier excel qui doit rester le même. Je copie une feuille de ce fichier excel dans un autre classeur, puis je renomme mon fichier excel et je voudrais éliminer toutes les lignes où il y a un 0.

Je réussis à copier la feuille et renommer le nouveau classeur, par contre le code qui me supprime les lignes où il y a des 0, l'exécute sur mon premier classeur. Alors que moi je veux qui les supprime dans le nouveau.

Donc j'ai voulu activer ou sélectionner le nouveau classeur pour pouvoir exécuter le code qui supprime les lignes où il y a les 0, mais ça ne marche pas.

NB: Je suis qu'un débutant de VBA.

SVP j'ai besoin d'aide.

Je vous montre mon code:

Sub export()

'=> Copier et coller la feuille des risques identifiés

Workbooks("Outil_de_pilotage_des_risques_V3.xlsm").Worksheets("Risques identifiés postes").Copy

'=> Nommer et séléctionner le nouveau classeur

ActiveWorkbook.SaveAs Filename:="Risques identifiés projet"

ActiveWorkbook.SaveAs FileFormat:=52

Workbooks("Risques identifiés projet.xlsm").Worksheets("Risques identifiés postes").Select

'=> Suppression des lignes valeurs nulles

Dim i As Long

Application.ScreenUpdating = False

For i = Range("A65536").End(xlUp).Row To 1 Step -1

If Cells(i, 2) = 0 Then Rows(i).Delete

Next i

Application.ScreenUpdating = True

End Sub[/b]

Bonjour

A tester

Sub export()
Dim i As Long

  Application.ScreenUpdating = False

  '=> Copier et coller la feuille des risques identifiés
  Workbooks("Outil_de_pilotage_des_risques_V3.xlsm").Worksheets("Risques identifiés postes").Copy

  With ActiveWorkbook
    With .Sheets(1)
      For i = .Range("A65536").End(xlUp).Row To 1 Step -1
        If .Cells(i, 2) = 0 Then .Rows(i).Delete
      Next i
    End With
    '=> Nommer et séléctionner le nouveau classeur
    .SaveAs Filename:="Risques identifiés projet", FileFormat:=52
    '.Close
  End With

  Workbooks("Risques identifiés projet.xlsm").Worksheets("Risques identifiés postes").Select

End Sub

OooooH merci beaucoup

ça marche très bien.

Je suis très content

Je vous souhaite une très bonne journée