Bonjour,
Fichier non anonymisé ... Numéro de téléphone, adresse physique, adresse mail, transaction, site, nom et prénom ... Il suffisait de mettre des *** à la place. Bref, un test tout de même. Le code vous invite à partir du classeur d'analyse, d'importer le fichier CSV (le chemin où il se trouve est a adapter) puis l'ouvre, le transforme et le colle dans le classeur d'analyse. Ensuite il suffit de maîtriser les TCD pour faire son analyse mais là je vous laisse faire en fonction de votre besoin car je n'ai pas trouvé de TVA appliquée :
Sub IMPORT()
Dim WB As Workbook
Dim FICHIER$
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = "C:\Users\****\Desktop\" 'A adapter
.Filters.Clear
.Filters.Add "Fichiers texte", "*.prn, *.txt, *.csv", 1
.Title = "Merci de sélectionner le fichier d'import"
If .Show = -1 Then
Set WB = Workbooks.Open(.SelectedItems(1))
Else
MsgBox "Aucun fichier sélectionné, fin de la procédure"
Exit Sub
End If
End With
With WB.ActiveSheet
.UsedRange.TextToColumns [A1], xlDelimited, xlDoubleQuote, Comma:=True
.UsedRange.Copy
End With
ThisWorkbook.Worksheets("BDD").[A1].PasteSpecial xlPasteValues
Application.CutCopyMode = False
WB.Close False
ThisWorkbook.RefreshAll
Application.ScreenUpdating = True
MsgBox "Mise à jour effectuée", vbInformation
End Sub
L'import se fait bien dans le classeur mais je ne suis pas certains de la compatibilité avec MAC désolé.
Cdlt,