J'ai un énorme problème d'enregistrement de fichiers générés par une macro.
J'explique :
Les fichiers doivent être enregistrés sur un répertoire d'un serveur.
La macro spécifie ce chemin.
La macro est sur le serveur.
Lorsque je lance la macro de mon poste, le fichier est enregistré (la
plupart du temps) sur l'emplacement défini du serveur.
Lorsque la macro est lancée d'un autre poste, le fichier est enregistré sur
le fichier "mes documents" de l'utilisateur.
J'ai supprimé le chemin d'enregistrement par défaut mais rien n'y fait.
Comment peut-on faire pour que le fichier soit effectivement enregistré sur
le répertoire spécifié par la macro ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JohnFuss
Salut,
peut-être en modifiant le chemin 'en cours' de l'explorateur Windows avant d'enregistrer, voici ma fonction de modif de repertoire :
Public Function ChangeDirectory(Path As String) As Boolean On Error GoTo ChangeDirectory_Error
If Mid(Path, 2, 1) = ":" Then ChDrive Left(Path, 1) ChDir Path ChangeDirectory = True ElseIf Path <> "" Then If SetCurrentDirectoryA(Path) <> 0 Then ChangeDirectory = True Else ChangeDirectory = False End If Else ChangeDirectory = False End If Exit Function ChangeDirectory_Error: ChangeDirectory = False End Function
Bon courage.
John
"dan" a écrit dans le message de news:
Salut à tous,
J'ai un énorme problème d'enregistrement de fichiers générés par une macro. J'explique : Les fichiers doivent être enregistrés sur un répertoire d'un serveur. La macro spécifie ce chemin. La macro est sur le serveur. Lorsque je lance la macro de mon poste, le fichier est enregistré (la plupart du temps) sur l'emplacement défini du serveur. Lorsque la macro est lancée d'un autre poste, le fichier est enregistré sur le fichier "mes documents" de l'utilisateur. J'ai supprimé le chemin d'enregistrement par défaut mais rien n'y fait.
Comment peut-on faire pour que le fichier soit effectivement enregistré sur le répertoire spécifié par la macro ?
Merci d'avance. -- dan
Salut,
peut-être en modifiant le chemin 'en cours' de l'explorateur Windows avant
d'enregistrer, voici ma fonction de modif de repertoire :
Public Function ChangeDirectory(Path As String) As Boolean
On Error GoTo ChangeDirectory_Error
If Mid(Path, 2, 1) = ":" Then
ChDrive Left(Path, 1)
ChDir Path
ChangeDirectory = True
ElseIf Path <> "" Then
If SetCurrentDirectoryA(Path) <> 0 Then
ChangeDirectory = True
Else
ChangeDirectory = False
End If
Else
ChangeDirectory = False
End If
Exit Function
ChangeDirectory_Error:
ChangeDirectory = False
End Function
Bon courage.
John
"dan" <dan@discussions.microsoft.com> a écrit dans le message de news:
395AB705-438A-4323-A090-E88B8F01966E@microsoft.com...
Salut à tous,
J'ai un énorme problème d'enregistrement de fichiers générés par une
macro.
J'explique :
Les fichiers doivent être enregistrés sur un répertoire d'un serveur.
La macro spécifie ce chemin.
La macro est sur le serveur.
Lorsque je lance la macro de mon poste, le fichier est enregistré (la
plupart du temps) sur l'emplacement défini du serveur.
Lorsque la macro est lancée d'un autre poste, le fichier est enregistré
sur
le fichier "mes documents" de l'utilisateur.
J'ai supprimé le chemin d'enregistrement par défaut mais rien n'y fait.
Comment peut-on faire pour que le fichier soit effectivement enregistré
sur
le répertoire spécifié par la macro ?
peut-être en modifiant le chemin 'en cours' de l'explorateur Windows avant d'enregistrer, voici ma fonction de modif de repertoire :
Public Function ChangeDirectory(Path As String) As Boolean On Error GoTo ChangeDirectory_Error
If Mid(Path, 2, 1) = ":" Then ChDrive Left(Path, 1) ChDir Path ChangeDirectory = True ElseIf Path <> "" Then If SetCurrentDirectoryA(Path) <> 0 Then ChangeDirectory = True Else ChangeDirectory = False End If Else ChangeDirectory = False End If Exit Function ChangeDirectory_Error: ChangeDirectory = False End Function
Bon courage.
John
"dan" a écrit dans le message de news:
Salut à tous,
J'ai un énorme problème d'enregistrement de fichiers générés par une macro. J'explique : Les fichiers doivent être enregistrés sur un répertoire d'un serveur. La macro spécifie ce chemin. La macro est sur le serveur. Lorsque je lance la macro de mon poste, le fichier est enregistré (la plupart du temps) sur l'emplacement défini du serveur. Lorsque la macro est lancée d'un autre poste, le fichier est enregistré sur le fichier "mes documents" de l'utilisateur. J'ai supprimé le chemin d'enregistrement par défaut mais rien n'y fait.
Comment peut-on faire pour que le fichier soit effectivement enregistré sur le répertoire spécifié par la macro ?
Merci d'avance. -- dan
JohnFuss
et tu peux utiliser le ThisWorkbook.FullName pour connaitre ton chemin....
John
"JohnFuss" a écrit dans le message de news: ef0s3p$j50$
Salut,
peut-être en modifiant le chemin 'en cours' de l'explorateur Windows avant d'enregistrer, voici ma fonction de modif de repertoire :
Public Function ChangeDirectory(Path As String) As Boolean On Error GoTo ChangeDirectory_Error
If Mid(Path, 2, 1) = ":" Then ChDrive Left(Path, 1) ChDir Path ChangeDirectory = True ElseIf Path <> "" Then If SetCurrentDirectoryA(Path) <> 0 Then ChangeDirectory = True Else ChangeDirectory = False End If Else ChangeDirectory = False End If Exit Function ChangeDirectory_Error: ChangeDirectory = False End Function
Bon courage.
John
"dan" a écrit dans le message de news:
Salut à tous,
J'ai un énorme problème d'enregistrement de fichiers générés par une macro. J'explique : Les fichiers doivent être enregistrés sur un répertoire d'un serveur. La macro spécifie ce chemin. La macro est sur le serveur. Lorsque je lance la macro de mon poste, le fichier est enregistré (la plupart du temps) sur l'emplacement défini du serveur. Lorsque la macro est lancée d'un autre poste, le fichier est enregistré sur le fichier "mes documents" de l'utilisateur. J'ai supprimé le chemin d'enregistrement par défaut mais rien n'y fait.
Comment peut-on faire pour que le fichier soit effectivement enregistré sur le répertoire spécifié par la macro ?
Merci d'avance. -- dan
et tu peux utiliser le ThisWorkbook.FullName pour connaitre ton chemin....
John
"JohnFuss" <nospams@please.fr> a écrit dans le message de news:
ef0s3p$j50$1@s1.news.oleane.net...
Salut,
peut-être en modifiant le chemin 'en cours' de l'explorateur Windows avant
d'enregistrer, voici ma fonction de modif de repertoire :
Public Function ChangeDirectory(Path As String) As Boolean
On Error GoTo ChangeDirectory_Error
If Mid(Path, 2, 1) = ":" Then
ChDrive Left(Path, 1)
ChDir Path
ChangeDirectory = True
ElseIf Path <> "" Then
If SetCurrentDirectoryA(Path) <> 0 Then
ChangeDirectory = True
Else
ChangeDirectory = False
End If
Else
ChangeDirectory = False
End If
Exit Function
ChangeDirectory_Error:
ChangeDirectory = False
End Function
Bon courage.
John
"dan" <dan@discussions.microsoft.com> a écrit dans le message de news:
395AB705-438A-4323-A090-E88B8F01966E@microsoft.com...
Salut à tous,
J'ai un énorme problème d'enregistrement de fichiers générés par une
macro.
J'explique :
Les fichiers doivent être enregistrés sur un répertoire d'un serveur.
La macro spécifie ce chemin.
La macro est sur le serveur.
Lorsque je lance la macro de mon poste, le fichier est enregistré (la
plupart du temps) sur l'emplacement défini du serveur.
Lorsque la macro est lancée d'un autre poste, le fichier est enregistré
sur
le fichier "mes documents" de l'utilisateur.
J'ai supprimé le chemin d'enregistrement par défaut mais rien n'y fait.
Comment peut-on faire pour que le fichier soit effectivement enregistré
sur
le répertoire spécifié par la macro ?
et tu peux utiliser le ThisWorkbook.FullName pour connaitre ton chemin....
John
"JohnFuss" a écrit dans le message de news: ef0s3p$j50$
Salut,
peut-être en modifiant le chemin 'en cours' de l'explorateur Windows avant d'enregistrer, voici ma fonction de modif de repertoire :
Public Function ChangeDirectory(Path As String) As Boolean On Error GoTo ChangeDirectory_Error
If Mid(Path, 2, 1) = ":" Then ChDrive Left(Path, 1) ChDir Path ChangeDirectory = True ElseIf Path <> "" Then If SetCurrentDirectoryA(Path) <> 0 Then ChangeDirectory = True Else ChangeDirectory = False End If Else ChangeDirectory = False End If Exit Function ChangeDirectory_Error: ChangeDirectory = False End Function
Bon courage.
John
"dan" a écrit dans le message de news:
Salut à tous,
J'ai un énorme problème d'enregistrement de fichiers générés par une macro. J'explique : Les fichiers doivent être enregistrés sur un répertoire d'un serveur. La macro spécifie ce chemin. La macro est sur le serveur. Lorsque je lance la macro de mon poste, le fichier est enregistré (la plupart du temps) sur l'emplacement défini du serveur. Lorsque la macro est lancée d'un autre poste, le fichier est enregistré sur le fichier "mes documents" de l'utilisateur. J'ai supprimé le chemin d'enregistrement par défaut mais rien n'y fait.
Comment peut-on faire pour que le fichier soit effectivement enregistré sur le répertoire spécifié par la macro ?