Discussion :

[Liloo14]

Bonjour à tous,
J'ai une petite question sur le chemin d'accès au répertoire où je veux enrengistrer un fichier.
J'ai écris le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub NewYear()
'
' Macro enregistrée le 30/10/2012 par Lolo
'
 
'
    ChDir _
        "C:\Users\Lolo\Desktop\Programme\Identification"
    ActiveWorkbook.SaveAs Filename:=Format(Cells(1, 1), "yyyy") _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Application.Quit
End Sub

Ce dernier me permet de créer une copie de mon programme en lui donnant le nom de l'année et en l'enregistrant dans le répertoire IDENTIFICATION.
Si je donne mon programme à quelqu'un,ce dernier le mettra dans le répertoire de son choix sur son ordi. Par conséquent, le chemin d'accès correspondant à mon ordi, soi "C:\Users\Lolo\Desktop\Programme\Identification" ne sera plus bon.


Ma question est donc la suivante : y a-t-il une façon de faire pour que ma macro enregistre ma copie dans le répertoire IDENTIFICATION quelque soit l'endroit où ce dernier se trouve sur le disque dur?
Par exemple si je déplace le répertoire IDENTIFICATION qui contient le programme dans "C:\Users\Lolo" ?

Merci à ceux qui se pencheront sur mon problème.

Laurent

[tedo01]

Bonjour,
La propriété ActiveWorkbook.Path donne l'emplacement du classeur, il est donc possible d'utiliser cet emplacement pour faire la sauvegarde en remplaçant

Code :

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

1
2
 ChDir _
        "C:\Users\Lolo\Desktop\Programme\Identification"

par

Code :

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

ChDir Application.Path

[Liloo14]

Merci pour ton aide, c'est très sympa.
J'ai juste du remplacer Application par ActiveWorbbok, sinon ça enregistre mon fichier dans le répertoire d'installation d'excel -))

Encore merci à toi