Microsoft 365 Créer un dossier avec un titre dynamique

A-F

XLDnaute Nouveau
Bonjour!

Je souhaits créer un dossier ou je copie mes donnée partant une TDB par type d'acte.
Chaque mois je dois créer un nouveau dossier avec comme nom le mois et l’année ( Janvier_2022) et à l’intérieur les fichiers par acte (A01, A02, …).
Le nom de dossier le les fichiers dont dynamiques.

Mais je ne sais pas comment je peux créer un dossier avec le titre dynamique.
Voici un début de code que j'ai fait mais qui ne marche pas :

VB:
Function ClasseursExport()
  
     Dim classeur As Workbook
    Dim LaFeuille As Worksheet
    Dim C As Range
    
    
    
    Set classeur = Workbooks.Add
     With classeur
     .Title = "fichier_import_A1"
     .Subject = "Import"
     .SaveAs Filename:="Z:\NECESSAIRES CONSEILLERS ENERGIES\SARE\Traitement\Export\" & Month(Date) & "-" & Year(Date) & "\fichier_import_A1" & ".xls"
    End With

    
    
End Function
 

Dranreb

XLDnaute Barbatruc
Bonsoir.
Essayez comme ça :
VB:
Function ClasseursExport() As Boolean
   Dim Dossier As String, Classeur As Workbook
   Dossier = "Z:\NECESSAIRES CONSEILLERS ENERGIES\SARE\Traitement\Export\" & Format(Date, "mm-yyyy")
   Set Classeur = Workbooks.Add
   On Error Resume Next
   ChDir Dossier
   If Err Then Err.Clear: MkDir Dossier: ChDir Dossier
   With Classeur
      .Title = "fichier_import_A1"
      .Subject = "Import"
      .SaveAs "fichier_import_A1.xls", FileFormat:=xlExcel8
      End With
   ClasseursExport = Err = 0
   End Function
 

A-F

XLDnaute Nouveau
Bonsoir.
Essayez comme ça :
VB:
Function ClasseursExport() As Boolean
   Dim Dossier As String, Classeur As Workbook
   Dossier = "Z:\NECESSAIRES CONSEILLERS ENERGIES\SARE\Traitement\Export\" & Format(Date, "mm-yyyy")
   Set Classeur = Workbooks.Add
   On Error Resume Next
   ChDir Dossier
   If Err Then Err.Clear: MkDir Dossier: ChDir Dossier
   With Classeur
      .Title = "fichier_import_A1"
      .Subject = "Import"
      .SaveAs "fichier_import_A1.xls", FileFormat:=xlExcel8
      End With
   ClasseursExport = Err = 0
   End Function
Bonjour;
Merci t'avoir arrêté sur ma problématique,
J'avais fait plutôt comme ca qui pour le moment marche ;-)
VB:
Function ClasseursExport()
  
 
    'identifier la feuille
    Set ws_data = Worksheets(1)
    
    'derniere ligne
    lstrw = ws_data.Cells(Rows.Count, 1).End(xlUp).Row

    
        chemin_dossier = "Z:\NECESSAIRES CONSEILLERS ENERGIES\SARE\Traitement\Export\" & Month(Date) & "-" & Year(Date) & "\"
        
        'vérifier existence du dossier
        If Dir(chemin_dossier, vbDirectory) <> vbNullString Then
            'dossier existe
        Else
            'créer le dossier
            MkDir (chemin_dossier)
        
            ' Save le fichier exporte
            Workbooks.Add.SaveAs Filename:=chemin_dossier & "fichier_import_A1"
            
            
          
        End If
        
end function

Je retinte par contre :
Code:
Format(Date, "mm-yyyy")
Merci ^^
 

Discussions similaires