1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| Sub prtrt()
Dim pathFichier1 As String, nomFichier1 As String, tmpStr1() As String
Dim pathFichier2 As String, nomFichier2 As String, tmpStr2() As String
'récupérer le fichier (path complet)
Select Case MsgBox("Ouvrir fichier extraction du mois courant", vbOKCancel, "Extraction du mois")
Case vbOK
pathFichier1 = Application.GetOpenFilename
If pathFichier1 <> "" Then
'ouvrir le fichier
Set leClasseur1 = Application.Workbooks.Open(pathFichier1)
'si on veux récupérer le nom du fichier :
tmpStr1 = Split(pathFichier1, "\")
nomFichier1 = tmpStr1(UBound(tmpStr1))
End If
Case vbCancel
Exit Sub
End Select
Dim derlig As Long
derlig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Range("$A$1:$A$" & derlig).Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True
End Sub |
Partager