Discussion :

[panthera26]

bonjour ne sait pas comment faire

je cherche à créer un code en vba sur excel pour que mon bouton qui enregistre déjà un dossier et un sous dossier mette en même temps un fichier excel au nom d'une cellule dans ce répertoire qu'il créer
le fichier est créer et quand je l 'enregistre il le fait via une macro a son nom sous le répertoire qui va être créer ceci se fait en deux temps au lieu de un.

bdd>enregistrer>repertoire>sous répertoire
>ouverture>fichier>enregistrer>dossier

je vous en remercie de votre aide

[SfJ5Rpw8]

Bonjour,

je ne sais pas ce que tu entends par "enregistre déjà un dossier et un sous dossier "

montre le code qui effectue cet enregistrement ..

[patricktoulon]

Bonjour panthera26

voila une idée parmi tant d'autre

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
Sub reg()
'variable representant le chemin di dossier
dossier = "c:\mondossier"
nomfich = "classeurexmple.xls"
 
'teste si le dossier existe
If Dir(dossier) = "" Then
'si il n'existe pas on le créé
MkDir (dossier)
End If
ActiveWorkbook.SaveAs Filename:=dossier & "\" & nomfich, FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
 
' remplace "xlExcel8" par "xlExcelNormal" si tu travaill avec 2003
End Sub

[patricktoulon]

re
quand tu poste un code met le entre balise code pour plus de visibilité
sélectionne tout ton code et clique sur le symbole "#" dans les outils

ensuite je n'est pas lu tout le code mais
déjà si DC n'est pas une variable mais bien des caractères inclus dans le nom il faut les mettre entre guillemets

Code :

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

nomDossier = Nom &"DC"

je regarde ca de plus près
Au plaisir

oupss!!! je ne l'avais vu dans les contantes autant pour moi

cela dit pourquoi utiliser une ligne de commande
vba le fait tres bien ca

c'est quoi le environ(comspec) 'l'utilisateur windows????)

[panthera26]

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
Public Sub CréationRepDosSub()
Dim sH As Worksheet
Dim Chemin As String, Commande As String
Dim derligne As Integer, i As Integer
Dim nomDossier As String, Nom As String
 
Const DC As String = "Dossier"
Const pH As String = "Photos"
Const AU As String = "Autre"
Const pJ As String = "PiecesJointes"
 
    Application.ScreenUpdating = False
    Set sH = Worksheets("Feuil1")
    ChDrive "c"
    Chemin = "c:\users\laurent\desktop\immobilier\Mandats\Clients"
 
    With sH
        derligne = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 1 To derligne
            Nom = .Cells(i, 1) & "_" & .Cells(i, 2) & "\"
            nomDossier = Nom & DC
            Commande = Environ("comspec") & " /c mkdir " & Chemin & nomDossier
            Shell Commande, 0
            nomDossier = Nom & DC & "\" & pJ
            Commande = Environ("comspec") & " /c mkdir " & Chemin & nomDossier
            Shell Commande, 0
            nomDossier = Nom & "\" & DC & "\" & pH
            Commande = Environ("comspec") & " /c mkdir " & Chemin & nomDossier
            Shell Commande, 0
            nomDossier = Nom & "\" & DC & "\" & AU
            Commande = Environ("comspec") & " /c mkdir " & Chemin & nomDossier
            Shell Commande, 0
        Next
    End With
 
    Set sH = Nothing
End Sub

ce code marche après je peux le faire mais ce que je voudrais c'est de rajouter un fichier excel

[patricktoulon]

re
qu'entend tu par rajouter un fichier ????

[panthera26]

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
Public Sub CréationRepDosSub()
Dim sH As Worksheet
Dim Chemin As String, Commande As String
Dim derligne As Integer, i As Integer
Dim nomDossier As String, Nom As String
 
Const DC As String = "Dossier"
Const pH As String = "Photos"
Const AU As String = "Autre"
Const pJ As String = "PiecesJointes"
 
    Application.ScreenUpdating = False
    Set sH = Worksheets("Feuil1")
    ChDrive "c"
    Chemin = "c:\users\laurent\desktop\immobilier\Mandats\Clients"
 
    With sH
        derligne = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 1 To derligne
            Nom = .Cells(i, 1) & "_" & .Cells(i, 2) & "\"
            nomDossier = Nom & DC
            Commande = Environ("comspec") & " /c mkdir " & Chemin & nomDossier
            Shell Commande, 0
            nomDossier = Nom & DC & "\" & pJ
            Commande = Environ("comspec") & " /c mkdir " & Chemin & nomDossier
            Shell Commande, 0
            nomDossier = Nom & "\" & DC & "\" & pH
            Commande = Environ("comspec") & " /c mkdir " & Chemin & nomDossier
            Shell Commande, 0
            nomDossier = Nom & "\" & DC & "\" & AU
            Commande = Environ("comspec") & " /c mkdir " & Chemin & nomDossier
            Shell Commande, 0
        Next
    End With
 
    Set sH = Nothing
End Sub

après mon code donné en dessous je voudrez mettre en meme temps un fichier excel qui est enregistrer dans un répertoire x le nom du fichier est dans une cellule AN