Pourriez-vous me dire ce qu'il faut mettre comme chemin d'accès pour qu'un
classeur s'enregistre par défaut dans le même répertoire que celui dans
lequel il a été ouvert ?
Actuellement, j'ai ceci (que je dois à ISteph) :
Sub SaveClasseurAsTer()
Dim mypath As String
mypath = Application.GetSaveAsFilename("C:\Documents and
Settings\Jean-Pascal\Bureau\planning d'activité SVG " & _
Format(Now, "dd-mm-yy") & ".xls")
If mypath <> "Faux" Then
ActiveWorkbook.SaveCopyAs mypath
MsgBox "Enregistrement d'une copie sous " & mypath & " effectué"
Else
MsgBox "Annulation d'enregistrement"
End If
End Sub
Si j'enlève "C:\Documents and Settings\Jean-Pascal\Bureau\", le classeur
s'enregistre aussi sur le bureau, mais comme je ne suis pas sûr du chemin
d'accès du PC auquel il est destiné, je préfére qu'il reste au même endroit
que le fichier initial...
Pourriez-vous me dire ce qu'il faut mettre comme chemin d'accès pour qu'un classeur s'enregistre par défaut dans le même répertoire que celui dans lequel il a été ouvert ?
Actuellement, j'ai ceci (que je dois à ISteph) :
Sub SaveClasseurAsTer() Dim mypath As String
mypath = Application.GetSaveAsFilename("C:Documents and SettingsJean-PascalBureauplanning d'activité SVG " & _ Format(Now, "dd-mm-yy") & ".xls") If mypath <> "Faux" Then ActiveWorkbook.SaveCopyAs mypath MsgBox "Enregistrement d'une copie sous " & mypath & " effectué" Else MsgBox "Annulation d'enregistrement" End If End Sub
Si j'enlève "C:Documents and SettingsJean-PascalBureau", le classeur s'enregistre aussi sur le bureau, mais comme je ne suis pas sûr du chemin d'accès du PC auquel il est destiné, je préfére qu'il reste au même endroit que le fichier initial...
Pourriez-vous me dire ce qu'il faut mettre comme chemin d'accès pour
qu'un classeur s'enregistre par défaut dans le même répertoire que celui
dans lequel il a été ouvert ?
Actuellement, j'ai ceci (que je dois à ISteph) :
Sub SaveClasseurAsTer()
Dim mypath As String
mypath = Application.GetSaveAsFilename("C:Documents and
SettingsJean-PascalBureauplanning d'activité SVG " & _
Format(Now, "dd-mm-yy") & ".xls")
If mypath <> "Faux" Then
ActiveWorkbook.SaveCopyAs mypath
MsgBox "Enregistrement d'une copie sous " & mypath & " effectué"
Else
MsgBox "Annulation d'enregistrement"
End If
End Sub
Si j'enlève "C:Documents and SettingsJean-PascalBureau", le classeur
s'enregistre aussi sur le bureau, mais comme je ne suis pas sûr du
chemin d'accès du PC auquel il est destiné, je préfére qu'il reste au
même endroit que le fichier initial...
Pourriez-vous me dire ce qu'il faut mettre comme chemin d'accès pour qu'un classeur s'enregistre par défaut dans le même répertoire que celui dans lequel il a été ouvert ?
Actuellement, j'ai ceci (que je dois à ISteph) :
Sub SaveClasseurAsTer() Dim mypath As String
mypath = Application.GetSaveAsFilename("C:Documents and SettingsJean-PascalBureauplanning d'activité SVG " & _ Format(Now, "dd-mm-yy") & ".xls") If mypath <> "Faux" Then ActiveWorkbook.SaveCopyAs mypath MsgBox "Enregistrement d'une copie sous " & mypath & " effectué" Else MsgBox "Annulation d'enregistrement" End If End Sub
Si j'enlève "C:Documents and SettingsJean-PascalBureau", le classeur s'enregistre aussi sur le bureau, mais comme je ne suis pas sûr du chemin d'accès du PC auquel il est destiné, je préfére qu'il reste au même endroit que le fichier initial...
Pourriez-vous me dire ce qu'il faut mettre comme chemin d'accès pour qu'un classeur s'enregistre par défaut dans le même répertoire que celui dans lequel il a été ouvert ?
Actuellement, j'ai ceci (que je dois à ISteph) :
Sub SaveClasseurAsTer() Dim mypath As String
mypath = Application.GetSaveAsFilename("C:Documents and SettingsJean-PascalBureauplanning d'activité SVG " & _ Format(Now, "dd-mm-yy") & ".xls") If mypath <> "Faux" Then ActiveWorkbook.SaveCopyAs mypath MsgBox "Enregistrement d'une copie sous " & mypath & " effectué" Else MsgBox "Annulation d'enregistrement" End If End Sub
Si j'enlève "C:Documents and SettingsJean-PascalBureau", le classeur s'enregistre aussi sur le bureau, mais comme je ne suis pas sûr du chemin d'accès du PC auquel il est destiné, je préfére qu'il reste au même endroit que le fichier initial...
Pourriez-vous me dire ce qu'il faut mettre comme chemin d'accès pour
qu'un classeur s'enregistre par défaut dans le même répertoire que
celui dans lequel il a été ouvert ?
Actuellement, j'ai ceci (que je dois à ISteph) :
Sub SaveClasseurAsTer()
Dim mypath As String
mypath = Application.GetSaveAsFilename("C:Documents and
SettingsJean-PascalBureauplanning d'activité SVG " & _
Format(Now, "dd-mm-yy") & ".xls")
If mypath <> "Faux" Then
ActiveWorkbook.SaveCopyAs mypath
MsgBox "Enregistrement d'une copie sous " & mypath & " effectué"
Else
MsgBox "Annulation d'enregistrement"
End If
End Sub
Si j'enlève "C:Documents and SettingsJean-PascalBureau", le
classeur s'enregistre aussi sur le bureau, mais comme je ne suis pas
sûr du chemin d'accès du PC auquel il est destiné, je préfére qu'il
reste au même endroit que le fichier initial...
Pourriez-vous me dire ce qu'il faut mettre comme chemin d'accès pour qu'un classeur s'enregistre par défaut dans le même répertoire que celui dans lequel il a été ouvert ?
Actuellement, j'ai ceci (que je dois à ISteph) :
Sub SaveClasseurAsTer() Dim mypath As String
mypath = Application.GetSaveAsFilename("C:Documents and SettingsJean-PascalBureauplanning d'activité SVG " & _ Format(Now, "dd-mm-yy") & ".xls") If mypath <> "Faux" Then ActiveWorkbook.SaveCopyAs mypath MsgBox "Enregistrement d'une copie sous " & mypath & " effectué" Else MsgBox "Annulation d'enregistrement" End If End Sub
Si j'enlève "C:Documents and SettingsJean-PascalBureau", le classeur s'enregistre aussi sur le bureau, mais comme je ne suis pas sûr du chemin d'accès du PC auquel il est destiné, je préfére qu'il reste au même endroit que le fichier initial...
