OUVRIR UN FICHIER EXTERNE AVEC Excel "changement d'emplacement"
Bonjour à tous,
j'ai commencé de créer une application qui me permets d'ouvrir des fichiers externes avec excel, par contre je ne peux pas ouvrir le fichier si je change leur emplacement.
je voulais savoir si y' a moyen d'ouvrir le fichier même si je change leur emplacement.
Merci d'avance pour vos propositions des solution.
Veuillez trouver ci-joint l'exemple.
excel
Microsoft 365
Mon ordinateur bloque le téléchargement de ton fichier qu'est ce qu'il y a dedans ?
Normalement tu renseigne le chemin d'accès donc je ne pense pas que cela soit possible mais sinon fait une macro pour modifier le chemin d'accès.
Bonjour,
il y a rien de dans, veuillez trouver ci joint le fichier.
Merci d'avance pour vos propositions des solution.
T'es buté borné dis moi ?
Je te dis que je peux pas ouvrir ton fichier car ca me marque que ca va me télécharger plusieurs fichiers. Donc montre ce que tu as mis en code car je ne forcerais pas le téléchargement.
En plus, je te dis qu'il n'y a surement pas de solution...
Sub chercherfichier()
Dim lefichier As FileDialog
Dim trouvenom As Variant
Set lefichier = Application.FileDialog(msoFileDialogFilePicker)
With lefichier
If .Show <> -1 Then
GoTo vide
End If
Range("i3") = .SelectedItems(1)
End With
trouvenom = VBA.Split(lefichier.SelectedItems(1), "\")
Range("i2") = trouvenom(UBound(trouvenom))
Exit Sub
vide:
End Sub
Sub placerdansdb()
Dim dl As Long
Dim ligne As Long
If Range("i2") <> Empty And Range("i3") <> Empty Then
'eviter les doublons
For ligne = 6 To Range("h5").End(xlDown).Row
If Range("h" & ligne) = Range("i2") Then
MsgBox "le fichier existe déga"
Exit Sub
End If
Next ligne
'controler
If Range("h6") <> Empty Then
ActiveSheet.ListObjects(1).ListRows.Add
dl = Range("h5").End(xlDown).Row + 1
Else
dl = 6
End If
Range("h" & dl) = Range("i2")
Range("i" & dl) = Range("i3")
Range("i2") = Empty
Range("i3") = "=IFERROR(VLOOKUP(I2,Tableau1,2,0)," & Chr(34) & Chr(34) & ")"
End If
End Sub
Sub ouvrirfichier()
Range("i3") = "=IFERROR(VLOOKUP(I2,Tableau1,2,0)," & Chr(34) & Chr(34) & ")"
Application.DisplayAlerts = False
ActiveWorkbook.FollowHyperlink Address:=Range("i3")
End Sub