Public Sub Tester()
Dim WB As Workbook
Dim sh As Worksheet
Dim Rng As Range
Dim rCell As Range
Set WB = Workbooks("LINK FOTO CLICCARE E SALVARE.xlsx")
Set sh = WB.Sheets("Foglio1")
Set Rng = sh.Range("B1") (è previsto il link da aprire)
For Each rCell In Rng.Cells
WB.FollowHyperlink Address:=rCell.Value, _
NewWindow:=True
ActiveWorkbook.SaveAs "C:\Users\Desktop\foto\1.jpg" (mi salva excel!!!!)
ci sto provando ma non riesce…..
una volta solo si è aperto paint salva con nome
aiuto
[Modificato da ROMANO1968 03/09/2018 22:59]