Renommer automatiquement le fichier après son import
Description
Cause
Resolution
  1. Ouvrir le format d'import déjà personnalisé (depuis le menu Dossier – Options  Imports paramétrables...).
  2. Dans l'onglet Fichier, activer l'option Mode avancé.
  3. Dans l'onglet Erreurs, au niveau du groupe "Lorsque les données existent", activer l'option Erreur.
  4. Accéder au Script lié à l'aide de l'icône suivante (présente dans le bas de la fenêtre) : 
  5. 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
  6. 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)
Steps to duplicate
Related Solutions

Fiche centralisatrice - Imports \ Exports