Probleme avec les if

Fermé
philh2008 Messages postés 7 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 22 avril 2015 - Modifié par pijaku le 26/02/2015 à 13:16
Bonjour,
voila mon code ci-dessous,il crée les classeur comme je le souhaite. Mais ce que j'aimerais c'est que quand il créé le classeur il supprime la feuille qu'il vient de mettre qu'il en créer une autre avec le même nom que le classeur qu'il enregistre
puis une fois fini qu'il ferme le classeur et passe au suivant
Ensuite si le classeur existe il ne doit rien faire et passer au suivant et arriver au dernier le fermer
Sub nouveauclasseur()

Workbooks.Open ("C:\VBAPointeuse\porte101214.xlsx")

 'Compare la colonne H ET D
 
Derligne = Range("D1").End(xlDown).Row
Derligne1 = Range("H1").End(xlDown).Row

For I = 1 To Derligne
For j = 2 To Derligne1
'si on trouve une corespondance alors on enregiste
If Range("H" & j).Value = Range("D" & I).Value Then

Application.DisplayAlerts = False

 ActiveWorkbook.SaveAs Filename:="c:\VBAPointeuse" & "\" & Range("H" & j).Offset(0, -2).Value & Range("H" & j).Offset(0, -1).Value & (".xlsx")
 
  'si le fichier existe on l'ouvre
' ElseIf Dir("c:\VBAPointeuse" & "\" & Range("H" & j).Offset(0, -2).Value & Range("H" & j).Offset(0, -1).Value & (".xlsx")) <> "" Then
 ' Workbooks.Open Filename:="c:\VBAPointeuse" & "\" & Range("H" & j).Offset(0, -2).Value & Range("H" & j).Offset(0, -1).Value & (".xlsx")
 ' Sheets.Add
 ' Sheets("porte101214").Delete
    End If
 Next j
Next I
End Sub