Discussion :

[challe1976]

Bonjour,

J'aimerais enregistrer un fichier Excel à l'aide d'un bouton.

J'aimerais remplacer ce qui est en gras par le contenu de la cellule E8, comment est-ce possible?

Un gros merci à celui qui m'aidera!!

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

Function CreerChemin(strPath As String) As String
    Dim fso
    Set fso = CreateObject("scripting.filesystemobject")
    
    If Len(strPath) = 0 Then
        strPath = ActiveWorkbook.Path & Format(Now, "YYYY-MM-DD") & "\"
    End If
    
    If Right(strPath, 1) <> "\" Then
        strPath = strPath & "\"
    End If
    
    If Not fso.FolderExists(strPath) Then
        fso.CreateFolder (strPath)
    End If
    Set fso = Nothing
    CreerChemin = strPath
End Function

[parmi]

Bonjour,

Si E8 est une partie du chemin, ceci peut-être ?

Code :

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

strPath = ActiveWorkbook.Path & "\" & Range("E8") & "\"

[challe1976]

Bonjour,

J'ai essayé ce code, et ça ne fonctionne toujours pas, il écrit la date du jour encore.

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
 
 
Function CreerChemin(strPath As String) As String
    Dim fso
    Set fso = CreateObject("scripting.filesystemobject")
 
    If Len(strPath) = 0 Then
        strPath = ActiveWorkbook.Path & feuille.Range("E8").Value & "\"
    End If
 
    If Right(strPath, 1) <> "\" Then
        strPath = strPath & "\"
    End If
 
    If Not fso.FolderExists(strPath) Then
        fso.CreateFolder (strPath)
    End If
    Set fso = Nothing
    CreerChemin = strPath
End Function

[parmi]

D'une part, que vaut feuille puisqu'on ne voit pas sa déclaration ?
Et qu'y a-t-il en E8 de cette... feuille ?
Finalement où écrit-il la date ? dans le nom du répertoire ?

ceci dit, si tu veux créer un sous-répertoire, chaque répertoire ou sous-répertoire doit exister auparavant
i.e. si tu veux créer c:\a\b\c, le répertoire c:\a\b doit exister
Par contre, je ne connais pas vraiment FileSystemObject... Peut-être est-il capable de créer une arborescence d'un seul appel (?)
J'ai habitude d'utiliser MkDir()

[kiki29]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long
 
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

Rajouter qqch du genre

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
Private Function NomDossierValide(sChaine As String) As Boolean
Dim i As Long
Const CaracInterdits As String = """*/:<>?[\]|"
    NomDossierValide = True
    If Len(sChaine) = 0 Then
        NomDossierValide = False
        Exit Function
    End If
    For i = 1 To Len(CaracInterdits)
        If InStr(sChaine, Mid$(CaracInterdits, i, 1)) > 0 Then
            NomDossierValide = False
            Exit Function
        End If
    Next i
End Function