Microsoft 365 Formatage base de données Football

[Phytoman]

Bonjour et merci pour toute l'aide déjà apportée jusqu'ici.

Dernière ligne droite, l'import des données de la fédération belge de Foot.
Les fichier Excel importés depuis la fédération de football belge ne sont pas exploitables en l’état.
Cette macro pourrait être dans un seul fichier, dans quel cas je devrais systématiquement faire un copier-coller des données reçues, soit propre à tous les classeurs, ce qui en faciliterait la tâche.
Il me faudrait les adapter comme suit :

• Remplacer la colonne J (club visité) et K (club visiteur) par la concaténation suivante (ou ajouter deux colonnes) :
• Nom de fichier= (voir liste plus bas) -->initiales
• DIV = forcer à 5 caractères - Si <, ajouter des 0 avant (éviter risques de doublons)
• Matricule = forcer à 5 caractères - Si <, ajouter des 0 avant
• Liste des initiales des noms de fichier :
  • lieresdownP = lg
  • hairesdownP = ht
  • namresdownP = na
  • brwresdownP = bw
  • luxresdownP = lu

Ce qui donne : lg0003a08422

D’autres noms de fichier pourraient y être ajoutés ultérieurement
en annexe les résultats de la semaine pour la province de Liège.
Merci de votre aide

 

[Phytoman]

Bonsoir Phytoman,
Désolé pour le retard.
C'est quoi les fichiers de province ? Je ne connais que le fichier générateur dans lequel la macro marche impeccable.
Cette macro suppose qu'il n'y a qu'une seule feuille dans le fichier, comme vous l'avez demandé.

 

[Phytoman]

Bonjour Sylvain.
Merci encore pour votre implication
En fait, précédemment, lorsque j'ouvrais le fichier générateur et activait les macros, il me suffisait de télécharger le fichier LieresdownP (ou autres) et en faisant Alt F8, il utilisait les macros du générateur pour tout générer dans le fichier téléchargé. A présent, il affiche cette erreur ?

 

[sylvanu]

Oui, j'avais compris. Mais si vous utilisez le fichier du post #43 ça marche.
Alors avec quel fichier ça pose problème ?
Vous pouvez le poster ?

 

[Staple1600]

Bonjour le fil,

[Pour infos]
Si la feuille n'existe pas, c'est normal comme message d'erreur

Sub test()
TLI = Sheets("Achtung, Baby!!!").Range("R:R").End(xlDown).Row
MsgBox Range("S2:R" & TLI).Address
End Sub

J'obtiens le même message
(sur n'importe quel classeur où la feuille indiquée dans le code n'existe pas)

 

[sylvanu]

Bonjour Staple,
Oui mais la page est censée exister.
Elle est censée être unique et je récupère le nom avec :

For Each feuille In Worksheets
    NomFeuille = feuille.Name
Next feuille

( au départ il y en avait deux, maintenant pour des problèmes d'outil d'import il n'y en a plus qu'une.)
Le fichier du post #43 est censé avec la bonne structure.
Le problème est que Phytoman ne donne les infos qu'au goutte à goutte.

 

[Staple1600]

Bonsoir (pas encore mais c'est pas grave) sylvanu

J'ai juste vu la copie d'écran du message#44 et tenter de reproduire le message d'erreur.
Mon test m'a juste fait déduire que c'était lié à l'absence d'une feuille.
J'ai donc simplement livré l'info.
(Mais peut-être me suis-je trompé )

 

[Phytoman]

Bonjour le fil,

[Pour infos]
Si la feuille n'existe pas, c'est normal comme message d'erreur

Sub test()
TLI = Sheets("Achtung, Baby!!!").Range("R:R").End(xlDown).Row
MsgBox Range("S2:R" & TLI).Address
End Sub

J'obtiens le même message
(sur n'importe quel classeur où la feuille indiquée dans le code n'existe pas)

En pièce jointe le fichier générateur et un fichier tel téléchargé chaque semaine (9 provinces, 1 fichier par province).

 

[sylvanu]

Votre fichier Générateur est faux : C'est l'ex que je vous ai montré pour les ID dans lequel figure :

    Sheets("result").Range("A:A").Cells(Ligne, 1) = Visité
    Sheets("result").Range("B:B").Cells(Ligne, 1) = Initiale & Division & Matricule
    
    'CALCUL DE L' ID
    ID = Fonction à dévellopper
    
    Sheets(SheetName).Range("L" & Ligne) = ID
    Sheets(SheetName).Range("M" & Ligne) = Initiale & Division & Matricule

Voir Post #36 !

Donc vous prenez le fichier générateur du post #43.
Vous effacer les colonnes A.
vous importez les colonnes A:K de lieredownP, Vous mettez çà jour la liste des ID en colonnes R:U.
Vous faites ALT+F8 et lancer AjouterData. Et ça marche. Résultat en PJ.

Ce que je ne comprends pas :
1- C'est vous qui ne vouliez qu'une page dans Générateur.
2- C'est vous qui vouliez un calcul des ID.
3- C'est vous qui avez mis en place dans Générateur la table des ID.
et vous me ressortez un fichier générateur bidon qui était pour exemple et qui date de longtemps déjà.

Donc je jette l'éponge. Peut être que quelqu'un de moins stupide que moi arrivera à vous suivre.
Bonne continuation.