Discussion :

[devilprinprin]

Bonjour à tous,

Je suis en train de réaliser une matrice d'affrètement (matrice capable de calculer les métrages nécessaires afin d'expédier les commandes des clients en réduisant le coût "transport".

tout d'abord, Elle fonctionne mais je souhaiterai améliorer certains points. Ne connaissant trop rien à VB, je me suis auto-formé grâce a ce forum. je tiens à vous dire Merci.

Revenons au sujet:

Je dois importer un fichier type .csv qui change de nom tous les jours, je dois l'importer, cocher "point-virgules" ainsi que mettre un filtre automatique.
je ne peux créer de requêtes SQL, ni utiliser ACCESS, le PC n'est pas en administrateur et c'est du EXCEL 2000.

Pour l'instant je réalise la manipulation manuellement et cela marche très bien, mais je veux l'automatiser jusqu'au bout.

Merci d'avance,

Nicolas

[delphine35]

Je dois importer un fichier type .csv qui change de nom tous les jours

Il change comment de nom ? Il faudrait le format du nom du fichier ou un exemple...

je dois l'importer, cocher "point-virgules" ainsi que mettre un filtre automatique

Tu as essayé "enregistrer une macro" ?
Sinon, tu le fait sur 1 fichier puis tu nous post la macro généré pour que l'on puisse la modifier.


----
Ce soir je suis en vacances

[devilprinprin]

Le fichier apparait sous ce nom: etacamstk.20100728.1308 et donc l'heure n'est pas régulière et le mois et le jour change!!!!
je le copie le colle dans le fichier de la macro et je le renomme ETACAMSTOCK et j'active ma macro. j'ai fait une macro afin d'importer ce fichier renommé, mais je ne voudrais plus faire cette manip.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
      Sheets("ETACAM").Select
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;P:\ETACAM\ETACAMSTOCK.", _
        Destination:=Range("A1"))
        .Name = "ETACAMSTOCK._48"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
 
        .Refresh BackgroundQuery:=False
    End With
    Selection.AutoFilter
    Sheets("ETACAM").Select

et une fois sur 4 la ligne " .Refresh BackgroundQuery:=False" bloque mon programme !!!!!

Merci