cs_le cafard10
Messages postés jeudi 15 février 2007Date d'inscription
18 mars 2010
Dernière intervention
-
18 mars 2010 à 11:49 - Dernière réponse : Renfield17308
Messages postés mercredi 2 janvier 2002Date d'inscription
22 août 2018
Dernière intervention
- 18 mars 2010 à 16:51
J'écris une procédure d'export des données en VBA sous Access vers un fichier plat.
Je souhaite exporter un champ Mémo en le taillant à une largeur fixe (72 caractères par ligne).
Pour cela je souhaite passer par un tableau de String.
1) Existe-t-il une fonction équivalente à Split ?
J'utilise Left et Mid mais je ne connais pas la dimension de mon Tableau.
2) Comment définir la variable "Dim Tableau() as String" ?
Chaine = " "
Dim Tableau() as String
Dim nCount As Long
nCount = Len(Chaine)\72
Redim Tableau(nCount-1)
For i = 0 to nCount -1
Tableau(i) = Mid$(Chaine, 1+i*72, 72)
Next
Merci Renfield et bravo pour ta rapidité (en moins d'1/4 heure).
Je ne connaissais pas la l'instruction ReDim.
Sinon il n'est pas nécessaire de mettre "-1".
Voici la version finale :
Public Sub CoupeChaine(Chaine As String)
Dim Tableau() as String
Dim nCount As Long
nCount = Len(Chaine)\72
Redim Tableau(nCount)
For i = 0 to nCount
Tableau(i) = Mid$(Chaine, 1+i*72, 72)
Next
End Sub
a aidé 96 internautes ce mois-ci