Code vba - Enregistrement fichier

**panthera26** · 22/04/2013, 12h31

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

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** · 22/04/2013, 12h53

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

**panthera26** · 22/04/2013, 13h00

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

**patricktoulon** · 22/04/2013, 13h14

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** · 22/04/2013, 13h19

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** · 22/04/2013, 13h28

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

**panthera26** · 22/04/2013, 15h32

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

**SfJ5Rpw8** · 23/04/2013, 10h08

Bonjour,

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

essai d'être plus clair dans ta demande

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

la méthode saveas ...

**panthera26** · 12/05/2013, 18h49

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

Code :

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

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

**SfJ5Rpw8** · 12/05/2013, 18h57

Bonjour,

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 ?

**panthera26** · 12/05/2013, 19h48

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
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.....

Envoyé par patricktoulon

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

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

**SfJ5Rpw8** · 12/05/2013, 20h20

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 ...

**panthera26** · 12/05/2013, 20h33

en fait le répertoire client_ denomé dans la destination change à chaque fois

**SfJ5Rpw8** · 12/05/2013, 20h37

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)

**panthera26** · 12/05/2013, 21h39

"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

Code vba - Enregistrement fichier

Macros et VBA Excel

Discussions similaires

Partager

Partager