Tout d'abord, merci aux tenanciers de ce lieu, c'est une mine d'informations !
Etant un piètre développeur en herbe en VBA / Excel, je bloque sur un problême qui ne doit pas être bien compliqué à résoudre:
Présentation du cas: Je travaille sur une importation de fichier texte puis un découpage (via TexttoColumns) en utilisant une suite "array".
Cette suite du style :
sera dynamique car j'ai en amont du découpage une reconnaissance de la structure de découpage dans un tableau annexe.
Pour palier au problême du Array dynamique, je reproduis (via une boucle) la syntaxe complète du futur contenu du parametre "Array( ... ) ce qui me donne quelque chose comme ça :
Sub decoupesuivantligne(syntaxperso As String)
Worksheets("feuil2").Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(syntaxperso), TrailingMinusNumbers:=True 'termine la syntaxe de formule
'Application.Run testfonction
End Sub
Problême : l'execution de la ligne Selection.TextToColumns produit aucun découpage aque que si je reconstitue la commande avec les valeurs de "syntaxperso" dans la ligne "Selection.TextToColumns..." , le découpage se déroule correctement.
Est ce grave Docteur ?
Est il possible d'intégrer une variable dans les paramètres de la fonction TextToColumns ?
Aurais je oublié quelque chose ?
sub mafonction()
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(syntaxperso), TrailingMinusNumbers:=True
end sub