Discussion :

[mattlovelara]

Ce post est la suite de celui-ci : http://www.developpez.net/forums/d14...asseur-ouvert/

Bonjour à tous,

Dans mon précédent post, je vous demandais comment récupérer les données de cellules d'un fichier source.xlsx et les insérer dans un fichier dest.xlsx sans avoir à ouvrir le fichier source.xlsx.

j'avais trouvé une solution satisfaisante... En local !
Et oui, mon besoin final est de reproduire ce comportement mais en réseau. Les deux fichiers excel sont hébergés dans une bibliothèque SharePoint 2007. Ils sont accessibles via une url type https:// et hélas ma solution ne fonctionne pas.

Pour rappel, la solution que j'avais trouvé et qui ne fonctionne pas dans le cas présent est la suivante :

Code :

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

1
2
3
4
5
 
   With Range("B5")
        .Formula = "='c:/spaces/collab/Hotellerie/DocumentsEquipe/[ARNAN.xlsm]Feuil1'!D10"
        .Value = .Value
    End With

Une nouvelle fois, je suis preneur de vos idées,

merci

[mattlovelara]

Je mets à jour mon post et me réponds moi même, le code ci-après fonctionne et fait le job

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
 
Option Explicit
 
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
                                           "URLDownloadToFileA" ( _
                                           ByVal pCaller As Long, ByVal szURL As String, _
                                           ByVal szFileName As String, _
                                           ByVal dwReserved As Long, _
                                           ByVal lpfnCB As Long) As Long
 
 
Sub DownloadFileFromWeb()
Dim i As Integer
 
    Const strUrl As String = "http://teams/Dept/Shared Documents/Reports/Pivot_Source_Data/filename.csv"
    Dim strSavePath As String
    Dim returnValue As Long
 
    strSavePath = "C:\Reports\Pivot_Source_Data\xxxxxxxx.CSV"
    returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)
 
End Sub