Ouvrir un fichier cvs via un chemin relatif

Bonjour,

j'ai utilisé ce code; seulement j 'aimerais, a la place d'utiliser un chemin absolu, utiliser un chemin relatif.
Imbécile que je suis je pensais qu'en retirant une partie du chemin absolu,j'allais avoir un chemin relatif. Ce n'est pas le cas, que devrais-je faire pour
que nimporte qui ayant le fichier cvs sur son ordinateur puisse y acceder sans probleme ?

Sub integration()

Dim FileNamePath As Variant
Dim textline, csvline() As String
Dim Rowcnt, ColumNum As Integer
Dim ch1 As Long
Worksheets("Sheet3").Cells.Clear
ch1 = FreeFile
FileNamePath = ".\CVS.csv"
Open FileNamePath For Input As #ch1
Rowcnt = 6
Do While Not EOF(ch1)
Line Input #ch1, textline
csvline() = Split(textline, ",")
Range(Worksheets("Sheet3").Cells(Rowcnt, 26),
Worksheets("Sheet3").Cells(Rowcnt, UBound(csvline()) + 1)) = csvline() Rowcnt = Rowcnt + 1
loop
end sub

je vous remercie d'avance pour votre aide

Bonjour,

La formulation n'importe ou sur le pc de n'importe qui n'est pas un chemin relatif. Il faut une certaine logique à Excel pour pouvoir trouver.

Votre seule solution est d'imposer que votre fichier excel macro soit enregistré au même endroit que le fichier CSV.

Ensuite vous pourrez utiliser par défaut le chemin du fichier excel ouvert pour trouver le csv. :

Sub integration()
Dim FileNamePath As String
Dim chemin as String
Dim textline, csvline() As String
Dim Rowcnt, ColumNum As Integer
Dim ch1 As Long
Worksheets("Sheet3").Cells.Clear
ch1 = FreeFile
Chemin=Thisworkbook.path
FileNamePath = "\CVS.csv"
Open chemin & FileNamePath For Input As #ch1
Rowcnt = 6
Do While Not EOF(ch1)
Line Input #ch1, textline
csvline() = Split(textline, ",")
Range(Worksheets("Sheet3").Cells(Rowcnt, 26),
Worksheets("Sheet3").Cells(Rowcnt, UBound(csvline()) + 1)) = csvline() Rowcnt = Rowcnt + 1
loop
end sub