je fais un rapide passage pour vous demander encore un peu d'aide.
Je dois appliquer une macro déjà existante à une série de classeurs.
Ces classeurs seront tous dans le même répertoire (disons "c:\a_faire" )
une fois traités, je voudrais les retrouver dans "c:\fait"
pouvez-vous (s'il vous plait ; bien sur) m'indiquer comment m'y prendre pour
ne pas devenir chauve plut vite que nécessaire ?
Merci et continuez votre très bon travail
Match (qui ne signe plus "Charles" pour ne pas être confondu avec l'autre)
;-)
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
Philippe.R
Bonjour Charles,
Sub Traite_et_Bouge() ' MPFE le 22/11/2003 par Philippe Raulet ' Dim ficHOrigin As String ChDir "C:a_faire" Workbooks.Open Filename:= _ "C:a_faireCharles_essai.xls"
ficHOrigin = ActiveWorkbook.FullName
'ici appel de la macro de traitement
ChDir "C:fait" ActiveWorkbook.SaveAs Filename:= _ "C:faitCharles_essai.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Kill ficHOrigin End Sub
Devrait faire l'affaire -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Match" a écrit dans le message de news:
Bonjour à tou(te)s,
je fais un rapide passage pour vous demander encore un peu d'aide.
Je dois appliquer une macro déjà existante à une série de classeurs. Ces classeurs seront tous dans le même répertoire (disons "c:a_faire" ) une fois traités, je voudrais les retrouver dans "c:fait"
pouvez-vous (s'il vous plait ; bien sur) m'indiquer comment m'y prendre pour ne pas devenir chauve plut vite que nécessaire ?
Merci et continuez votre très bon travail
Match (qui ne signe plus "Charles" pour ne pas être confondu avec l'autre) ;-)
Bonjour Charles,
Sub Traite_et_Bouge()
' MPFE le 22/11/2003 par Philippe Raulet
'
Dim ficHOrigin As String
ChDir "C:a_faire"
Workbooks.Open Filename:= _
"C:a_faireCharles_essai.xls"
ficHOrigin = ActiveWorkbook.FullName
'ici appel de la macro de traitement
ChDir "C:fait"
ActiveWorkbook.SaveAs Filename:= _
"C:faitCharles_essai.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Kill ficHOrigin
End Sub
Devrait faire l'affaire
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Match" <XX_match@videotron.ca> a écrit dans le message de news:OGgAyJLsDHA.1744@TK2MSFTNGP12.phx.gbl...
Bonjour à tou(te)s,
je fais un rapide passage pour vous demander encore un peu d'aide.
Je dois appliquer une macro déjà existante à une série de classeurs.
Ces classeurs seront tous dans le même répertoire (disons "c:a_faire" )
une fois traités, je voudrais les retrouver dans "c:fait"
pouvez-vous (s'il vous plait ; bien sur) m'indiquer comment m'y prendre pour
ne pas devenir chauve plut vite que nécessaire ?
Merci et continuez votre très bon travail
Match (qui ne signe plus "Charles" pour ne pas être confondu avec l'autre)
;-)
Sub Traite_et_Bouge() ' MPFE le 22/11/2003 par Philippe Raulet ' Dim ficHOrigin As String ChDir "C:a_faire" Workbooks.Open Filename:= _ "C:a_faireCharles_essai.xls"
ficHOrigin = ActiveWorkbook.FullName
'ici appel de la macro de traitement
ChDir "C:fait" ActiveWorkbook.SaveAs Filename:= _ "C:faitCharles_essai.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Kill ficHOrigin End Sub
Devrait faire l'affaire -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Match" a écrit dans le message de news:
Bonjour à tou(te)s,
je fais un rapide passage pour vous demander encore un peu d'aide.
Je dois appliquer une macro déjà existante à une série de classeurs. Ces classeurs seront tous dans le même répertoire (disons "c:a_faire" ) une fois traités, je voudrais les retrouver dans "c:fait"
pouvez-vous (s'il vous plait ; bien sur) m'indiquer comment m'y prendre pour ne pas devenir chauve plut vite que nécessaire ?
Merci et continuez votre très bon travail
Match (qui ne signe plus "Charles" pour ne pas être confondu avec l'autre) ;-)
Match
Merci beaucoup Philippe, je l'essaierai dans quelques jours et redonnerai des nouvelles au besoin. Bonne journée à tous et toutes Match
"Philippe.R" a écrit dans le message de news:erYOR$
Bonjour Charles,
Sub Traite_et_Bouge() ' MPFE le 22/11/2003 par Philippe Raulet ' Dim ficHOrigin As String ChDir "C:a_faire" Workbooks.Open Filename:= _ "C:a_faireCharles_essai.xls"
ficHOrigin = ActiveWorkbook.FullName
'ici appel de la macro de traitement
ChDir "C:fait" ActiveWorkbook.SaveAs Filename:= _ "C:faitCharles_essai.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Kill ficHOrigin End Sub
Devrait faire l'affaire -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Match" a écrit dans le message de news:
Bonjour à tou(te)s,
je fais un rapide passage pour vous demander encore un peu d'aide.
Je dois appliquer une macro déjà existante à une série de classeurs. Ces classeurs seront tous dans le même répertoire (disons "c:a_faire" )
une fois traités, je voudrais les retrouver dans "c:fait"
pouvez-vous (s'il vous plait ; bien sur) m'indiquer comment m'y prendre pour
ne pas devenir chauve plut vite que nécessaire ?
Merci et continuez votre très bon travail
Match (qui ne signe plus "Charles" pour ne pas être confondu avec l'autre)
;-)
Merci beaucoup Philippe,
je l'essaierai dans quelques jours et redonnerai des nouvelles au besoin.
Bonne journée à tous et toutes
Match
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:erYOR$LsDHA.2304@tk2msftngp13.phx.gbl...
Bonjour Charles,
Sub Traite_et_Bouge()
' MPFE le 22/11/2003 par Philippe Raulet
'
Dim ficHOrigin As String
ChDir "C:a_faire"
Workbooks.Open Filename:= _
"C:a_faireCharles_essai.xls"
ficHOrigin = ActiveWorkbook.FullName
'ici appel de la macro de traitement
ChDir "C:fait"
ActiveWorkbook.SaveAs Filename:= _
"C:faitCharles_essai.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Kill ficHOrigin
End Sub
Devrait faire l'affaire
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Match" <XX_match@videotron.ca> a écrit dans le message de
news:OGgAyJLsDHA.1744@TK2MSFTNGP12.phx.gbl...
Bonjour à tou(te)s,
je fais un rapide passage pour vous demander encore un peu d'aide.
Je dois appliquer une macro déjà existante à une série de classeurs.
Ces classeurs seront tous dans le même répertoire (disons
"c:a_faire" )
une fois traités, je voudrais les retrouver dans "c:fait"
pouvez-vous (s'il vous plait ; bien sur) m'indiquer comment m'y prendre
pour
ne pas devenir chauve plut vite que nécessaire ?
Merci et continuez votre très bon travail
Match (qui ne signe plus "Charles" pour ne pas être confondu avec
l'autre)
Merci beaucoup Philippe, je l'essaierai dans quelques jours et redonnerai des nouvelles au besoin. Bonne journée à tous et toutes Match
"Philippe.R" a écrit dans le message de news:erYOR$
Bonjour Charles,
Sub Traite_et_Bouge() ' MPFE le 22/11/2003 par Philippe Raulet ' Dim ficHOrigin As String ChDir "C:a_faire" Workbooks.Open Filename:= _ "C:a_faireCharles_essai.xls"
ficHOrigin = ActiveWorkbook.FullName
'ici appel de la macro de traitement
ChDir "C:fait" ActiveWorkbook.SaveAs Filename:= _ "C:faitCharles_essai.xls" _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Kill ficHOrigin End Sub
Devrait faire l'affaire -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Match" a écrit dans le message de news:
Bonjour à tou(te)s,
je fais un rapide passage pour vous demander encore un peu d'aide.
Je dois appliquer une macro déjà existante à une série de classeurs. Ces classeurs seront tous dans le même répertoire (disons "c:a_faire" )
une fois traités, je voudrais les retrouver dans "c:fait"
pouvez-vous (s'il vous plait ; bien sur) m'indiquer comment m'y prendre pour
ne pas devenir chauve plut vite que nécessaire ?
Merci et continuez votre très bon travail
Match (qui ne signe plus "Charles" pour ne pas être confondu avec l'autre)
