philh2008
Messages postés7Date d'inscriptionjeudi 19 février 2015StatutMembreDernière intervention22 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