Code vba - Enregistrement fichier

Version imprimable

22/04/2013, 12h31
panthera26

Code vba - Enregistrement fichier

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
22/04/2013, 12h39
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 ..

Bonjour panthera26

voila une idée parmi tant d'autre

Code:

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

Code:

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

22/04/2013, 13h14
patricktoulon

re

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:

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????)

Code:

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

22/04/2013, 13h28
patricktoulon

re

re
qu'entend tu par rajouter un fichier ????
22/04/2013, 15h32
panthera26

1 pièce(s) jointe(s)

ce code creer un repertoire et des sous repertoires
et
je cherche la suite du code qui va me permettre d'enregistrer en fait un fichier excel dans ce répertoire
a chaque fois que le bouton sera activé à chaque client renommé suivant la cellule AN

creer le repertoire client1>sous rep>dossier > 0000001.XLS un fichier exel
repertoire client2>sous rep>dossier > 0000002.XLS
ect....
excel x>renommer 000000.XLS

nettoyage peut être nécessaire mais ce doc marche avec plusieurs liaison de dossier excel
23/04/2013, 10h08
SfJ5Rpw8

Bonjour,

la pièce joint ne vas pas nous servir à te répondre ..

essai d'être plus clair dans ta demande

Citation:

Je cherche la suite du code qui va me permettre d'enregistrer en fait un fichier excel dans ce répertoire

de quel fichier excel parle tu ? comment est-il créé ?... pour sauver un fichier excel voir aide en ligne :f1: la méthode saveas ...

bonjour que faut il pour etre plus clair dans ma demande car j'ai rajouter
Code:

1 2 3 4 5 Set fso = CreateObject("Scripting.FileSystemObject") Src = "c:\users\laurent\desktop\immobilier\Mandats\" Dest = "c:\users\laurent\desktop\immobilier\Mandats\client" Fich$ = "plan.xls" fso.CopyFile Src & Fich, Dest & Fich
donc ca copier le fchier mais pas dans le bon répertoire suite du code au dessus

12/05/2013, 18h57
SfJ5Rpw8

Bonjour,

Citation:

Envoyé par panthera26

...

donc ca copier le fchier mais pas dans le bon répertoire suite du code au dessus

pourquoi ne pas nous dire ou le fichier est copié ? ne manque-t-il pas un "/" dans ton répertoire ?

Code:

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
39
40
41
42
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
Dim fso As Object, Src$, Dest$, Fich$
 
Const DC As String = "Dossier"
Const PH As String = "Photos"
Const AU As String = "Autre"
Const PJ As String = "PiecesJointes"
Dim Fichier As String
    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
  Set fso = CreateObject("Scripting.FileSystemObject")
  Src = "c:\users\laurent\desktop\immobilier\Mandats\"
  Dest = "c:\users\laurent\desktop\immobilier\Mandats\Clients_\Dossier\PiecesJointes\"
  Fich$ = "plan.xls"
  fso.CopyFile Src & Fich, Dest & Fich
  End With
 
    Set sH = Nothing
End Sub

Voila le code general

le début creer le repertoire et les sous repertoires
a partir de set fso il creer un fichier excel juste dans le repertoires client mais il le fait pas dans client1 client2 ect.....

Citation:

Envoyé par patricktoulon

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

copier un fichier excel deja creer dans chaque repertoire que la macro creer

12/05/2013, 20h20
SfJ5Rpw8

Il un appel à fileCopy par désiré ..
Comment copier un fichier ?

à utiliser Fso .. tu devrais t'en servir pour créer tes répertoires plutôt qu'utiliser tes appels à cmd.exe :

http://vb.developpez.com/faqvbs/?pag...erArborescence

Bien évidement pour toutes ces commandes tu n'as besoin que d'un seul objet Fso .. pour créer tes répertoires et copier tous tes fichiers ...
12/05/2013, 20h33
panthera26

repertoire

en fait le répertoire client_ denomé dans la destination change à chaque fois
12/05/2013, 20h37
SfJ5Rpw8

je veux bien que ton code marche mais appeler le shell pour créer un répertoire c'est comme prendre une pelle-mécanique pour remuer ton café ..

pour la copie je comprends pas ton problème ... relis :

Comment copier un fichier ?

et définit la source ( à priori toujours la même) et change la destination à chaque appels.. (un appel par client)
12/05/2013, 21h39
panthera26

"c:\users\laurent\desktop\immobilier\Mandats\Clients_\Dossier\PiecesJointes\"

EN FAIT LE REPERTOIRE JE NE LE CONNAIS PAS

IL SE RENOMME DANS LA CELLULE A DE LA FEUILLE 1