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