Erreur dans script d'import de fichier csv

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.

Bonjour,

Normal je pense, les options Mac ne doivent pas être les mêmes et là je ne peux pas t'aider

C'est sur la méthode Refresh que le problème se produit.

Re,

C'est que dans ta requête quelque chose n'est pas compris

Rechercher des sujets similaires à "erreur script import fichier csv"