ruri | J'ai une autre question : comment faire pour demander l'ouverture d'un fichier (genre une fonction VB qui demanderait la localisation du fichier) à la macro excel tout en conservant les paramètres de "formatation" du fichier TXT ? Après avoir enregistré la macro, j'ai le code suivant :
Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 22/01/2007 par
'
'
Code :
- Workbooks.OpenText Filename:= _
- "D:\Mes Documents\Automate\20060630_LBG1_0801_MB51.txt", Origin:=xlWindows, _
- StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
- ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
- Space:=True, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 2), _
- Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _
- Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15 _
- , 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2), Array(21, 2), _
- Array(22, 2), Array(23, 2), Array(24, 2), Array(25, 2), Array(26, 2), Array(27, 2), Array( _
- 28, 2)), TrailingMinusNumbers:=True
- ActiveCell.Offset(-8, -5).Range("A1" ).Select
- ActiveCell.FormulaR1C1 = "=R[-1]C[1]"
- ActiveCell.Offset(1, 0).Range("A1" ).Select
- ActiveCell.FormulaR1C1 = "=R[-1]C[1]"
- ActiveCell.Offset(-1, 0).Range("A1:A2" ).Select
- Selection.AutoFill Destination:=ActiveCell.Range("A1:A65536" ), Type:= _
- xlFillDefault
- ActiveCell.Range("A1:A65536" ).Select
- ActiveCell.Columns("A:A" ).EntireColumn.Select
- ActiveCell.Offset(24984, 0).Range("A1" ).Activate
- Selection.Copy
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- End Sub
|
Merci !
Message édité par ruri le 13-03-2008 à 18:11:44
|
