J
jo
Guest
Bonjour à tous & toutes
mon échéque me fait revenir dans ce forum bien utile.
A partir d'un fic. srce libre, je dois le mettre automatiquemnt sous form
excel pr le traiter.
Renato (y a 3 ou 2 sem.) m'a donné un code qui marche bien :
Et que je salut en passant!
Sub MacroJo()
'
' Macro1 Macro
' Macro enregistrée le 04/05/2004 par Rénato'
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2))
Range("C12").Select
End sub
MAIS comme mon code (cf ci dessous) celà marche trés bien jusqu'à je ne suis pas sur d'ailleur si c la longeur du contenu des colonne, un jour j+N,
ça barre carrément à travers; le découpage des colonnes se fait de travers:
ANCIEN CODE:
Workbooks.OpenText FileName:=MonCheminRapIntas & NomIntasFx, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(10, 1), Array(24, 1), Array(38, 1), Array(49, 1),_
Array(81, 1), Array(107, 1), Array(121, 1), Array(163, 1), Array(180, 1), _
Array(203, 1), Array(220, 1), Array(237, 1), Array(252, 1), Array(268, 1), _ Array(281, 1), Array(294, 1), Array(306, 1), Array(322, 1), Array(342, 1), _ Array(369, 1), Array(389, 1))
Je suis désolé mais je ne peux pas sortir 1 exple de fic srce (confidentiel :-().
Est ce qu'il aurait un autre moyen de mettre sous forme excel un tel fic. comportant plusieurs colonnes et des données succeptible de changer de longeurs?
Merci pour votre aide et toutes propositons sont le bienvenue.
VBA, lecture ligne/ ligne ....
mon échéque me fait revenir dans ce forum bien utile.
A partir d'un fic. srce libre, je dois le mettre automatiquemnt sous form
excel pr le traiter.
Renato (y a 3 ou 2 sem.) m'a donné un code qui marche bien :
Et que je salut en passant!
Sub MacroJo()
'
' Macro1 Macro
' Macro enregistrée le 04/05/2004 par Rénato'
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2))
Range("C12").Select
End sub
MAIS comme mon code (cf ci dessous) celà marche trés bien jusqu'à je ne suis pas sur d'ailleur si c la longeur du contenu des colonne, un jour j+N,
ça barre carrément à travers; le découpage des colonnes se fait de travers:
ANCIEN CODE:
Workbooks.OpenText FileName:=MonCheminRapIntas & NomIntasFx, Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(Array(0, 1), Array(10, 1), Array(24, 1), Array(38, 1), Array(49, 1),_
Array(81, 1), Array(107, 1), Array(121, 1), Array(163, 1), Array(180, 1), _
Array(203, 1), Array(220, 1), Array(237, 1), Array(252, 1), Array(268, 1), _ Array(281, 1), Array(294, 1), Array(306, 1), Array(322, 1), Array(342, 1), _ Array(369, 1), Array(389, 1))
Je suis désolé mais je ne peux pas sortir 1 exple de fic srce (confidentiel :-().
Est ce qu'il aurait un autre moyen de mettre sous forme excel un tel fic. comportant plusieurs colonnes et des données succeptible de changer de longeurs?
Merci pour votre aide et toutes propositons sont le bienvenue.
VBA, lecture ligne/ ligne ....