Modification code pour Creation feuille

Option Explicit

Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
 
' Pour valeur retournée dans Rep
' Voir http://msdn.microsoft.com/en-us/library/bb762131(VS.85).aspx
' et   http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx
Private Sub CreationDossier(sDossier As String)
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Sub

Sub Test()
Dim sDossier As String
    sDossier = "D:\repA\repB\repC\repD\repE\repF"
    CreationDossier sDossier
End Sub

Worksheets("Sheet1").Range("A1:D4").Copy Worksheets("Sheet2").Range("Z5")

On Error Resume Next
MkDir "D:\repA\repB\repC\repD\repE\repF"
On Error GoTo 0

Range("A2").Value = Range("A2").Text

Sub Test()
Dim sDossier As String
    sDossier = "D:\repA\repB\repC\repD\repE\repF"
    CreationDossier sDossier
 
   [COLOR=darkgreen]'A partir de là :[/COLOR]
[COLOR=darkgreen]  'Exporter la feuille "[COLOR=black]INDEX_NUMERO[/COLOR]" dans le dossier crée ci-dessus[/COLOR]
[COLOR=darkgreen]  'Exporter les valeurs pas la formule.[/COLOR]
[COLOR=darkgreen]  'Si le fichier éxiste déjà, l'écraser sans demander la confirmation[/COLOR]
 
 
End Sub