Discussion :

[Alexisc54]

Bonjour, je rencontre actuellement un problème, je veux copier un fichier local vers sharepoint et je m'y prend de la façon suivante :

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
Sub par()
Dim stfil As String
Dim t2, t3, t4 As String
Dim p As Long
stfil = Application.GetOpenFilename
If stfil <> "Faux" Then
    If MsgBox("êtes vous sûr de vouloir joindre ce fichier : " & stfil, vbYesNo, "vérification") = vbYes Then
 
        Dim xmlhttp
        Dim sharepointUrl
        Dim FileName
        Dim tsIn
        Dim sBody
        FileName = stfil
        Dim ofc
        Dim ofile
        Set ofc = CreateObject("Scripting.FileSystemObject")
        Set ofile = ofc.GetFile(FileName)
        Set tsIn = ofile.OpenAsTextStream
        sBody = tsIn.ReadAll
        While Not tsIn.AtEndOfStream
        MsgBox tsIn.ReadLine
        Wend
        MsgBox Len(sBody)
        tsIn.Close
        sharepointUrl = "https://sharepoint.com/ect..."
        Dim sharepointFileName
        t2 = Left(ofile.Name, InStr(1, ofile.Name, ".") - 1)
        t3 = StrReverse(Left(StrReverse(ofile.Name), InStr(1, StrReverse(ofile.Name), ".")))
        t4 = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss")
        sharepointFileName = sharepointUrl & "/" & t2 & t4 & t3
        Set xmlhttp = CreateObject("MSXML2.XMLHTTP.4.0")
        xmlhttp.Open "PUT", sharepointFileName, False
        xmlhttp.Send sBody
    End If
End If
End Sub

Mais le problème une fois le fichier sur sharepoint, il est corrompu.

par exemple pour un fichier PDF, j'ouvre le fichier original (en local) sur un bloc note, puis celui sur sharepoint dans un autre bloc note, je vois qu'il y a un gros vide sur le fichier de sharepoint, il manque plein de caractère sur le fichier de sharepoint.

J'ai donc pensé que mon textstream ne prend pas tout les caractère

Si quelqu'un pense a voir une solution a mon problème je suis preneur

Merci de retour.

[Alexisc54]

Bonjour je viens de trouvé une solution

ça peux toujours aidé ^^

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
Sub par()
Dim stfil As String
Dim t1, t2, t3, t4 As String
stfil = Application.GetOpenFilename
If stfil <> "Faux" Then
    If MsgBox("êtes vous sûr de vouloir joindre ce fichier : " & stfil, vbYesNo, "vérification") = vbYes Then
 
        Dim xmlhttp
        Dim sharepointUrl
        Dim FileName
        Dim tsIn
        Dim sBody
        FileName = stfil
        Dim ofc
        Dim ofile
        Dim objStream, strData
        Dim arr() As String
        Set objStream = CreateObject("ADODB.Stream")
        objStream.Charset = "utf-8"
        objStream.Open
        objStream.Type = 1
        objStream.LoadFromFile (FileName)
        sBody = objStream.Read()
 
        objStream.Close
        Set objStream = Nothing
 
        sharepointUrl = "https://sharepoint.com/ect..."
        Dim sharepointFileName
        arr() = Split(FileName, "\")
        t1 = arr(UBound(arr))
        t2 = Left(t1, InStr(1, t1, ".") - 1)
        t3 = StrReverse(Left(StrReverse(t1), InStr(1, StrReverse(t1), ".")))
        t4 = Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss")
        sharepointFileName = sharepointUrl & "/" & t2 & t4 & t3
        Set xmlhttp = CreateObject("MSXML2.XMLHTTP.4.0")
        xmlhttp.Open "PUT", sharepointFileName, False
        xmlhttp.Send sBody
        Feuil1.Hyperlinks.Add anchor:=Range("L24"), Address:=sharepointFileName
    End If
End If
End Sub