Re : erreur"nom de champ introuvable ou incorrect dans la plage d'extraction"
Merci
J'ai une autre erreur 1004 "erreur de finie par l'application ou par l'objet"
Sub CreeListeEpreuvesCompétition()
Dim catSource, codeSource, epreuveSource
Dim Cat, coDe, codeFamille As String, codeFamilleSpecial As String, codeFormat As String
Dim nomEpreuveSimplifié As String, codeSimplifié As Integer
Dim nomFichier As String, desCription As String, reTour As String, eMailRetour As String
Dim préFixe As String, numVersionFichierTexte As String, comMentaire As String
Dim i As Integer, e As Integer, ie
Dim nbCat As Integer, nbEpreuves As Integer
Dim wEpLogica As Range, weprLogica0 As Range
Dim nB As Integer, épreuVe As String
Dim wEpreuvesSimplifiées
Dim Msg, Style, Title, Réponse, fichierExiste
ThisWorkbook.Sheets("interface").Range("versionFichierTexte").Value = _
"version du fichier texte : " & numVersionFichierTexte
'
ChDir ActiveWorkbook.Path
With ThisWorkbook.Sheets("Epreuves")