doudou080
Messages postés15Date d'inscriptionlundi 6 mars 2017StatutMembreDernière intervention22 octobre 2017
-
Modifié le 22 oct. 2017 à 14:14
Patrice33740
Messages postés8556Date d'inscriptiondimanche 13 juin 2010StatutMembreDernière intervention 2 mars 2023
-
23 oct. 2017 à 09:27
Bonjour à tous
de nouveau parmi vous pour un petit problème.
dans une macro je fait une conversion d'un fichier TXT.
Patrice33740
Messages postés8556Date d'inscriptiondimanche 13 juin 2010StatutMembreDernière intervention 2 mars 202321 22 oct. 2017 à 15:34
Bonjour,
Essaies ce code :
Option Explicit
Sub Test()
Const adr$ = "A7:N100"
Dim wshSource As Worksheet
Dim wshCible As Worksheet
Dim rngCible As Range
Dim nomDossier As String
Dim nomFichier As String
Set wshCible = Workbooks("Gestion des reliquats.xlsm").Worksheets(1)
Set rngCible = wshCible.Cells(Rows.Count, "B").End(xlUp).Offset(1)
Set rngCible = rngCible.Resize(Range(adr).Rows.Count, Range(adr).Columns.Count)
nomDossier = "D:\moi\Gestion des reliquats\"
nomFichier = Dir(nomDossier & "TDOUAY_QSYSPRT_2017*.txt")
If nomFichier <> "" Then
Workbooks.OpenText Filename:=nomDossier & nomFichier, Origin:=xlWindows, StartRow:=1, _
DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(13, 1), Array(22, 1), Array(49, 1), _
Array(54, 1), Array(63, 1), Array(66, 1), Array(81, 1), Array(90, 1), Array(110, 1), _
Array(119, 1), Array(126, 1), Array(135, 1), Array(137, 1)), TrailingMinusNumbers:=True
Set wshSource = ActiveSheet
rngCible.Value = wshSource.Range(adr).Value
wshSource.Parent.Close False
rngCible.Cells(1, 1).Offset(0, -1).Formula = Date
End If
End S
ub
doudou080
Messages postés15Date d'inscriptionlundi 6 mars 2017StatutMembreDernière intervention22 octobre 2017 22 oct. 2017 à 18:01
bonjour
merci de votre aide
c'est tout a fait ce que je cherche.
par contre j'ai deux colonnes qui ne sont plus triées: K et M.
c'est certainement parce que j'ai des colonnes masquées:i j L N
Patrice33740
Messages postés8556Date d'inscriptiondimanche 13 juin 2010StatutMembreDernière intervention 2 mars 202321 22 oct. 2017 à 19:05
22 oct. 2017 à 18:01
merci de votre aide
c'est tout a fait ce que je cherche.
par contre j'ai deux colonnes qui ne sont plus triées: K et M.
c'est certainement parce que j'ai des colonnes masquées:i j L N
22 oct. 2017 à 19:05