Vba

lokmanfr58 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention - 22 mars 2016 à 12:24

bonjour à tous
j'apprécirai beaucoup votre aide SVP

Sub RetriveFolder()
Dim thisMonthnumber As Integer
 Dim name As String
 Dim thisYear As Integer
 Dim thismonth As String
 Dim newdirectoryname As Variant
 
        thisMonthnumber = Month(Now)  'can write month(now) for the current month
       thisYear = Year(Now)
       name = MonthName(Month(Now), True)
         myfolder = "j:\top 2016\" & (name & thisYear)
        MsgBox ("the new folder name is" & "   " & name & "  " & thisYear)
    Fldr = Dir(myfolder, vbDirectory)
     If Len(Fldr) > 0 Then
     MsgBox (Fldr & "existe")
     Else
                         'If MsgBox("would like to create it", vbYesNo) = vbYes Then
                     MkDir (myfolder)
                     'End If
End If
    
 MsgBox ("new directory name is" & "  " & newdirectoryname)
 ActiveWorkbook.SaveAs Filename:="j:\top 2016\mars2016\" & Format(Now, "ddmmmyyyy h\hm\mss")
          'Application.Quit
        'Application.DisplayAlerts = True
End sub

but: enregistrer dans un dossier dont le nom est composé du mois et année en cours. si le dossier n'existe pas il faut le créer.
pb: mettre la variable "Fldr" dans le chemin de saveas ne marche pas.
par contre mettre "mars2016", qui est le nom du dossier créé ça marche

Afficher la suite

A voir également:

Vba
Excel compter cellule couleur sans vba - Guide
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
Dépassement de capacité vba ✓ - Forum Excel

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Si existe pas: Fldr="", si existe: Fldr="nom du repertoire"

dans les deux cas il faut le chemin complet: myfolder

pensez a mettre une extension a votre ficher de sauvegarde

Sub RetriveFolder()
    Dim thisMonthnumber As Integer
    Dim name As String
    Dim thisYear As Integer
    Dim thismonth As String
    Dim newdirectoryname As Variant
 
    thisMonthnumber = Month(Now)  'can write month(now) for the current month
    thisYear = Year(Now)
    name = MonthName(Month(Now), True)
    myfolder = "j:\top 2016\" & (name & thisYear)
    MsgBox ("the new folder name is" & "   " & name & "  " & thisYear)
    Fldr = Dir(myfolder, vbDirectory)
    If Len(Fldr) > 0 Then
        MsgBox (Fldr & " existe")
    Else
        MkDir (myfolder)
        MsgBox ("new directory name is" & "  " & myfolder)
    End If
    
    ActiveWorkbook.SaveAs Filename:=myfolder & "\" & Format(Now, "ddmmmyyyy h\hm\mss")
    'Application.Quit
    'Application.DisplayAlerts = True
End Sub

lokmanfr58 Messages postés 2 Date d'inscription Statut Membre Dernière intervention

bonjour,

merci pour ton aide.
je voulais savoir interpréter "\" dans la commande SaveAs Filename:=

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713 > lokmanfr58 Messages postés 2 Date d'inscription Statut Membre Dernière intervention

Re
chemin complet d'un fichier
Disque:\repertoire\sous-repertoire\nomdefichier.extension

myfolder ="Disque:\repertoire\sous-repertoire"

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires