Discussion :

[8e8eClo]

Bonjour,

J'ai une macro qui créée un nouveau dossier (ayant pour nom la valeur d'une cellule).
Je n'arrive pas à créer un dossier à l'intérieur de ce nouveau dossier (ayant pour nom "test").

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub NouveauDossier
MkDir "P:\2069\" & Range("A12").Value
MkDir "P:\2069\***le nouveau dossier****\test

Quelqu'un peut il m'éclairer ?

Merci

[JoeJoeH]

Bonjour, à essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub NouveauDossier
MkDir "P:\2069\" & Range("A12").Value
MkDir "P:\2069\" & range("A12").Value & "\test"

Cordialement,
Jordan

[8e8eClo]

Ah bah ouais tout simplement.

Par contre je n'arrive pas à enregistrer un fichier copier dans le nouveau dossier créer.
Je copie le fichier, je le renomme avec la valeur d'une cellule et je bloque après.

[JoeJoeH]

Rebonjour, à essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Sauvegarder une copie de la feuille actuelle :
Me.Application.ActiveWorkbook.SaveCopyAs("P:\2069\" & range("A12").Value & "\test\Nomfichier.xls")
 
'Sauvegarder une copie du fichier entier : 
Me.SaveCopyAs("P:\2069\" & range("A12").Value & "\test\Nomfichier.xls")

Cordialement,
Jordan

[8e8eClo]

bonjour,

J'avais essayé quelque chose de quasi similaire mais message erreur 1004 "fichier inaccessible".

De même avec le code fourni.

[JoeJoeH]

Qu'en est-il de cela, c'est une fonction à part entière à appeler dans le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub SaveWorkbookAsNewFile()
    Dim ActSheet As Worksheet
    Dim ActBook As Workbook
    Dim CurrentFile As String
 
    Application.ScreenUpdating = False
 
    CurrentFile = ThisWorkbook.FullName
 
        ActiveWorkbook.SaveAs Filename:= "P:\2069\" & range("A12").Value & "\test\Nomfichier.xls", _
            FileFormat:=xlNormal, _
            Password:="", _
            WriteResPassword:="", _
            ReadOnlyRecommended:=False, _
            CreateBackup:=False
 
        Set ActBook = ActiveWorkbook
        Workbooks.Open CurrentFile
        ActBook.Close
    End If
 
    Application.ScreenUpdating = True
End Sub

Cordialement,
Jordan