Feuille dans un string

Version imprimable

15/05/2009, 10h23
sroux

Feuille dans un string

Bonjour,

En VBA je souhaiterais stocker le contenu d'une feuille dans une chaîne de caratère. Est-ce possible?
Le cas échéant puis-je mettre un fichier dans une chaîne (ma feuille exportée sous forme de fichier...).

Le but c'est de passer le contenu d'une feuille (le texte) dans une fonction.

Merci pour toute info ou idée!

SRoux
15/05/2009, 10h50
Krovax
Si j'ai bien compris, je dirait que oui mais il ne faut pas avoir trop de texte (je ne connais pas les variable string)

essaye
Code:

1 2 3 4 5 6 7 8 Dim cel As Range Dim montexte As String For Each cel In Range("A1:l20") If Not IsEmpty(cel) Then montexte = montexte & cel End If Next cel
Le dimensionnement de la zone est un peu baclé, je te laisse utiliser la méthode la plus approprié a ton fichier (plein de solution ici)

Merci Krovax pour ta réponse et pour le lien très intéressant.

Finalement j'exporte mon onglet vers un fichier texte que je relis dans une variable grâce au code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
' Read a file into a string
Public Function IosFileReadStr(ByRef strPathName As String) As String
 
    Dim hFile As Integer
    Dim strData As String
    On Error GoTo ErrHandler
 
    ' Get a free file handle
    hFile = FreeFile
    ' Open file
    Open strPathName For Binary Access Read As hFile
    ' Get file contents
    strData = Space$(FileSystem.FileLen(strPathName))
    Get #hFile, , strData
    ' Close file
    Close hFile
 
    IosFileReadStr = strData
    Exit Function
 
ErrHandler:
    IosFileReadStr = "Erreur dans la lecture du fichier"
End Function