Enregistrer un fichier excel dans un autre dossier Sous Mac OS X

Résolu/Fermé
Robindjeb - Modifié par Whismeril le 22/10/2015 à 16:03
 Robindjeb - 22 oct. 2015 à 18:42
Bonjour,

Je suis archi débutant en Macro/VBA et tout ce qui va avec :-)

J'ai créé ma macro, et le bouton qui va avec, pour archiver une des feuilles de mon classeur dans un dossier bien précis de mon Mac.

L'archivage se fait nickel, MAIS au lieu d'enregistrer le fichier dans le dit dossier, le fichier est enregistré sur le bureau...

Comment faire ?

Ci-dessous la macro que j'utilise. Merci d'avance pour votre aide :

Sub Archiver()
'Archive Devis dans un autre fichier
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "\Users\reinstal\desktop\P Prod\Devis\"
nomfichier = ActiveSheet.Range("F6") & "_" & Range("A16") & extension
With ActiveWorkbook
    .ActiveSheet.DrawingObjects(1).Delete
    .SaveAs Filename:=nomfichier
    .Close
End With
End Sub


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ICI

Merci d'y penser dans tes prochains messages.



A voir également:

1 réponse

f894009 Messages postés 16754 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 5 décembre 2022 1 659
22 oct. 2015 à 17:13
Bonjour,

Mac chemin fichier, suivant votre Mac: Macintosh HD, voir le nom de votre dique et Utilisateur sera peut-etre User

.SaveAs "Macintosh HD: Utilisateurs: Votre_nom_d'utilisateur: Desktop: ron.xlsm", FileFormat: = 53
1
Salut F894009,
Ta réponse m'a fait réaliser que ce qui n'allait pas dans mon code c'était les \, que j'ai remplacés par des :

Du coup maintenant tout marche au poil !

Merci
0