Ouvrir plusieurs fichier csv d'une arborescence

bonjour,

je me permet de solliciter votre aide,

j'ai chercher une réponse sur le cite mais étant novice je ne suis pas arriver a modifier les vba que j'ai trouver pour les adaptées a mon problème.

je veut en cliquant sur un bouton accéder a un dossier prédéfini, faire afficher son arborescence pour sélectionner un dossier et ouvrir tout les fichier csv se trouvant dans l’arborescence descendent de celui ci, chaque csv doit s'ouvrir dans un onglet différent, l'onglet doit avoir le nom de la case A,1, ci quelqu'un pouvait m'aider ça m’enlèverais une épine du pied.

merci par avance pour vos réponses

bonjour

apres des recherches et quelques modifs je suis presque arrive a mes fins, mais mon CSV ne s'ouvre pas avec les separateurs, et je voudrais que la recherche des .CSV se fasse aussi dans les sous dossiers.

Par avance merci de vos réponses.

Bonsoir,

il te faut les déconcaténer

Sub deconcat()

'

' deconcat Macro

With ActiveSheet

Columns("A:A").Select

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _

FieldInfo:=Array(Array(0, 1), Array(43, 1), Array(50, 1), Array(57, 1), Array(64, 1), _

Array(71, 1), Array(78, 1), Array(85, 1), Array(92, 1), Array(99, 1), Array(106, 1)), _

TrailingMinusNumbers:=True

End Sub

Rechercher des sujets similaires à "ouvrir fichier csv arborescence"