A voir également:
- Question en vba !!!
- Excel compter cellule couleur sans vba - Guide
- Mkdir vba ✓ - Forum VB / VBA
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
- Vba range avec variable ✓ - Forum VB / VBA
- Autofill vba ✓ - Forum Excel
9 réponses
mya1
Messages postés
334
Date d'inscription
samedi 5 juillet 2008
Statut
Membre
Dernière intervention
28 janvier 2013
42
3 juin 2009 à 16:42
3 juin 2009 à 16:42
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
mya1
Messages postés
334
Date d'inscription
samedi 5 juillet 2008
Statut
Membre
Dernière intervention
28 janvier 2013
42
3 juin 2009 à 17:03
3 juin 2009 à 17:03
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
mya1
Messages postés
334
Date d'inscription
samedi 5 juillet 2008
Statut
Membre
Dernière intervention
28 janvier 2013
42
3 juin 2009 à 17:14
3 juin 2009 à 17:14
bonne chance!! donc demain je t'enverrai la solution! je ferai de mon mieux!!
mya1
Messages postés
334
Date d'inscription
samedi 5 juillet 2008
Statut
Membre
Dernière intervention
28 janvier 2013
42
3 juin 2009 à 17:25
3 juin 2009 à 17:25
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
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
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
