Discussion :

[sroux]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[sroux]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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