Discussion :

[rom22950]

Bonjour à tous,

Je viens vers vous car je sens que je suis proche du but mais je rame pour trouver la solution définitive à mon problème.

Ici je souhaite extraire différentes feuilles d'un classeur excel (de 15 feuilles) et choisir ou les enregistrer en gardant comme base le nom de la feuille puis la date qui aura été préalablement rentrée par l'utilisateur.

Ici je pense qu'il me manque une étape ou je dois d'abord créer un nouveau classeur et non juste enregistrer mais je n'en suis pas capable...

Voici mon code :

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
Sub Test()
 
    Dim chemin As String
    Dim objShell As Object, objFolder As Object, oFolderItem As Object
    Dim i As Byte
 
    Nom = InputBox("Entrer la date du l'arrêté comptable :")
 
    i = SAS
    Sheets(i).Select
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
    On Error GoTo Gesterr
 
    Set oFolderItem = objFolder.Items.Item
    chemin = oFolderItem.Path
    ActiveWorkbook.SaveAs Filename:=i & Nom & ".csv", FileFormat:=xlCSV
 
Gesterr::
 
End Sub

Voilà, j'espère avoir été clair dans mon explication, merci d'avance pour votre soutien!

[kiki29]

Salut, un exemple à élaguer dont tu pourras t'inspirer

[piotr76]

Bonjour

Il manque la copie de la feuille à enregistrer dans un nouveau classeur

Code :

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

1
2
3
4
Sheets("Ma_Feuille").Select
Sheets("Ma_feuille").Move
ActiveWorkbook.SaveAs Filename:="Nom_Complet_de_mon_fichier.csv", _
FileFormat:=xlCSV, CreateBackup:=False, Local:=True

(Le local, c'est pour avoir les points-virgule et non les virgules en séparateur)

Sinon il y a aussi Application.FileDialog pour choisir le répertoire
(Je travaille avec XL2007)
@+

[rom22950]

Bonjour,

Merci cela marche déjà beaucoup mieux, cependant encore un petit point, lorsque j'active la macro l'enregistrement ce fait automatiquement dans le répertoire P:/Mes Documents et je ne comprends pas pourquoi...

Une idée?

Voici mon code retravaillé :

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
Sub Test()
 
    Dim chemin As String
    Dim objShell As Object, objFolder As Object, oFolderItem As Object
 
 
    Nom = InputBox("Entrer la date du mois en cours au format mmyyyy :")
 
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
    On Error GoTo Gesterr
 
    Set oFolderItem = objFolder.Items.Item
    chemin = oFolderItem.Path
    Sheets("LOC").Select
    Sheets("LOC").Copy
    ActiveWorkbook.SaveAs Filename:="LOC" & Nom & ".csv",_
    FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    ActiveWorkbook.Close
 
Gesterr::
 
End Sub

[SfJ5Rpw8]

bonjour,

tu utilise une variable chemin dans laquelle tu stocke le répertoire de destination ... mais tu oublie ensuite d'utiliser cette variable dans le calcul du nom de fichier (fileName) ...

[rom22950]

Il faut le faire dans ce genre la ?

Ca ne marche toujours pas même en faisant intervenir la variable chemin en question..

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
Sub Test()
 
    Dim chemin As String
    Dim objShell As Object, objFolder As Object, oFolderItem As Object
 
 
    Nom = InputBox("Entrer la date du mois en cours au format mmyyyy :")
 
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
    On Error GoTo Gesterr
 
    Set oFolderItem = objFolder.Items.Item
    chemin = oFolderItem.Path
    Sheets("LOC").Select
    Sheets("LOC").Copy
    ActiveWorkbook.SaveAs Filename:= _
    chemin & "LOC" & Nom & ".csv", _
    FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    ActiveWorkbook.Close
 
Gesterr::
 
End Sub