OUVRIR ENREGISTER FERMER avec une macro

[mcj1997]

Bonjour,

La macro ci-dessous me permet d'ouvrir automatiquement mon fichier en renseignant la date voulue dans mon dossier LIENS VOITURE et ainsi suivant la date renseignée cela me rappatrie le fichier voulue avec la bonne date. Le fichier ne comporte donc jamais le même nom puisque la date figure dans le nom du fichier, ce qui me pose problème.

Ce qu'il me faudrait c'est améliorer la macro afin qu'une fois le fichier ouvert il s'enregistre sous VOITURE.XLS (ce fichier ne change pas de nom et il est remplacé à enregistrement en conservant son nom).

Une fois l'enregistrement effectué le fichier VEHICULES_NEUFS se referme.

Ainsi j'automatise tout car actuellement j'ouvre le fichier (véhicules_neufs) que j'enregistre sous VOITURE et je referme le fichier.

Merci d'avance,


Sub Vente() ' Nom de la macro
Set fich = Workbooks.Open("http://ra48-q0.paris.cpncession.fr/PTA/CARA_DPO_ROUE/TSR_J_BG_" & Cells(1, 2) & "_VEHICULES_NEUFS.XLS")
With fich 'Sélection du fichier renommé fich
Workbooks("LIENS VOITURE.xls").Activate 'Ouverture du fichier cible
End 'Fin de boucle
End With 'fin de conditions

End Sub 'Clôture de la Macro

 

[Pierrot93]

Re : OUVRIR ENREGISTER FERMER avec une macro

Bonjour,

pas sûr d'avoir bien compris ton problème, peut être faire un "saveas" juste après l'ouverture du fichier....

bon après midi
@+

 

[Etienne2323]

Re : OUVRIR ENREGISTER FERMER avec une macro

Salut mcj1997,
sans fichier pour tester, un essai sans avoir testé.

Option Explicit

Sub Vente()
Dim Chemin As String
Dim fich As Workbook

Application.ScreenUpdating = False
Chemin = "http://ra48-q0.paris.cpncession.fr/PTA/CARA_DPO_ROUE/"
Set fich = Workbooks.Open(Chemin & "TSR_J_BG_" & Cells(1, 2) & "_VEHICULES_NEUFS.XLS")
fich.SaveAs Filename:=Chemin & "VOITURES.XLS"
fich.Close False

Workbooks("LIENS VOITURE.xls").Activate

End Sub

Cordialement,

Étienne

Édit : Salut Pierrot