[XL-2003] Variable Vs fichier CSV

Variable Vs fichier CSV

Bonjour à tous,

Je veux importer les données d'un fichier CSV dans mon classeur ce que je fais sans problème.
à la fin du code, je veux que le fichier CSV soit fermé. J'ai donc ajouté une variable afin d'obtenir le nom du fichier CSV.

Code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
CeFichier = ThisWorkbook.Name
 
 
Sheets("Réception Internet").Select
    Range("A2:AZ5001").Select
    Selection.ClearContents
    Range("A2").Select
 
Fichier = Application.GetOpenFilename("CSV Files (*.csv), *.csv")
If Fichier <> False Then
 
    Workbooks.OpenText Filename:= _
        Fichier, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:="~", FieldInfo:=Array(Array(1, 1 _
        ), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
        , 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
        Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27, 1), Array( _
        28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1), Array(34, 1), _
        Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1)), TrailingMinusNumbers:=True
        End If
 
    Range("A2:AZ5001").Select
    FichierRetour = ThisWorkbook.Name
    Selection.Copy
    Windows(CeFichier).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

La variable "FichierRetour" est la variable qui devrait contenir le nom du fichier CSV mais mais non, j'ai mon fichier .xls à la place.

Quelqu'un peut m'aider et ou m'expliquer ?

Dlight

Bonsoir.

Code:

FichierRetour = ThisWorkbook.Name

Place dans FichierRetour le nom du classeur qui contient le code. Donc tout est normal.

Peux-être voulais-tu faire

Code:

FichierRetour = ActiveWorkbook.Name

?

Cordialement,

PGZ

Dlight = :scarymov:

pgz=:ave:

Merci à vous pgz :ccool:

Dlight