Discussion :

[HIGGUINS]

Bonjour,

J'ai un petit souci que je n'arrive pas à résoudre depuis hier. Je tourne en rond.

Je souhaiterai à partir de mon fichier de base devis.xlsm effectuer un enregistrement automatique dans le dossier exemple tuto en le nommant tuto 12 05 78 (Ces données sont inscrite dans ma feuille de calcul).

Création du dossier + enregistrement fichier c'est ok, cela fonction. Mais par contre si le dossier est déjà créer et que je souhaite enregistrer tuto 12 06 120 dans le dossier tuto il me renvoi une erreur (en jaune sur formule).

Voici le dernier code que j'ai essayé d'utiliser :

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
Private Sub enregistrement_click()
 
Dim Chemin$, mondossier$, Fichier$
 
' Nom du chemin
Chemin = "C:\Documents and Settings\Poste1\Bureau\DEVIS JL\Devis\"
 
'Nom du dossier
mondossier = Range("I6").Value
 
'teste de la présence du dossier
If Dir(Chemin & mondossier) = "" Then MkDir Chemin & mondossier
 
'nom du fichier
Fichier = Range("I6") & " " & Format(Range("E2"), "00") & " " & Format(Range("F2"), "00") & " " & Format(Range("G2"), "000") & " " & Format(Range("H2"), "000") & ".xlsm"
 
ActiveWorkbook.SaveAs Chemin & mondossier & "\" & Fichier

J'espère que vous pourrez m'aider.

[jackborogar]

Je suppose que c'est l'erreur 1004 que tu as!!

Code :

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

1
2
3
4
If Err.Number = 1004 Then
If Dir(Chemin & mondossier) = "" Then MkDir Chemin & mondossier
End If
End If

Essayes ça

[kiki29]

Salut, pour la création du dossier

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
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
 
Option Explicit
 
Private Function CreationDossier(sDossier) As Long
Dim Rep As Long
    ' Pour valeur retournée par Rep
    '   Voir http://msdn.microsoft.com/en-us/library/bb762131(VS.85).aspx
    '   et   http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function
 
Sub Tst()
Dim sDossier As String
    sDossier = "C:\Essai1\Essai2\Essai3\Essai4\Essai5"
    CreationDossier sDossier
End Sub

[HIGGUINS]

Bonjour,

Non c'est cette erreur que j'ai :
"erreur d'exécution "75"
Erreur d'accès chemin/fichier

[kiki29]

Re, une autre façon, encore plus succincte, de créer un dossier

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
Sub CreationDossier_Shell()
Dim sDossier As String
Dim sChaine As String
    sDossier = "C:\Essai1\Essai2\Essai3\Essai4\Essai5"
    sChaine = Environ("comspec") & " /c mkdir " & sDossier
    Shell sChaine, 0
End Sub

[HIGGUINS]

Bonjour kiki29,

J'ai essayé avec le code simplifié ça marche mais maintenant je me retrouve avec le souci inverse. Si le dossier n'est pas créer, il beug. LOL

[kiki29]

Re, débug en regardant le contenu de la chaine de création du dossier