Mikayel
XLDnaute Nouveau
Bonjour à tous,
J'ai créé une macro récemment qui importe un CSV sur une feuille déterminée avec des paramètres requis pour l'exploitation du CSV, le problème est que ce fichier sera toujours à coté du classeur excel (dans le même dossier) et je ne sais pas comment dire à Excel "chercher dans le même dossier, CE nom de fichier" (Car si je bouge mon classeur, le chemin ne s'adapte pas en fonction).
Voici ma macro:
Je débute totalement en VBA, j'ai cherché toute la matinée sur internet, je n'arrive pas à modifier mon code pour définir ce type de chemin.
Pourriez-vous m'aider?
Merci infiniment,
Michaël
Sur Excel 2003 (sans module supplémentaire)
J'ai créé une macro récemment qui importe un CSV sur une feuille déterminée avec des paramètres requis pour l'exploitation du CSV, le problème est que ce fichier sera toujours à coté du classeur excel (dans le même dossier) et je ne sais pas comment dire à Excel "chercher dans le même dossier, CE nom de fichier" (Car si je bouge mon classeur, le chemin ne s'adapte pas en fonction).
Voici ma macro:
Code:
Sub Import()
Range("A5:Z65000").Select
On Error Resume Next
Selection.QueryTable.Delete
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\XXX\Bureau\nva.csv", Destination:= _
Range("A5"))
.Name = "nvaview"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Je débute totalement en VBA, j'ai cherché toute la matinée sur internet, je n'arrive pas à modifier mon code pour définir ce type de chemin.
Pourriez-vous m'aider?
Merci infiniment,
Michaël
Sur Excel 2003 (sans module supplémentaire)