Discussion :

[wkrystof]

Bonjour à tous,

J'ai un peu de mal à trouver une solution à mon petit problème. J'essaie de faire une macro qui enregistrera le fichier sous un nom précis, dans un dossier précis (qui peut-être créé en même temps), mais sur le bureau et quelque soit le nom du pc.
Et c'est là, que j'ai du mal, car dans le chemin je ne sais pas comment dire : "C:\Users\..(quelque soit le nom du pc ou de l'utilisateur).....\Desktop\Suivi Castle.xlsx"

J'ai essayé cela mais ça ne va pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Macro1()
 
' Macro1 Macro
' Créer le dossier
Dim Dossier As String, Fichier As String, Chemin As String
Dossier = "Suivi agences"
MkDir "C:\Users\" & Dossier
 
' Enregistre le fichier
Fichier = "Suivi Castle"
Chemin = "C:\Users\" & Dossier
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & Fichier & ".xlsx"
 
End Sub

Merci d'avance

[pijaku]

Bonjour,

Code trouvé : ==ICI==

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
Option Explicit
 
Sub CheminRepertoiresSpeciaux()
    'Testé avec Excel2002 & WinXp & Excel2010
    Const Cible = &H10 'Desktop
    Dim objShell As Object
    Dim objFolder As Object, objFolderItem As Object
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(Cible)
    Set objFolderItem = objFolder.Self
 
    MsgBox objFolderItem.Path
 
End Sub

[joe.levrai]

Bonjour,

ceci fonctionne également

Code :

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

Debug.Print CreateObject("WScript.Shell").SpecialFolders("Desktop")

on obtient le chemin vers le bureau

[RyuAutodidacte]

Bonjour Joe,

j'avais vu cette façon d'écrire le code afin d'avoir accès au bureau; court et pratique =>

[wkrystof]

Merci à tous pour vos retours, voici le code définitif

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
Sub Macrotest()
'Détermine le chemin
Const Cible = &H10 'Desktop
    Dim objShell As Object
    Dim objFolder As Object, objFolderItem As Object
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace(Cible)
    Set objFolderItem = objFolder.Self
    Chemin = objFolderItem.Path
'Enregistre le fichier
Fichier = "Suivi Castelnau"
ActiveWorkbook.SaveAs Filename:=Chemin & "\" & Fichier & ".xls"
 
End Sub

Par contre, je n'ai pas su me servir de ce code

Code :

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

Debug.Print CreateObject("WScript.Shell").SpecialFolders("Desktop")

[Invité]

Bonjour,

Code :

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

 Environ("UserProfile") & "\Desktop"

[joe.levrai]

Bonjour,

si le dossier est mappé "Bureau" au lieu de Desktop, construire le chemin via Environ() en y ajoutant /desktop ne va pas fonctionner ? Si ?

@wkrystof

ma ligne de code ne faisait qu'afficher dans la fenêtre d'execution le chemin

Code :

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

Chemin = CreateObject("WScript.Shell").SpecialFolders("Desktop")

Là il est placé dans la variable Chemin pour utilisation

[Invité]

Bonjour,

Effectivement si notre ami est sous win xp.

Au moins il n'aura pas de problème entre win32 et win64!

Si son profile est mappé sur un serveur ce que j'ai mis plus haut fonctionne sauf sur xp!