Quitter et Enregistrer sous

[toune21]

Bonjour à tous,

Meilleurs voeux pour cette nouvelle 2013.

J'ai cette macro qui fonctionne très bien sur mon micro,

Sub Quitter()
' Quitter Macro
' MML 29 Janvier 2012
'
    ChDir "C:\Users\Madeleine\Desktop\SOMECAF\Michel - 2013"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Madeleine\Desktop\SOMECAF\Michel - 2013\Preparation Saisie.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        ActiveWorkbook.Close
    End Sub

mais voilà je dois l'installer sur d'autres micro, est-il possible d'enregistrer le fichier "Preparation Saisie.xlsm" directement sans passer par la modification manuelle de :
C:\Users\Madeleine\Desktop\SOMECAF\Michel - 2013.

Les autres micro non pas (évidement) le même Users

Si vous avez une réponse elle me sera utile pour d'autres fichiers.
Par avance je vous remercie.
Cordialement
MM

 

[camarchepas]

Re : Quitter et Enregistrer sous

Bonjour Toune,
Voici une solution utilisant une fonction.
et pour attaquer la fonction il suffit de lancer tes

Function LieuMesDoc() As String
'Récupération du chemin de mes documents
Dim WshShell As Object
'
Set WshShell = CreateObject("WScript.Shell")
 LieuMesDoc = WshShell.SpecialFolders("MyDocuments")
Set WshShell = Nothing
End Function

Sub tes()
u = LieuMesDoc
msgbox "Chemin de mes documents " & u
End Sub

 

[toune21]

Re : Quitter et Enregistrer sous

Bonjour Camarchepas,

Voilà ce qu'il me met
Chemin de mes documents C:\Users\Madeleine\Documents , et le bouton OK
Mais mon fichier se trouve dans
bureau\SOMECAF\Michel - 2013\
en fait il n'a pas trouvé ou se trouvait mon fichier.
Merci

 

[Pierrot93]

Re : Quitter et Enregistrer sous

Bonjour,

pour récupérer le chemin du bureau de l'utilisateur windows :

Dim chemin As String
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")

bon après midi
@+

 

[camarchepas]

Re : Quitter et Enregistrer sous

Salutation Pierrot

Et encore ceci qui est possible,

si tu veux juste le chemin actuel du fichier :

Chemin = thisworkbook.path

 

[toune21]

Re : Quitter et Enregistrer sous

Dim chemin As String
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")

@+

Bonjour Pierrot,
A quel endroit je mets ce code
Merci

 

[Pierrot93]

Re : Quitter et Enregistrer sous

Re,

peut être comme ceci :

Dim chemin As String
chemin = CreateObject("WScript.Shell").specialFolders("Desktop")
ActiveWorkbook.SaveAs Filename:= _
        chemin & "\SOMECAF\Michel - 2013\Preparation Saisie.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

 

[toune21]

Re : Quitter et Enregistrer sous

Re

Merci à tous deux.
Amicalement,