VB Excel enregistrer un fichier

Version imprimable

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:

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

21/10/2015, 21h13
parmi

Bonjour,

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

Code:

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

Bonjour,

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

Code:

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

21/10/2015, 22h58
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()

Salut,

Code:

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:

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