- Ouvrir le format d'import déjà personnalisé (depuis le menu Dossier – Options – Imports paramétrables...).
- Dans l'onglet Fichier, activer l'option Mode avancé.
- Dans l'onglet Erreurs, au niveau du groupe "Lorsque les données existent", activer l'option Erreur.
- Accéder au Script lié à l'aide de l'icône suivante (présente dans le bas de la fenêtre) :
- Indiquer le script suivant :
$Import_Fin: Dim Path = [Chemin source.EtLXi] DimEnt I DimEnt VMax = NbCar(Path) DimEnt Position = NbCar(Path) Boucle(I,VMax) FSi(STxt(Path,Position)<>"/",Dec(Position)) FinBoucle Dim FileNameBefore = STxt(Path,Inc(Position),VMax) Dim FileNameAfter = Gauche(FileNameBefore,NbCar(FileNameBefore)-4)".bak" Renommer(Path,FileNameAfter,"-U-E") Fin - Enregistrer les modifications à l'aide du bouton OK puis OK.
REMARQUE : Si, à la place de l'exension *.bak, vous souhaitez ajouter la date et l'heure de l'import, dans le nom du fichier importé, vous pouvez remplacer la ligne (n°10) "Dim FileNameAfter = ..." par ceci : Dim FileNameAfter = Gauche(FileNameBefore,NbCar(FileNameBefore)-4)" "FDate(Date(),kDtAAAAMMJJ)" "Gauche(Heure(),2)Droite(Heure(),2)Droite(FileNameBefore,4) |