Bonjour,
J'ai un script qui permet d'importer un fichier au format csv et de le nettoyer afin de le mettre dans un certain format.
Ce script a d'abord été fait sur PC en Excel 2007, puis adapté pour fonction sur PC en Excel 2016. Jusque là tout va bien.
Maintenant on me demande à pouvoir l'utiliser depuis un Mac, version d'Excel 16.23.
Quand je l'exécute j'ai une erreur 1004 et ça fait 4 jours que je cherche et que je n'arrive pas à la résoudre.
Vous trouverez le début du script ci-dessous.
'
' Import du fichier issu de Mailchimp
'
fileToOpen = Application.GetOpenFilename()
If fileToOpen <> False Then
Workbooks.OpenText Filename:=fileToOpen
End If
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, Destination:=Range("A1"))
.Name = "members_export"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
' .PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
' .RefreshPeriod = 0
.TextFilePromptOnRefresh = False
' .TextFilePlatform = -535
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
' .TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Pouvez-vous m'aider ?
Merci d'avance,
Olivier.