XL pour MAC Vba - Macro enregistrer sous...

[ArnaudSi]

Bonjour,

J'essaye en vain d'exécuter une macro pour enregistrer un fichier sur un dossier en particulier.

Le défi ici consiste à ce que la macro enregistre le fichier sur un dossier précis ( dossier en réseau de type Dropbox ) sur chaque poste.

Est ce posible?

Merci.

Ci joint le code :

Sub Enregistrer_Fichiers()
Dim chemin As String, Fichier As String
With ThisWorkbook
nom = Environ("USER")
chemin = "Macintosh HD/Utilisateurs/" & nom & "/Synologydrive/Hello/Suivi/"
    With Sheets("Commande").Select
    Fichier = "Sauvegarde " & Range("B5").Value & " Ref " & Range("G5").Value & " Saisie le " & Format(Now(), "dd-mm-yyyy à Hh-Nn") & ".xls" 'Nom du fichier avec le nom du client
        ActiveWorkbook.SaveAs Filename:= _
        chemin & Fichier, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    End With
    Sheets("Calcul").Select
    MsgBox Fichier & (" a été sauvegardé dans le dossier.")
End With
End Sub

 

[job75]

Bonsoir ArnaudSi,

Ce n'est vraiment pas un défi d'enregistrer dans un dossier précis s'il existe...

Mais votre code ne va pas, remplacez ces 2 lignes :

With Sheets("Commande").Select
Fichier = "Sauvegarde " & Range("B5").Value & " Ref " & Range("G5").Value & " Saisie le " & Format(Now(), "dd-mm-yyyy à Hh-Nn") & ".xls" 'Nom du fichier avec le nom du client

par celles-ci :

With Sheets("Commande")
    Fichier = "Sauvegarde " & .Range("B5") & " Ref " & .Range("G5") & " Saisie le " & Format(Now, "dd-mm-yyyy à hh-mm")

Avec SaveAs le fichier sera enregistré en .xlsm, pour l'enregistrer en .xls il faut modifier le FileFormat.

A+

 

[job75]

Par ailleurs sur un PC Environ("USER") renvoie un texte vide.

Pour avoir le nom de l'utilisateur il faut Environ("USERNAME")

 

[ArnaudSi]

Bonjour Job57,

Merci pour votre réponse.

Une fenêtre m'indique :
Erreur d'exécution "1004" :
Vos modifications n'ont pas pu être enregistrées dans "Sauvegarde Ref Saisie le 13-11-2020 à 08-370" en raison d'une violation de partage. Essayez d'enregistrer vos modifications dans un fichier différents.

J'ai essayé de changer le chemin vers un dossier non partagé mais une autre erreur d'exécution 1004 apparait aussi.

Merci.

 

[job75]

C'est forcément le chemin qui n'est pas correct.

Vérifiez que le séparateur est bien le slash "/" en exécutant :

MsgBox Application.PathSeparator

 

[ArnaudSi]

Merci pour votre réponse.

Après quelques recherches je crois que le problème est que lorsque je demande le nom d'utilisateur je reçoit une réponse de type "nom" & " " & "prénom"; alors que la réponse attendu pour trouver le chemin est "nomprénom" (Il ne doit pas y avoir d'espace entre le nom et le prénom) .

MsgBox "Current user is " & Application.UserName

Mais pour obtenir ce résultat j'ai trouver une formule pour palier ce problème :

Function GetUserNameMac() As String
    Dim sMyScript As String

    sMyScript = "set userName to short user name of (system info)" & vbNewLine & "return userName"

    GetUserNameMac = MacScript(sMyScript)
End Function

Mais je ne sais pas comment l'intégrer dans la macro :

Sub Enregistrer_Fichiers()
Dim chemin As String, Fichier As String
With ThisWorkbook
nom = Environ("USER")
chemin = "Macintosh HD/Utilisateurs/" & nom & "/Synologydrive/Hello/Suivi/"
    With Sheets("Commande")
    Fichier = "Sauvegarde " & .Range("B5") & " Ref " & .Range("G5") & " Saisie le " & Format(Now, "dd-mm-yyyy à hh-mm")'Nom du fichier avec le nom du client
        ActiveWorkbook.SaveAs Filename:= _
        chemin & Fichier, _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    End With
    Sheets("Calcul").Select
    MsgBox Fichier & (" a été sauvegardé dans le dossier.")
End With
End Sub

 

[job75]

Il faut savoir que Application.UserName ce n'est pas la même chose que Environ("USERNAME")

 

[ArnaudSi]

Bonjour

J'ai trouvé une solution qui fonctionne :

Sub Enregistrer_Fichiersvs_2()
Dim chemin As String, Fichier As String
With ThisWorkbook
nom = Environ("USER")
chemin = "Macintosh HD/Utilisateurs/" & nom & "/Synologydrive/Hello/Suivi/"
    With Sheets("Commande")
    Fichier = "Sauvegarde " & .Range("B5") & " Ref " & .Range("G5") & " Saisie le " & Format(Now, "dd-mm-yyyy à hh-mm")
    ChDir "/Users/" & nom & "/SynologyDrive/Hello/Suivi/"
    ActiveWorkbook.SaveAs FileName:= _
         "/Users/" & nom & "/SynologyDrive/Hello/Suivi/" & Fichier & ".xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    End With
        Sheets("Calcul").Select
    MsgBox Fichier & (" a été sauvegardé dans le dossier.")
End With
End Sub

Merci encore,
À bientôt!