Bonsoir Thierry, et bonsoir à tous !
Je viens d'essayer ça marche super bien ! Merci beaucoup !
Par contre j'ai essayé de faire quelques modif mais je n'ai pas réussi à toutes les faire .
J'ai donc réussi à modifier à 30 colonnes, puis à débuter mon export à partir de la colonne B et de la ligne 2 plutôt qu'à partir de la colonne A et de la ligne 1 (car pas besoin de fichier .txt pour la première colonne, et la ligne 1 des fichier .txt doit correspondre à la ligne 2 du excel).
Par contre j'ai n'ai pas réussi à modifier le nom des fichiers exportés (chaque fichier .txt exporté doit avoir comme nom ce qui est écrit dans la cellule de la ligne 1 de la colonne exporté).
Pour prendre un exemple, si j'ai "Toto1" en B1, "Toto2" en B2, "Toto3" en B3, le fichier exporté pour la colonne B doit s'appeler Toto1, la première ligne du fichier .txt doit être Toto2, et la deuxième ligne du fichier.txt doit être Toto3.
Sais-tu me dire ce que je dois modifier, je pense que c'est dans la ligne ci-dessous, mais je ne sais pas comment dire de donner au fichier .txt le nom de la première cellule de la colonne exportée :
FileNameCible = CheminCible & WSSource.Name & "_Colonne-" & c & ".txt"
Open FileNameCible For Output As #1
Et si je souhaite mettre d'autres onglets qui ne seront pas exportés non plus, je pense que je dois ajouter leur nom ici :
If WSSource.Name <> "INTERFACE" Then
Mais est-ce que je dois séparer les noms des onglets par des espaces, des virgules, des points ? :
If WSSource.Name <> "INTERFACE", "ONGLET1", "ONGLET2" Then
Merci beaucoup pour ton aide !