Discussion :

[zouille]

Bonjour a tous

Voila, j'avais un projet VBA qui permettais de traduire un fichier text contenant des codes mais pour cela je devais au préalable ouvrir le fichier TXT puis copier son contenu avant de lancer la marco.

Aujourd’hui j'aimerais, faire cela en plusieurs étape mais je rencontre un problème pour mettre le contenu en mémoire.

Mon USF contient 2 Cmbutton et un Textbox

1- Recherche du fichier TXT a partir du Cmb1 OK

Code :

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

Pathsource = Application.GetOpenFilename(FilFilter:="(*.txt),*.txt")

2- Ouverture du fichier OK

Code :

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

1
2
FileNum = FreeFile
Open Pathsource for input as #FileNum

3- Lecture du fichier : OK

Code :

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

1
2
3
4
While not EOF(FileNum)
Line Input #FileNum, TmpStr
Textbox = Textbox & TmpStr & vbCrLf
Wend

A ce niveau pas de problème, mon fichier texte se copie bien dans le textbox mais c'est après pour le copier dans le presse papier que ca pose problème,
Car la suite de la macro fait appel a du texte copier dans le presse papier

Code :

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

1
2
3
 
Range'("A1").select
ActiveSheet.paste

J'ai essayer avec la commande Clipboard.setText et Clipbord.GetText mais ca ne fonctionne pas en VBA apparemment

Qqun a une idée ?
MErci

[joe.levrai]

Et si tu transfères le contenu du Textbox dans une cellule Excel ?

Ensuite tu peux récuppérer le contenu autant de fois que nécessaire, et supprimer le contenu de la cellule à la fin de la macro ?

[Docmarti]

Bonjour zouille;

J'ai essayer avec la commande Clipboard.setText et Clipbord.GetText mais ca ne fonctionne pas en VBA apparemment

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
24
Public Function settextPutInClipboard(contenu)
 
On Error Resume Next
If contenu = "" Then Exit Function
Dim Presspp As New MSForms.DataObject
 
Set Pressp = New DataObject
 
Presspp.settext contenu
Presspp.PutInClipboard
 
End Function
 
 
Public Function GetTextFromClipboard()
 
On Error Resume Next
 
Dim Presspp As New MSForms.DataObject
 
Presspp.GetFromClipboard
GetTextFromClipboard = Presspp.GetText
 
End Function

[zouille]

merci pour vos réponses

Le but étant de copier le contenue du textbox dans une page excel ( pas dans une seul cellule mais une ligne dans une ligne) : j'ai bien essayer

Code :

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

range("A1") = textbox.text

mais ca ne fonctionne pas.

Je vais essayer ton code

merci

[zouille]

Re

C'est bon, ca fonctionne : merci pour le code

J'ai juste utiliser la première partie : settextPutInClipboard
car pour coller ce text dans la page excel, j'utilise simplement la commande "paste"

merci

[Marc-L]

Bonjour, bonjour,

en fait il y a bien plus simple et rapide :

• lecture du fichier texte en mémoire dans une variable tableau

• traitement sur les éléments du tableau

• affectation directe du tableau dans une feuille de calculs …

Bref, pas besoin de Copier / Coller …

[zouille]

merci de ta reponse
Disons que je voulais afficher le contenue du fichier text dans le textbox afin que l’opérateur puisse vérifier que le fichier sélectionné est bien le bon et donc ensuite ( avec un Cmbutton) valider ce fichier .
Je n'avais trouvé que le copier/coller pour renvoyer le contenu du textbox dans une page excel ( et oui, un débutant cherche toujours une solution simple : quoique !!!) car la suite de la macro analyse ligne par ligne les données collées.

PS : Au passage, est il possible de supprimer certaines lignes d'un textbox qui ne me servent pas dans ma conversion ? ( disont toutes les ligne se trouvant avant celle commençant par : "A - "

Merci