Chemin de fichier (emplacement) inconnu

Bonsoir

est t'il possible d'ouvrir un fichier qui ce trouve dans un emplacement diffèrent sans être obliger de changer a chaque fois la lettre du disque ici G:\ représentant une clef USB

'OUVRIR LE CLASSEUR SOURCE (EN LECTURE SEULE)
'ATTENTION AU CHEMIN D'ACCÉS DU FICHIER
Set classeurSource = Application.Workbooks.Open("G:\ACHATS\BESOIN D'ACHAT\Import_SAP\Besoin d_achat .xls", , True)

ou un contrôle de fichier

Function Verification_Fichiers() As Boolean
    If Dir("G:\ACHATS\BESOIN D'ACHAT\Import_SAP\Besoin d_achat .xls") = "" Then
        MsgBox "le fichier *Besoin d_achat .xls* n'existe pas ou vérifier le nom du fichier"
        Exit Function

merci d'avance pour vos réponses

Cordialement

Bonjour,

A tester et adapter à tes besoins..

Cdlt.

(VBA Excel - Fichiers et dossiers)

Attribute VB_Name = "ChercherFichier"

'   Know the filename, but don't know the directory?
'Vous connaissez le nom d'un fichier mais pas son chemin ?

Declare Function SearchTreeForFile Lib "IMAGEHLP.DLL" _
          (ByVal lpRootPath As String, _
          ByVal lpInputName As String, _
          ByVal lpOutputName As String) As Long

Public Const MAX_PATH = 260

'exemple
Sub test()
  MsgBox FindFile("d:", "vbs121.htm")
  MsgBox FindFile("d:\", "vbs121.htm")
  MsgBox FindFile("", "vbs121.htm")
End Sub

Public Function FindFile(RootPath As String, FileName As String) As String
'Karl Moore, http://www.vbworld.com/files/tip529.html
Dim lNullPos As Long
Dim lResult As Long
Dim sBuffer As String

  On Error GoTo FileFind_Error

  'fournit par défaut le lecteur courant si non spécifié (fs)
  If RootPath = "" Then RootPath = Left$(CurDir, 3)

  'Allocate buffer
  sBuffer = Space(MAX_PATH * 2)

  'Find the file
  lResult = SearchTreeForFile(RootPath, FileName, sBuffer)

  'Trim null, if exists
  If lResult Then
    lNullPos = InStr(sBuffer, vbNullChar)
    If Not lNullPos Then
      sBuffer = Left(sBuffer, lNullPos - 1)
    End If
    'Return filename
    FindFile = sBuffer
  Else
    'Nothing found
    FindFile = vbNullString
  End If

  Exit Function

FileFind_Error:
  FindFile = vbNullString

End Function

Bonsoir

Merci pour ta réponse je vais tester avec mes connaissances très minime en vba j'avais pensé que ça ce faisait sur une ligne une recherche sur tous les disques du fichier. Merci encore pour ton code et avoir pris de ton temps pour régler mon problème

Cordialement