Discussion :

[Yann_ICCA]

Bonjour à tous,

J'ai un fichier de données Nom.xlsm dans un dossier A et une macro qui en extrait des données pour les placer dans un autre fichier que je souhaite enregistrer dans un sous dossier B du dossier d'origine.
Que je crée un nouveau fichier ou ouvre un dossier cible se trouvant dans le même dossier et en utilisant la fonction :
ActiveWorkbook.SaveAs Filename:=nom_fichier,FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Le ficher est enregistré dans "Mes documents".
Le dossier A sera à terme stocké sur un Drive pour être utilisables par plusieurs personnes (pas toujours très douées en informatique) et je voudrais que l'enregistrement se fasse dans le sous-dossier B pour leur éviter d'avoir à aller le charcher.

Qui peut me donner une solution élégante.
Merci d'avance.

[Abed_H]

Bonsoir;

Code :

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

ActiveWorkbook.SaveAs Filename:="C:\B\NomDuFichier.xlsm", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

[Yann_ICCA]

Merci pour cette réponse que je vais essayer dès que possible mais j'ai un doute sur sa validité dans le cas de dossier sur un Drive du le chemin dépend de l'utilisateur. Je ferai l'essai avec deux ordinateurs me permettant d'avoir des noms d'utilisateurs différents.

[kiki29]

Salut, à adapter à ton contexte

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
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
 
Sub Tst()
Dim sChemin As String, sDossier As String
    sDossier = ThisWorkbook.Path & "\" & "B"
    CreationDossier sDossier
    sChemin = sDossier & "\" & "Essai.xlsm"
    ThisWorkbook.SaveAs Filename:=sChemin , FileFormat:=52
End Sub
 
Private Function CreationDossier(ByVal sDossier As String) As Long
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function

[Yann_ICCA]

Comme le sous-dossier visé existe déjà dans le dossier source,je n'ai eu qu'à utiliser quelques lignes de ta proposition :

Code :

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

1
2
3
4
5
Dim sChemin As String, sDossier As String
    sDossier = ThisWorkbook.Path & "\" & "(nom du sous-dossier)"
    nom_fichier = sDossier & "\" & "(nom du fichier)"
    ActiveWorkbook.SaveAs Filename:=nom_fichier _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

et j'ai obtenu exactement le résultat recherché. Un grand merci