Bonjour
Dans le cadre de mon travail, on me demande d'automatiser une analyse de donnée.
j'ai commencé a fabriquer une macro pour récuperer les données d'un fichier d'extraction et le disposer à l'emplacement prévu pour l'analyse.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CommandButton1_Click()
 
    Dim objFile As String
    Dim curSheet As Worksheet
    Dim mWorkbook As Workbook
    objFile = Application.GetOpenFilename(fileFilter:=" (* . *) , * . * ")
 
    If Len(Dir(objFile)) = 0 Then Exit Sub
    Worksheets("donnees").Activate
    Set curSheet = ActiveSheet
    Set mWorkbook = Workbooks.Open(objFile)
 
    ActiveSheet.UsedRange.Copy Destination:=curSheet.Range("A1")
 
    ActiveWorkbook.Close
 
End Sub
Mon problème est que le fichier de départ est un CSV avec comme séparateur des points virgule. J'aimerai qu'il en tienne compte afin de formater le tableau.
Est ce possible?
Si oui, que dois je ajouter à ma macro
Je vous en remercie par avance