Bonjour,
Cette fonction ne créée pas de fichier.
Exemple de code, bonne lecture

//Affiche la liste des fichiers et des rubriques
Sablier(Vrai)
HLitRecherche(Description,IDDescription,Combo_Description..Valeur)
SI HTrouve ALORS
// Cherche s'il y a une relation entre les fichiers
CheminWD55=Description.Rep_Fichiers
PasseWD55=Description.MotPasse
CheminduWDD=Description.Ana_Projet
PasseduWDD=""
// Cherche l'analyse WD7
HLitRecherche(RelationDescription,IDDescription,Description.IDDescription)
SI HTrouve ALORS
HLitRecherche(Description7,IDDescription7,RelationDescription.IDDescription7)
SI HTrouve ALORS
WanaWD7=SansEspace(Description7.Ana_Projet7)
CheminCourtWD7=Description7.Rep_Fichiers7
PasseWD7=Description7.MotPasse7
FIN
FIN
SINON
RETOUR
FIN
//Cherche les fichiers et importe
HLitPremier(ListeFichiers,IDListeFichiers)
// HLitpremier(ListeFichiers,IDDescription,description.IDDescription)
TANTQUE PAS HEnDehors(ListeFichiers)
SI ListeFichiers.IDDescription=Description.IDDescription ALORS
// Le fichier est marqué pour transfert
SI ListeFichiers.Marque=Vrai ALORS
HLitRecherche(RelationFichiers,IDListeFichiers,ListeFichiers.IDListeFichiers)
SI HTrouve ALORS
FichierWD55=ListeFichiers.Nom_Fichier
//Cherche les Rubriques d'origines
HLitRecherche(ListeRubrique,IDListeFichiers,ListeFichiers.IDListeFichiers)
TANTQUE HTrouve
SI ListeRubrique.Marque_Rubrique= Vrai ALORS
RubriquesOrigines+=SansEspace(ListeRubrique.Nom_Rubrique)+","
FIN
// Cherche dans les relation rubriques la rubrique associée
HLitRecherche(RelationRubrique,IDListeRubrique,ListeRubrique.IDListeRubrique)
SI HTrouve ALORS
HLitRecherche(ListeRubrique7,IDListeRubrique7,RelationRubrique.IDListeRubrique7)
SI HTrouve ALORS
SI ListeRubrique7.Marque_Rubrique7= Vrai ALORS
// ajoute dans la liste
RubriquesDestination+=SansEspace(ListeRubrique7.Nom_Rubrique7)+","
FIN
SI ListeRubrique7.IDAuto= Vrai ALORS
WforceID=Vrai
FIN
FIN
FIN
HLitSuivant(ListeRubrique,IDListeFichiers)
FIN
HLitRecherche(RelationFichiers,IDListeFichiers,ListeFichiers.IDListeFichiers)
SI HTrouve ALORS
HLitRecherche(ListeFichiers7,IDListeFichiers7,RelationFichiers.IDListeFichiers7)
SI HTrouve ALORS
FichierWD7=ListeFichiers7.Nom_Fichier7
FIN
FIN
// Enlève les dernières virgules
RubriquesOrigines=Gauche(RubriquesOrigines,(Taille(RubriquesOrigines)-1))
RubriquesDestination=Gauche(RubriquesDestination,(Taille(RubriquesDestination)-1))
CheminCompletWD5=CheminWD55+"\"+FichierWD55+".FIC"
// Déclaration du fichier d'origine
SI PAS HDéclare(FichierWD55 ,CheminduWDD,PasseWD55,"ALIAS"+FichierWD55)
ALORS Erreur(HErreurInfo())
FIN
// Déclaration du fichier destination
CheminCompletWD7=CheminCourtWD7+"\"+FichierWD7+".FIC"
NomAliasWD7=FichierWD7
SI PAS HDéclareExterne(CheminCompletWD7,NomAliasWD7,PasseWD7) ALORS
Erreur(HErreurInfo())
FIN
SI WforceID=Vrai ALORS
SI PAS
HImporteHF5(NomAliasWD7,FichierWD55,CheminCompletWD5,PasseWD55,CheminduWDD,PasseduWDD,RubriquesDestination,RubriquesOrigines,hCopieIdAuto+hImpConversion+hImpCréation+hImpIgnoreRubrique,Import)
ALORS Erreur("Importation impossible") FIN
SINON
SI PAS
HImporteHF55(NomAliasWD7,FichierWD55,CheminCompletWD5,PasseWD55,CheminduWDD,PasseduWDD,RubriquesDestination,RubriquesOrigines,hImpConversion+hImpCréation+hImpIgnoreRubrique,Import)
ALORS Erreur("Importation impossible") FIN
FIN
FIN
FIN
FIN
RubriquesDestination="" ;RubriquesOrigines="" ; WforceID=Faux
CheminCompletWD7="" ; CheminCompletWD5=""
// HAnnuleDéclaration(NomAliasWD7)
HLitSuivant(ListeFichiers,IDListeFichiers)
FIN

Sablier()
Jauge()
Info("Terminé")