Discussion :

[Oum le dauphin]

Bonjour,
Je me lance depuis peu dans la programmation VBA. Grâce à vos tutoriels j'ai pu trouver la plupart des informations dont j'avais besoin et réaliser les opérations de base . Mais il s'avère que je bloque sur un point.

Je souhaite créer un bouton qui permet d'ouvrir un fichier .txt dans une des pages d'un documents EXCEL déjà existant.

Je me suis basé sur un code trouvé sur votre site :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Option Explicit
 
Sub OuvreTxtSousExcel()
Dim Source As String, Filtre As String
Dim NumFichier As Integer
Dim TabLigne() As String, TabCol() As String
Dim Recup As String
Dim Cmpt1 As Long, Cmpt2 As Long
Dim Classeur As Workbook
 
' Ouvrir une boite de dialogue pour sélectionner le fichier .txt
Filtre = "Fichiers texte (*.txt),*.txt"
Source = Application.GetOpenFilename(Filtre, Title:="Sélection du fichier")
Application.ScreenUpdating = False
 
'Convertir le fichier texte en classeur Excel
    NumFichier = FreeFile
 
    Open Source For Binary Access Read As #NumFichier
        Recup = String(LOF(NumFichier), " ")
        Get #NumFichier, , Recup
    Close #NumFichier
 
Set Classeur = Workbooks.Add
    Classeur.Activate
        With Classeur.Worksheets(1).Cells(1, 1)
            TabLigne = Split(Recup, vbCrLf)
                For Cmpt1 = 0 To UBound(TabLigne)
                    TabCol = Split(TabLigne(Cmpt1), ",")
                        For Cmpt2 = 0 To UBound(TabCol)
                            .Offset(Cmpt1, Cmpt2).Value = TabCol(Cmpt2)
                        Next Cmpt2
                Next Cmpt1
        End With
 
Set Classeur = Nothing
 
Application.ScreenUpdating = True
End Sub

Bien entendu votre code marche à la perfection , cependant j'essaye de le modifier pour que le fichier texte que je vais chercher, ne s'ouvre pas dans un nouveau fichier EXCEL mais pas exemple dans la feuille 4 du fichier ou est présent mon bouton.
Après plusieurs tentatives j'arrive toujours sur des erreurs. Je ne voit pas très bien comment m'en sortir.

Merci de votre aide.
Alex

[Jean-Philippe André]

salut,

l'information sur l'emplacement de la feuilel dans le classeur peut se définir en remplaçant les lignes

Code :

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

1
2
3
Set Classeur = Workbooks.Add
    Classeur.Activate
        With Classeur.Worksheets(1).Cells(1, 1)

Par par exemple directement un

Code :

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

        With ThisWorkbook.Worksheets(3).Cells(1, 1)

[Oum le dauphin]

Merci bcp pour cette réponse rapide
C'est exactement ce dont j'avais besoin !
Je ne maitrise pas encore très bien ce type de taches (voir pas du tout) !

Slt