Discussion :

[deckard24]

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

[Invité]

l'enregistreur de macro te répondra plus vite que moi!

[Marc-L]

Bonjour, bonjour,

s'il s'agit d'une version française d'Excel, ajouter tout simplement le paramètre Local:=True pour la méthode Open …

[Docmarti]

Bonjour deckard24; et tous

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.

Essaie aussi avec 4 dans le paramètre [Format], comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub OuvrirTextDansNouveauClasseur(fichier)
 
virgule = 2: point_Virgule = 4 ' Paramètre Format:
 
Set wb = Workbooks.Open(fichier, , , point_Virgule, , , True, , , , , , False, local:=True)
 
End Sub

Cordialement

Docmarti

[deckard24]

Bonjour
En mettant le paramètre local = true cela s'est résolu et le tableau a bien repris une forme de tableau.
Merci à tous de votre aide