Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs Filename:ÚtatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" a écrit dans le message de
news:Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs Filename:=\datatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" <TITUS@discussions.microsoft.com> a écrit dans le message de
news:DC7C9502-891E-429F-B14F-82737DE4FE8D@microsoft.com...
Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs Filename:ÚtatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" a écrit dans le message de
news:Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Désolée, mais j'ai une erreur de compile et quand j'appuie sur le bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs
Filename:ÚtatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" a écrit dans le message de
news:Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire
un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis
du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Désolée, mais j'ai une erreur de compile et quand j'appuie sur le bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:=\daglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"
Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs
Filename:=\datatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" <TITUS@discussions.microsoft.com> a écrit dans le message de
news:DC7C9502-891E-429F-B14F-82737DE4FE8D@microsoft.com...
Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire
un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis
du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Désolée, mais j'ai une erreur de compile et quand j'appuie sur le bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs
Filename:ÚtatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" a écrit dans le message de
news:Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire
un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis
du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="...
C'est mieux ?
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"TITUS" a écrit dans le message de news:Désolée, mais j'ai une erreur de compile et quand j'appuie sur le bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs
Filename:ÚtatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" a écrit dans le message de
news:Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire
un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis
du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="\...
C'est mieux ?
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"TITUS" <TITUS@discussions.microsoft.com> a écrit dans le message de news:
62355FF8-BDBB-4067-8099-2EA98FEC1ECC@microsoft.com...
Désolée, mais j'ai une erreur de compile et quand j'appuie sur le bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:=\daglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"
Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs
Filename:=\datatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" <TITUS@discussions.microsoft.com> a écrit dans le message de
news:DC7C9502-891E-429F-B14F-82737DE4FE8D@microsoft.com...
Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire
un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis
du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="...
C'est mieux ?
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"TITUS" a écrit dans le message de news:Désolée, mais j'ai une erreur de compile et quand j'appuie sur le bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs
Filename:ÚtatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" a écrit dans le message de
news:Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à faire
un
enregistrer sous et d'enregistrer le fichier dans un répertoire précis
du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet sur
l'enregistrement.Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="...
C'est mieux ?
--
Bonne continuationDésolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"...
Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet sur
l'enregistrement.
Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="\...
C'est mieux ?
--
Bonne continuation
Désolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:=\daglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"
...
Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet sur
l'enregistrement.Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="...
C'est mieux ?
--
Bonne continuationDésolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"...
Re,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des
slashs (/), caractère qui n'est pas accepté par Windows pour les noms de
fichiers. J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le
répertoire de destination n'existe pas.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet
sur
l'enregistrement.Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="...
C'est mieux ?
--
Bonne continuationDésolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"...
Re,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des
slashs (/), caractère qui n'est pas accepté par Windows pour les noms de
fichiers. J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="\daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le
répertoire de destination n'existe pas.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet
sur
l'enregistrement.
Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="\...
C'est mieux ?
--
Bonne continuation
Désolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:=\daglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"
...
Re,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des
slashs (/), caractère qui n'est pas accepté par Windows pour les noms de
fichiers. J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le
répertoire de destination n'existe pas.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet
sur
l'enregistrement.Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="...
C'est mieux ?
--
Bonne continuationDésolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"...
Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet sur
l'enregistrement.Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="...
C'est mieux ?
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"TITUS" a écrit dans le message de
news:Désolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs
Filename:ÚtatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au
répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" a écrit dans le message de
news:Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à
faire
un
enregistrer sous et d'enregistrer le fichier dans un répertoire
précis
du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet sur
l'enregistrement.
Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="\...
C'est mieux ?
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"TITUS" <TITUS@discussions.microsoft.com> a écrit dans le message de
news:
62355FF8-BDBB-4067-8099-2EA98FEC1ECC@microsoft.com...
Désolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:=\daglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"
Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs
Filename:=\datatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au
répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" <TITUS@discussions.microsoft.com> a écrit dans le message de
news:DC7C9502-891E-429F-B14F-82737DE4FE8D@microsoft.com...
Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à
faire
un
enregistrer sous et d'enregistrer le fichier dans un répertoire
précis
du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet sur
l'enregistrement.Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="...
C'est mieux ?
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
"TITUS" a écrit dans le message de
news:Désolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"Bonsoir,
Dans le Private Sub Workbook_BeforeClose(Cancel As Boolean)
'la commande suivante, le chemin et le nom étant à adapter
zenom=environ("username")
ActiveWorkbook.SaveAs
Filename:ÚtatataTECNIKZAZA-MPFEMon-fichier"
& zenom & date &".xls"
thisworkbook.saved=true
end sub
'Enregistrera le fichier sur le lecteur (serveur) datatata au
répertoire
TECNIK sous répertoire ZAZA-MPFE sous un nom composé du nom de base du
fichier, du nom de l'utilisateur et de la date
--
Philippe.R
"TITUS" a écrit dans le message de
news:Existe-til un moyen sur un classeur XLT de forcer l'utilisateur à
faire
un
enregistrer sous et d'enregistrer le fichier dans un répertoire
précis
du
réseau, sans qu'il n'ai a le chercher (le répertoire). ?
Merci
cordialement
TITUS
Re,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des slashs
(/), caractère qui n'est pas accepté par Windows pour les noms de fichiers.
J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le répertoire
de destination n'existe pas.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet sur
l'enregistrement.Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="...
C'est mieux ?
--
Bonne continuationDésolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"...
Re,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des slashs
(/), caractère qui n'est pas accepté par Windows pour les noms de fichiers.
J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="\daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le répertoire
de destination n'existe pas.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------
Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet sur
l'enregistrement.
Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="\...
C'est mieux ?
--
Bonne continuation
Désolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:=\daglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"
...
Re,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des slashs
(/), caractère qui n'est pas accepté par Windows pour les noms de fichiers.
J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le répertoire
de destination n'existe pas.
--
Bonne continuation
-------------------------------------------------------------------------------------------
http://www.mpfa.info : c'est bonheur pour ton ordinateur !
-------------------------------------------------------------------------------------------Effectivement je n'ai plus d'erreur de compil, mais ça n'a aucun effet sur
l'enregistrement.Bonjour, TITUS
Il me semble qu'il manque les guillemets au début du Filename:
Filename:="...
C'est mieux ?
--
Bonne continuationDésolée, mais j'ai une erreur de compile et quand j'appuie sur le
bouton
aide, à priori il s'agirait d'un erreur de parenthèse.
Pourriez-vous m'aider. voici ce que j'ai rentré :
"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs
Filename:Úglag1publicDevis_DentairesMon-fichier"& zenom & date
&".xls"
ThisWorkbook.Saved = True
End Sub
"
Et il n'ya aucun effet, l'enregistrement reste sur "Mes documents"...
Ca fonctionne bien, j'ai réussi à mettre tout ça correctement et comme
j'avance, il ressort que l'enregistrement doit être vérifié avant écriture
sur le réseau. c'est à dire que nous devons re'ster sur la fenêtre
enregistrer sous afin de pouvoir mettre une numérotation à la suite.
J'explique :
Mes fichiers doivent s'enregistrer de la façon suivante :
NOM_PRENOM_070806.xls
Quand nous faisons un 2ème document pour la meme personne dans la même
journée, nous devons entrer :
NOM_PRENOM_070806_2.xls,
etc...
Sachant que NOM et PRENOM sont déjà saisis dans l'adresse en E2 sans "_"
de
séparation, peut-on prendre cette zone E2 mettre un "_" entre le nom et le
prénom, coller derrière la date EN yymmjj et laisser ainsi dans la fenêtre
ENREGISTRER SOUS le curseur clignoter pour ajouter "_2" ou "_3" ou "_4",
etc....
-----------------------------------
J'ai testé la macro comme disait Pi=hilippe R, mais ça ne satisfait pas
vraiment - Merci quand même Philippe.
Cordialement
TITUSRe,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des
slashs
(/), caractère qui n'est pas accepté par Windows pour les noms de
fichiers.
J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le
répertoire
de destination n'existe pas.
--
Bonne continuation
Ca fonctionne bien, j'ai réussi à mettre tout ça correctement et comme
j'avance, il ressort que l'enregistrement doit être vérifié avant écriture
sur le réseau. c'est à dire que nous devons re'ster sur la fenêtre
enregistrer sous afin de pouvoir mettre une numérotation à la suite.
J'explique :
Mes fichiers doivent s'enregistrer de la façon suivante :
NOM_PRENOM_070806.xls
Quand nous faisons un 2ème document pour la meme personne dans la même
journée, nous devons entrer :
NOM_PRENOM_070806_2.xls,
etc...
Sachant que NOM et PRENOM sont déjà saisis dans l'adresse en E2 sans "_"
de
séparation, peut-on prendre cette zone E2 mettre un "_" entre le nom et le
prénom, coller derrière la date EN yymmjj et laisser ainsi dans la fenêtre
ENREGISTRER SOUS le curseur clignoter pour ajouter "_2" ou "_3" ou "_4",
etc....
-----------------------------------
J'ai testé la macro comme disait Pi=hilippe R, mais ça ne satisfait pas
vraiment - Merci quand même Philippe.
Cordialement
TITUS
Re,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des
slashs
(/), caractère qui n'est pas accepté par Windows pour les noms de
fichiers.
J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="\daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le
répertoire
de destination n'existe pas.
--
Bonne continuation
Ca fonctionne bien, j'ai réussi à mettre tout ça correctement et comme
j'avance, il ressort que l'enregistrement doit être vérifié avant écriture
sur le réseau. c'est à dire que nous devons re'ster sur la fenêtre
enregistrer sous afin de pouvoir mettre une numérotation à la suite.
J'explique :
Mes fichiers doivent s'enregistrer de la façon suivante :
NOM_PRENOM_070806.xls
Quand nous faisons un 2ème document pour la meme personne dans la même
journée, nous devons entrer :
NOM_PRENOM_070806_2.xls,
etc...
Sachant que NOM et PRENOM sont déjà saisis dans l'adresse en E2 sans "_"
de
séparation, peut-on prendre cette zone E2 mettre un "_" entre le nom et le
prénom, coller derrière la date EN yymmjj et laisser ainsi dans la fenêtre
ENREGISTRER SOUS le curseur clignoter pour ajouter "_2" ou "_3" ou "_4",
etc....
-----------------------------------
J'ai testé la macro comme disait Pi=hilippe R, mais ça ne satisfait pas
vraiment - Merci quand même Philippe.
Cordialement
TITUSRe,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des
slashs
(/), caractère qui n'est pas accepté par Windows pour les noms de
fichiers.
J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le
répertoire
de destination n'existe pas.
--
Bonne continuation
Bonjour, TITUS
Plutôt que de gérer des numéros successifs, je te propose d'ajouter l'heure
et la minute courante. Pour cela, dans ma macro, remplace
<Format(Date,"yyyy.mm.dd")> par <Format(Now,"yymmddhhnn")>. Tu peux même
ajouter les secondes ("yymmddhhnnss").
Si tu veux vraiment avoir un numéro d'ordre, il faut modifier légèrement ta
procédure pour vérifier si le fichier existe déjà:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
NomFichier = "daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Now,"yymmddhhnn") & ".xls"
If Len(Dir(NomFichier))=0 Then
NumeroFichier = 2
While Len(Dir(NomFichier & "_" & NumeroFichier))=0
NumeroFichier = NumeroFichier+1
Wend
NomFichier = NomFichier & "_" & NumeroFichier
End If
ActiveWorkbook.SaveAs Filename:=NomFichier
ThisWorkbook.Saved = True
End Sub
--
Bonne continuation
-------------------------------------------------------------------------------------------Ca fonctionne bien, j'ai réussi à mettre tout ça correctement et comme
j'avance, il ressort que l'enregistrement doit être vérifié avant écriture
sur le réseau. c'est à dire que nous devons re'ster sur la fenêtre
enregistrer sous afin de pouvoir mettre une numérotation à la suite.
J'explique :
Mes fichiers doivent s'enregistrer de la façon suivante :
NOM_PRENOM_070806.xls
Quand nous faisons un 2ème document pour la meme personne dans la même
journée, nous devons entrer :
NOM_PRENOM_070806_2.xls,
etc...
Sachant que NOM et PRENOM sont déjà saisis dans l'adresse en E2 sans "_"
de
séparation, peut-on prendre cette zone E2 mettre un "_" entre le nom et le
prénom, coller derrière la date EN yymmjj et laisser ainsi dans la fenêtre
ENREGISTRER SOUS le curseur clignoter pour ajouter "_2" ou "_3" ou "_4",
etc....
-----------------------------------
J'ai testé la macro comme disait Pi=hilippe R, mais ça ne satisfait pas
vraiment - Merci quand même Philippe.
Cordialement
TITUSRe,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des
slashs
(/), caractère qui n'est pas accepté par Windows pour les noms de
fichiers.
J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le
répertoire
de destination n'existe pas.
--
Bonne continuation
Bonjour, TITUS
Plutôt que de gérer des numéros successifs, je te propose d'ajouter l'heure
et la minute courante. Pour cela, dans ma macro, remplace
<Format(Date,"yyyy.mm.dd")> par <Format(Now,"yymmddhhnn")>. Tu peux même
ajouter les secondes ("yymmddhhnnss").
Si tu veux vraiment avoir un numéro d'ordre, il faut modifier légèrement ta
procédure pour vérifier si le fichier existe déjà:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
NomFichier = "\daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Now,"yymmddhhnn") & ".xls"
If Len(Dir(NomFichier))=0 Then
NumeroFichier = 2
While Len(Dir(NomFichier & "_" & NumeroFichier))=0
NumeroFichier = NumeroFichier+1
Wend
NomFichier = NomFichier & "_" & NumeroFichier
End If
ActiveWorkbook.SaveAs Filename:=NomFichier
ThisWorkbook.Saved = True
End Sub
--
Bonne continuation
-------------------------------------------------------------------------------------------
Ca fonctionne bien, j'ai réussi à mettre tout ça correctement et comme
j'avance, il ressort que l'enregistrement doit être vérifié avant écriture
sur le réseau. c'est à dire que nous devons re'ster sur la fenêtre
enregistrer sous afin de pouvoir mettre une numérotation à la suite.
J'explique :
Mes fichiers doivent s'enregistrer de la façon suivante :
NOM_PRENOM_070806.xls
Quand nous faisons un 2ème document pour la meme personne dans la même
journée, nous devons entrer :
NOM_PRENOM_070806_2.xls,
etc...
Sachant que NOM et PRENOM sont déjà saisis dans l'adresse en E2 sans "_"
de
séparation, peut-on prendre cette zone E2 mettre un "_" entre le nom et le
prénom, coller derrière la date EN yymmjj et laisser ainsi dans la fenêtre
ENREGISTRER SOUS le curseur clignoter pour ajouter "_2" ou "_3" ou "_4",
etc....
-----------------------------------
J'ai testé la macro comme disait Pi=hilippe R, mais ça ne satisfait pas
vraiment - Merci quand même Philippe.
Cordialement
TITUS
Re,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des
slashs
(/), caractère qui n'est pas accepté par Windows pour les noms de
fichiers.
J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="\daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le
répertoire
de destination n'existe pas.
--
Bonne continuation
Bonjour, TITUS
Plutôt que de gérer des numéros successifs, je te propose d'ajouter l'heure
et la minute courante. Pour cela, dans ma macro, remplace
<Format(Date,"yyyy.mm.dd")> par <Format(Now,"yymmddhhnn")>. Tu peux même
ajouter les secondes ("yymmddhhnnss").
Si tu veux vraiment avoir un numéro d'ordre, il faut modifier légèrement ta
procédure pour vérifier si le fichier existe déjà:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
NomFichier = "daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Now,"yymmddhhnn") & ".xls"
If Len(Dir(NomFichier))=0 Then
NumeroFichier = 2
While Len(Dir(NomFichier & "_" & NumeroFichier))=0
NumeroFichier = NumeroFichier+1
Wend
NomFichier = NomFichier & "_" & NumeroFichier
End If
ActiveWorkbook.SaveAs Filename:=NomFichier
ThisWorkbook.Saved = True
End Sub
--
Bonne continuation
-------------------------------------------------------------------------------------------Ca fonctionne bien, j'ai réussi à mettre tout ça correctement et comme
j'avance, il ressort que l'enregistrement doit être vérifié avant écriture
sur le réseau. c'est à dire que nous devons re'ster sur la fenêtre
enregistrer sous afin de pouvoir mettre une numérotation à la suite.
J'explique :
Mes fichiers doivent s'enregistrer de la façon suivante :
NOM_PRENOM_070806.xls
Quand nous faisons un 2ème document pour la meme personne dans la même
journée, nous devons entrer :
NOM_PRENOM_070806_2.xls,
etc...
Sachant que NOM et PRENOM sont déjà saisis dans l'adresse en E2 sans "_"
de
séparation, peut-on prendre cette zone E2 mettre un "_" entre le nom et le
prénom, coller derrière la date EN yymmjj et laisser ainsi dans la fenêtre
ENREGISTRER SOUS le curseur clignoter pour ajouter "_2" ou "_3" ou "_4",
etc....
-----------------------------------
J'ai testé la macro comme disait Pi=hilippe R, mais ça ne satisfait pas
vraiment - Merci quand même Philippe.
Cordialement
TITUSRe,
Je viens de faire le test.
Chez moi, une erreur s'affiche due aux dates qui s'écrivent avec des
slashs
(/), caractère qui n'est pas accepté par Windows pour les noms de
fichiers.
J'ai testé cette version qui fonctionne pour moi:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
zenom = Environ("username")
ActiveWorkbook.SaveAs _
Filename:="daglag1publicDevis_DentairesMon-fichier" _
& zenom & Format(Date,"yyyy.mm.dd") & ".xls"
ThisWorkbook.Saved = True
End Sub
J'ai inversé le sens d'écriture de la date (2007.08.03) pour faciliter le
classement par ordre alphabétique ;-)
Par ailleurs, je pense qu'une erreur peut aussi se produire si le
répertoire
de destination n'existe pas.
--
Bonne continuation