En bref
- Copiez/collez le lien de votre dossier Dropbox dans une fenêtre de navigation privée;
- Sélectionnez, copiez et collez les images dans un document Excel;
- Collez le code fourni par PDX Syndication dans un Module VBA et exécutez la macro;
Préparer des liens d'images directs à partir de la boîte de dépôt peut être une tâche fastidieuse. Nous avons écrit un script pour automatiser ce processus. Il peut facilement être exécuté dans Excel, en utilisant la fonction Virtual Basic. Nous allons vous montrer comment.
Étape 1 :
Dans votre explorateur de documents, naviguez jusqu’au dossier Dropbox contenant vos images et copiez son lien en cliquant sur « Copy Dropbox link ».
⚠ Cela ne fonctionnera que si le dossier Dropbox est public.
Étape 2 :
Ouvrez une fenêtre incognito dans votre navigateur et collez le lien Dropbox copié dans l’étape précédente dans la barre d’adresse :
Étape 3 :
Cliquez et glissez sur toutes les images de votre fichier pour les sélectionner. Faites-les glisser vers un nouveau document Excel ou copiez-collez. Assurez-vous de les placer sur la première cellule (A1).
► Si vous utilisez déjà le « Module Visual Basic » dans Excel, passez à l’étape 6.
Étape 4 : Accéder à l’outils Module
Dans Excel, nous allons utiliser l’outils « Module » de « Visual Basic » dans l’onglet « Développeur ».
Pour activer l’onglet « Développeur », cliquer sur :
Fichier > Options > Personnaliser le ruban. Cochez « Développeur » dans la liste.
Fermez la fenêtre en cliquant sur « OK ».
Étape 5 : Ouvrir un Module
Cliquez sur l’onglet « Développeur » qui devrait maintenant être visible dans le menu en haut de l’écran.
Cliquez ensuite sur « Visual Basic ». Cliquez sur « Insert » en haut de l’écran puis sélectionnez « Module ».
Étape 6:
Copiez et collez le code suivant en entier dans la boîte du module Visual Basic qui apparaît :
(Ce code effectuera 3 actions principales : Supprimer les instantanés, Mettre à jour les liens, Mettre à jour votre tableur)
Sub PDSConvertDropboxLinks() 'Runs all following Subs
RemOb
Rep
Rep2
RERs
RemHL
RelHL
Resz
Resp
End Sub
Sub RemOb() 'Removes objects
Dim shp As Shape
Dim sTemp As String
Dim HL As Hyperlink
Dim LastRowIndex As Integer
Dim RowIndex As Integer
Dim UsedRng As Range
For Each shp In ActiveSheet.Shapes
sTemp = ""
On Error Resume Next
sTemp = shp.Hyperlink.Address
On Error GoTo 0
If sTemp <> "" Then
shp.Delete
End If
Next
End Sub
Sub Rep() 'Replace HL
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 0).Value = HL.Address
Next
For Each HL In ActiveSheet.Hyperlinks
fndList = Array("www.dropbox.com")
rplcList = Array("dl.dropboxusercontent.com")
For x = LBound(fndList) To UBound(fndList)
For Each sht In ActiveWorkbook.Worksheets
sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _
SearchFormat:=False, ReplaceFormat:=False
Next sht
Next x
Next
End Sub
Sub Rep2() 'Correct HL
For Each HL In ActiveSheet.Hyperlinks
fndList = Array("?dl=0")
rplcList = Array("")
For x = LBound(fndList) To UBound(fndList)
For Each sht In ActiveWorkbook.Worksheets
sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _
SearchFormat:=False, ReplaceFormat:=False
Next sht
Next x
Next
End Sub
Sub RERs() 'Removes Empty Rows
Set UsedRng = ActiveSheet.UsedRange
LastRowIndex = UsedRng.Row - 1 + UsedRng.Rows.Count
Application.ScreenUpdating = False
For RowIndex = LastRowIndex To 1 Step -1
If Application.CountA(Rows(RowIndex)) = 0 Then
Rows(RowIndex).Delete
End If
Next RowIndex
End Sub
Sub RemHL() 'Old Hl still present. Removes HL
ActiveSheet.UsedRange.Hyperlinks.Delete
End Sub
Sub RelHL() 'Insert New HL
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=""
End Sub
Sub Resz() 'Resize cells
Worksheets("Sheet1").Columns("A").AutoFit
End Sub
Sub Resp() 'Task Completed
MsgBox "Your Dropbox links are clean & ready for import"
End Sub
Fermez la fenêtre « Microsoft Virtual Basic ».
· Étape 7 :
Exécutez le module que vous venez de créer en cliquant sur « Macros » sous l'onglet « Développeur », en sélectionnant « PDSConvertDropboxLinks » dans la boîte qui apparaît, et en cliquant sur « Run » (Exécuter).
Tous les liens doivent maintenant ressembler à ceux ci-dessous et pointer directement vers vos images. Vous pouvez vérifier qu'ils sont corrects en copiant l'un des liens et en le collant dans votre navigateur.
