Discussion :

[m0urad]

Rebonjour,

Je souhaite, à l'aide d'une macro, enregistrez mon classeur que je vien de remplir de données avec comme nom le texte contenue dans une cellule.
Je précise que mon classeur est à l'origine un tableau avec une colonne à remplir et une colonne avec des catégories précise, j'aimerai qu'apres avoir sauvegarder mon classeur sous un autre nom, la macro ferme le document sans enregistrez les modifications comme ca j'aurai toujours mon formulaire pret a remplir.
Cela est-il possible ?

Dans la Faq j'ai trouvé ceci :

Code :

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

1
2
3
4
5
Dim Fichier As String
 
Fichier = "C:\Dossier\NomClasseur.xls"
ThisWorkbook.SaveAs Fichier
ThisWorkbook.Close SaveChanges:=False

[mercatog]

Code :

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

1
2
ActiveWorkbook.SaveCopyAs Range("A1").Value & ".xls"
ActiveWorkbook.Close SaveChanges:=False

et pour indiquer le chemin (dans le même dossier)

Code :

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

1
2
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & Range("A1").Value & ".xls" 'Dans A1 le nom du fichier (sans chemin ni extension)
ActiveWorkbook.Close SaveChanges:=False

[kiki29]

Salut, peut-être qqch comme :

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
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
 
Sub Tst()
    Sauver Range("NomFichier") & ".xls"
End Sub
 
Private Sub Sauver(sNomFichier As String)
Dim sFichier As String, sDossier As String
    sDossier = "C:\Dossier"
    CreationDossier sDossier
 
    sFichier = sDossier & "\" & sNomFichier
    ThisWorkbook.SaveCopyAs sFichier
    ThisWorkbook.Close SaveChanges:=False
End Sub
 
Private Sub CreationDossier(sDossier As String)
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Sub

[m0urad]

Merci pour votre aide

Code :

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

1
2
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & Range("A1").Value & ".xls" 'Dans A1 le nom du fichier (sans chemin ni extension)
ActiveWorkbook.Close SaveChanges:=False

Comment rajouter un chemin spécifique pour l'enregistrement ??