Quelqu'un peut-il me donner un exemple de code VBA (Excel) pour obtenir des liens de partage (modifier) pour chaque fichier dans un dossier spécifique dans OneDrive? Ou un lien utile?Obtenir un lien de partage de fichiers dans un dossier spécifique de OneDrive
Merci Tudor
Je ne suis pas sûr de ce que vous demandez, mais peut-être est-ce ...
Sub GetFolder_Data_Collection()
Range("A:L").ClearContents
Range("A1").Value = "Name"
Range("B1").Value = "Path"
Range("C1").Value = "Size (KB)"
Range("D1").Value = "DateLastModified"
Range("E1").Value = "Attributes"
Range("F1").Value = "DateCreated"
Range("G1").Value = "DateLastAccessed"
Range("H1").Value = "Drive"
Range("I1").Value = "ParentFolder"
Range("J1").Value = "ShortName"
Range("K1").Value = "ShortPath"
Range("L1").Value = "Type"
Range("A1").Select
Dim strPath As String
'strPath = "I:\Information Security\KRI Monthly Data Collection\"
strPath = GetFolder
Dim OBJ As Object, Folder As Object, File As Object
Set OBJ = CreateObject("Scripting.FileSystemObject")
Set Folder = OBJ.GetFolder(strPath)
Call ListFiles(Folder)
Dim SubFolder As Object
For Each SubFolder In Folder.SubFolders
Call ListFiles(SubFolder)
Call GetSubFolders(SubFolder)
Next SubFolder
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub ListFiles(ByRef Folder As Object)
On Error Resume Next
For Each File In Folder.Files
ActiveCell.Offset(1, 0).Select
ActiveCell = File.Name
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 1) = File.Path
ActiveCell.Offset(0, 0).Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 0), Address:=File.Path, TextToDisplay:=File.Path
ActiveCell.Offset(0, -1).Select
ActiveCell.Offset(0, 2) = (File.Size/1024) 'IN KB
ActiveCell.Offset(0, 3) = File.DateLastModified
ActiveCell.Offset(0, 4) = File.Attributes
ActiveCell.Offset(0, 5) = File.DateCreated
ActiveCell.Offset(0, 6) = File.DateLastAccessed
ActiveCell.Offset(0, 7) = File.Drive
ActiveCell.Offset(0, 8) = File.ParentFolder
ActiveCell.Offset(0, 9) = File.ShortName
ActiveCell.Offset(0, 10) = File.ShortPath
ActiveCell.Offset(0, 11) = File.Type
Next File
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub GetSubFolders(ByRef SubFolder As Object)
Dim FolderItem As Object
On Error Resume Next
For Each FolderItem In SubFolder.SubFolders
Call ListFiles(FolderItem)
Call GetSubFolders(FolderItem)
Next FolderItem
End Sub
Function GetFolder() As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = Application.DefaultFilePath
If .Show <> -1 Then GoTo NextCode
sItem = .SelectedItems(1)
End With
NextCode:
GetFolder = sItem
Set fldr = Nothing
End Function
C'est une chose complètement différente. Si vous souhaitez envoyer des fichiers différents à des personnes différentes, configurez un 'modèle' Excel en fonction de vos besoins spécifiques et exécutez le script ci-dessous.
Faire une liste Sheets ("Sheet1") avec:
Dans la colonne A: noms des personnes Dans la colonne B: Les adresses e-mail Dans la colonne C: Z: Les noms de fichiers comme ceci C: \ Data \ Book2.xls (ne doivent pas être des fichiers Excel)
La macro parcourt chaque ligne de "Sheet1" et s'il y a une adresse e-mail dans la colonne B et le (s) nom (s) de fichier dans colonne C: Z il va créer un mail avec cette information et l'envoyer.
Sub Send_Files()
'Working in Excel 2000-2016
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim cell As Range
Dim FileCell As Range
Dim rng As Range
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set sh = Sheets("Sheet1")
Set OutApp = CreateObject("Outlook.Application")
For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants)
'Enter the path/file names in the C:Z column in each row
Set rng = sh.Cells(cell.Row, 1).Range("C1:Z1")
If cell.Value Like "?*@?*.?*" And _
Application.WorksheetFunction.CountA(rng) > 0 Then
Set OutMail = OutApp.CreateItem(0)
With OutMail
.to = cell.Value
.Subject = "Testfile"
.Body = "Hi " & cell.Offset(0, -1).Value
For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
If Trim(FileCell) <> "" Then
If Dir(FileCell.Value) <> "" Then
.Attachments.Add FileCell.Value
End If
End If
Next FileCell
.Send 'Or use .Display
End With
Set OutMail = Nothing
End If
Next cell
Set OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
Désolé pour malentendu. – TudyBTH
Je vais décrire la situation plus en détail. (Désolé pour mon anglais, j'ai joué au football pendant les cours d'anglais.). J'ai un modèle et j'ai écrit le code qui génère un fichier pour chaque personne. J'ai enregistré ces fichiers dans OnDrive (dossier synchronisé local). ** Maintenant, je veux écrire un code (VBA-Excel) qui extrait de OneDrive un lien de partage pour l'édition pour chaque fichier généré. ** Je voudrais un exemple de code pour l'authentification dans OneDrive et appeler l'API OneDrve pour retourner un partage -link pour l'édition, pour chaque fichier dans ce dossier. C'est mon problème. – TudyBTH
Alors, quelqu'un peut-il me donner un exemple d'appel OneDrive API avec VBA? S'il vous plaît!!! – TudyBTH
Si vous voulez envoyer des fichiers différents à des personnes différentes, voir le script ci-dessous.
Faire une liste Sheets ("Sheet1") avec:
Dans la colonne A: noms des personnes
Dans la colonne B: adresses E-mail
Dans la colonne C: Z: Les noms de fichiers comme ceci C: \ Data \ Book2.xls (ne doivent pas être des fichiers Excel)
La macro parcourt chaque ligne dans "Sheet1" et s'il y a une adresse e-mail dans la colonne B et nom (s) du fichier dans la colonne C: Z il va créer un mail avec cette information et l'envoyer.
Sub Send_Files()
'Working in Excel 2000-2016
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
Dim OutApp As Object
Dim OutMail As Object
Dim sh As Worksheet
Dim cell As Range
Dim FileCell As Range
Dim rng As Range
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Set sh = Sheets("Sheet1")
Set OutApp = CreateObject("Outlook.Application")
For Each cell In sh.Columns("B").Cells.SpecialCells(xlCellTypeConstants)
'Enter the path/file names in the C:Z column in each row
Set rng = sh.Cells(cell.Row, 1).Range("C1:Z1")
If cell.Value Like "?*@?*.?*" And _
Application.WorksheetFunction.CountA(rng) > 0 Then
Set OutMail = OutApp.CreateItem(0)
With OutMail
.to = cell.Value
.Subject = "Testfile"
.Body = "Hi " & cell.Offset(0, -1).Value
For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
If Trim(FileCell) <> "" Then
If Dir(FileCell.Value) <> "" Then
.Attachments.Add FileCell.Value
End If
End If
Next FileCell
.Send 'Or use .Display
End With
Set OutMail = Nothing
End If
Next cell
Set OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
Salut, ryguy72, et merci pour la réponse rapide. J'ai plusieurs fichiers (300+) (.xlsx) dans un dossier OneDrive. Je veux obtenir un lien de partage pour l'édition pour chaque fichier. Chaque lien sera envoyé à une personne spécifique (différents fichiers - différentes personnes) afin qu'il puisse ouvrir et modifier celui-ci avec ExcelOnline. Je pense ** J'ai besoin d'un modèle pour utiliser l'API OneDrve avec VBA **. – TudyBTH