Question en vba !!!

bon si tu en aura besoin de l'historique tu x faire de telle sorte à parcourir le fichier (en utilisant le end of file) c a d en arrivant à la fin du fichier il commence à ecrire en dessous .. sinn si tu en auras pas besoin de l'historique tu px le vider et ecrire la dedans!

PS: g repondu selon ma comprehesion du sujet, psq ca reste un pti peu ambigue ta question!

Oui merci c'est bien ce que j'ai demandé je vais testé pour voir.

Je sais pas vraiment comment écrire le code en fait.

Columns("A:U").Select
Selection.Copy

'Transfert de l'enregistrement du mois à l'enregistrement général
ThisWorkbook.Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Au début j'ai pensé au code suivant
wsEG.Cells(nbre2 + 2, 1).Resize(nbre, 21).Value = wsEDM.Cells(2, 1).Resize(nbre, 21).Value

Euuh pr ne po cmmencer à halluciner et si tu n'es pas pressé demain matin je te filerai la bonne reponse! psq g oublié un petit peu le codage en VBA

Oui merci je t'empri et j'espère que tu pourras m'aider.
En fait c'est mon projet de stage que je fini la semaine prochaine.

Cordialement

bonne chance!! donc demain je t'enverrai la solution! je ferai de mon mieux!!

Bon voilà un code qui permet de copier un fihier txt dans un fichier excel!!(si je me rappelle bien du code ca a très bien marché) tu px l'adapter selon ton besoin!

Private Sub cmdTextEXCEL_Click()
Dim EX As New Application
Dim Book As Workbook
Dim Feuille As Worksheet
Dim i As Integer
Dim ff As Integer
Dim Contenu As String
Dim TB
Dim s As String
Dim P As Integer
Dim d As String
Dim Trouve As Boolean

ff = FreeFile
Open "chemin du fichier source" For Input As #ff
Contenu = Input$(LOF(ff), #ff)
Close #ff
'initV
'Contenu = Transfert
d = "ENU"
For i = 1 To Len(Contenu) - 2
If Mid(Contenu, i, 3) = d Then
Trouve = True
Exit For
End If
Next i
If Trouve Then
s = Mid(Contenu, i)
TB = Split(s, " ")
P = UBound(TB)
End If
Set EX = CreateObject("Excel.application")
EX.Visible = True

Set Book = EX.Workbooks.Add
Set Feuille = Book.Sheets(1)
With Feuille
For i = 0 To UBound(TB)
.Cells(1, i + 1) = TB(i)
Next i
End With
End Sub

Bonjour

Merci pour l'aide meme si je ne suis pas un expert en vba mais un débutant, je vais essayer de voir si je peux faire autrement
car je ne comprends pas le code.

Cordialement

Est ce qu'avec ce code je peux prendre tout le tableau jusqu'à la dernière ligne rempli de la feuille wsEDM?
J'ai définit
dim table as range

nbre = wsEDM.Cells(Rows.Count, 2).End(xlUp).Row - 1
Set table = wsEDM.Cells(2, 1).Recize(nbre, 21)