MAJ le & DateDerniereImportation

[carlos]

Bonsoir le forum

J'importe de temps en temps une base 'f_ele.dbf' du dossier 'ici' vers le dossier 'la', par exemple le 16 juin 2005.
puis à partir de cette macro ci dessous , je mets à jour ma base de donnée dans un fichier excel.

Sub Importer_GEP()
Dim Ce_classeur As Variant
Dim ML As String
ML = Left(ThisWorkbook.Path, 1)
Set Ce_classeur = Application.ActiveWorkbook
Workbooks.Open Filename:=ML & ':\\eps1\\f_ele.dbf'
MsgBox 'Mise à jour le ' & DateDerniereImportation
Sheets('F_ELE').Move Before:=Ce_classeur.Sheets(1)

End Sub

J'aimerais recuperer cette date de transfert du fichier ('16 juin 2005') sous la variable : DateDerniereImportation = 16 juin 2005

SOIT ;

MsgBox 'Mise à jour le ' & DateDerniereImportation = 16 juin 2005

Merci

 

[excalibur]

bonsoir carlos le forum si j ai bien compris MsgBox 'Mise à jour le ' & 'DateDerniereImportation = ' & Date

 

[excalibur]

rebonsoir carlos le forum je suis alle un peu vite MsgBox 'Mise à jour le Date Derniere Importation = ' & Date'salutations

 

[carlos]

Bonsoir le forum
Bonsoir excalibur

Moi aussi je suis allé un peu vite
Ta derniere proposition est la bonne

MsgBox \\'Mise à jour le Date Derniere
Importation = \\' & Date

Merci Carlos