A voir également:
- Question en vba !!!
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Dépassement de capacité vba ✓ - Forum Excel
9 réponses
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!
PS: g repondu selon ma comprehesion du sujet, psq ca reste un pti peu ambigue ta question!
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
En fait c'est mon projet de stage que je fini la semaine prochaine.
Cordialement
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
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
