Sub importation()
Application.ScreenUpdating = False
Workbooks.OpenText Filename:= _
"G:\1009 Hôtel\Stéphane Fichiers pour Excel\Reception\importationarrivées.txt" _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, OtherChar:=",", FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7 _
, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
ActiveWorkbook.Columns("B:I").Copy
With Windows("base 2.1.xlsm").Sheets("Importation Opéra")
.Columns("A:A").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = 0
ActiveWindow.Close
End With
Windows("importationarrivées.txt").Activate
With ActiveWindow
If .Range("g102").Value Like "*vrai*" Then .Columns("G:G").Select
Selection.TextToColumns Destination:=.Range("G1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=",", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
.Range("C1:C100").Copy
Sheets("Première Page").Range("b3").PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
derlig = .Range("G" & Rows.Count).End(xlUp).Row
Set plage = .range("G2:G" & Range("G" & Rows.Count).End(xlUp).Row)
For each cel In plage
if IsEmpty(cel.offset(0, 0)) then
Exit for
Else
cel.Copy
Sheets("Première Page").Range("d3").PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = 0
End If
Next cel
.Range("e3").FormulaR1C1 = "=IF(RC[-3]>0,""Oui"","""")"
Range("e3").AutoFill .Range("e3:e100"), xlFillDefault
ActiveWindow.SmallScroll Down:=-99
.Range("C3:C100").ClearContents
.Range("J3").FormulaR1C1 = "='Mise en Page'!R[-2]C[3]"
.Range("J3").AutoFill .Range("J3:J100"), xlFillDefault
ActiveWindow.SmallScroll Down:=-84
End With
End Sub