enregistrer dans le repertoire actif
Le
gilles
bonjour à tous
Une macro qui m'a été proposée par le steph et papou et
que j'ai (modestement)adaptée
Sub renommplus prefixe avant ()
Dim machaine, newchain As String
machaine = ActiveWorkbook.Name
newchain = [B3] & "_" & Mid(machaine, 1, Len(machaine) -
4) & ".xls"
ChDir "D:\astusinformatic\aaa" 'j' impose le
repertoire
ActiveWorkbook.SaveAs (newchain)ActiveWorkbook.SaveAs
(newchain)
Kill "D:\astusinformatic\essai recuperer
donnee.xls" ' je supprime le fichier initial
End Sub
Ça marche nickel mais :
-Je souhaite que l'enregistrement se fasse dans le
repertoire et sous repertoire ou se trouve le fichier
-je souhaite que le fichier initial soit supprimé dans
le repertoire actif
.car les repertoires en question seront deplacés sur
divers serveurs ou travaillent les utilisateurs
je ne peux donc pas imposer leur nom dans le code
j'ai voulu mettre ActiveDIR, mais je me suis fait jeté !
Si des VBAtistes sont dispo actuellement et peuvent me
prêter main forte , je leur fais une prière pour 15 jours
de soleil
A+
gilles
Une macro qui m'a été proposée par le steph et papou et
que j'ai (modestement)adaptée
Sub renommplus prefixe avant ()
Dim machaine, newchain As String
machaine = ActiveWorkbook.Name
newchain = [B3] & "_" & Mid(machaine, 1, Len(machaine) -
4) & ".xls"
ChDir "D:\astusinformatic\aaa" 'j' impose le
repertoire
ActiveWorkbook.SaveAs (newchain)ActiveWorkbook.SaveAs
(newchain)
Kill "D:\astusinformatic\essai recuperer
donnee.xls" ' je supprime le fichier initial
End Sub
Ça marche nickel mais :
-Je souhaite que l'enregistrement se fasse dans le
repertoire et sous repertoire ou se trouve le fichier
-je souhaite que le fichier initial soit supprimé dans
le repertoire actif
.car les repertoires en question seront deplacés sur
divers serveurs ou travaillent les utilisateurs
je ne peux donc pas imposer leur nom dans le code
j'ai voulu mettre ActiveDIR, mais je me suis fait jeté !
Si des VBAtistes sont dispo actuellement et peuvent me
prêter main forte , je leur fais une prière pour 15 jours
de soleil
A+
gilles
Poser une question
Tu peux utiliser ActiveWorkbook.Path et l'utiliser ainsi :
chemin = ActiveWorkbook.Path
ActiveWorkbook.SaveAs (chemin & newchain)
j-p
j'essaie ça
et ,si ça marche , tu auras la prière annoncée!!!!
marci
à+
j'ai essayé mais c'est pas encore ça !
j'ai placé le fichier à renommer dans un s/rep
la macro place le fichier enregistré dans le rep et non
le s/rep, et elle le renomme du nom du s/rep suivi du nom
du fichier
J' ai essayé d'adapter ton code avec mes faibles moyens
de VBAtiste
avec le code ci dessous il place bien le fichier renommé
dans le s/rep mais il le nomme newchaine et non pas du
nom de fichier
Sub renommplus prefixe avant()
Dim machaine, newchain As String
machaine = ActiveWorkbook.Name
Dim chemin As String
chemin = ActiveWorkbook.Path
ActiveWorkbook.SaveAs chemin & " newchain"
'Application.Recover.Path = "ActiveWorkbook.Path"
'ActiveWorkbook.SaveAs (chemin & newchain)
' ChDir "D:astusinformaticaaa"
'ActiveWorkbook.SaveAs (newchain)
'Kill "D:astusinformaticessai recuperer donnee.xls" 'je
supprime le fichier initial
End Sub
Par ailleurs je souhaite effacer le fichier d'origine et
lui imposer de prendre le rep et s/rep actif
Merci encore et à+
chemin = ActiveWorkbook.Path
ActiveWorkbook.SaveAs (chemin & " " & newchain)
j-p
gilles