Bonjour à tous,
j'aurais souhaité savoir comment faire et par moyen inserer une base de données dans un document excel à partir d'un serveur.
Je m'explique: pour le moment, je telecharge ma base a partir d'un site web et l'insere dans une feuille comme ceci:
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub Weekly()
'Import de .CSV et mise en forme
 
Dim f As Variant
 
f = Application.GetOpenFilename("csv Files (*.csv), *.csv")
 
If f = False Then Exit Sub
 
Workbooks("final").Worksheets("Data").Activate
ActiveSheet.Cells.Clear
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & f, Destination _
        :=Range("$A$1"))
        .Name = "fichier_client"
        .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 = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        End With
 
 
    Rows("1:1").Select
    Selection.Font.Bold = True
    Columns("A:A").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Columns("A:AM").EntireColumn.AutoFit
    For Line = 2 To Worksheets("Data").Cells(65536, 1).End(xlUp).Row
    Worksheets("Data").Cells(Line, 41) = 1
    Worksheets("Data").Cells(1, 41) = "Valeur ticket"
    Next Line
Je voudrais maintenant remplacer
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Application.GetOpenFilename("csv Files (*.csv), *.csv")
par un lien vers le serveur pour ne plus avoir besoin d'aller sur le site et de downloader.

Alors quelqu'un a deja fait sa??? Merci