Bonjour à tous,
je souhaiterai compiler les 3 macros suivante en 1 :
1- Workbooks.Open Filename:= ThisWorkbook.Path & "\export.csv"
-----------------------------------------------------------------
2- Sub test()
Dim classeurSource As Workbook, classeurDestination As Workbook
Set classeurSource = Application.Workbooks.Open("C:\Documents and Settings\fr01060\Desktop\export.csv")
Set classeurDestination = ThisWorkbook
classeurSource.Sheets("export").Cells.Copy classeurDestination.Sheets("Feuil1").Range("A1")
classeurSource.Close False
End Sub
ici je souhaiterai garder uniquement la copie à faire
-----------------------------------------------------------------------
3- Sub Distribuer()
With Range("$A$1:$A$57")
.RemoveDuplicates Columns:=1, Header:=xlYes
.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 9), Array(5, 9), Array(6, 1), _
Array(7, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=False
End With
End Sub
D'avance merci de votre aide.
je souhaiterai compiler les 3 macros suivante en 1 :
1- Workbooks.Open Filename:= ThisWorkbook.Path & "\export.csv"
-----------------------------------------------------------------
2- Sub test()
Dim classeurSource As Workbook, classeurDestination As Workbook
Set classeurSource = Application.Workbooks.Open("C:\Documents and Settings\fr01060\Desktop\export.csv")
Set classeurDestination = ThisWorkbook
classeurSource.Sheets("export").Cells.Copy classeurDestination.Sheets("Feuil1").Range("A1")
classeurSource.Close False
End Sub
ici je souhaiterai garder uniquement la copie à faire
-----------------------------------------------------------------------
3- Sub Distribuer()
With Range("$A$1:$A$57")
.RemoveDuplicates Columns:=1, Header:=xlYes
.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 9), Array(5, 9), Array(6, 1), _
Array(7, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=False
End With
End Sub
D'avance merci de votre aide.