XL 2013 vba ouvrir un classeur en trouvant uniquement avec son nom

arthour973 à dit:

Pas du tout certaine que ce soit possible mais ça m'arrangerait bien

Cliquez pour agrandir...

arthour973 à dit:

Bonjour à toutes et à tous,
Tout d’abord je vous souhaite un très beau dimanche.

Je me tourne à nouveau vers vous pour un problème que je n’arrive pas à résoudre malgré mes recherches et essais.

Je travaille sur 2 ordinateurs à des heures différentes :
La journée en horaires normaux, sur mon, ordi principal dans mon bureau et,
Le soir sur l’ordinateur dans ma chambre.

Par exemple, pour ouvrir un fichier, voici ci-dessous le code vba, que j’utilise dans mon fichier déjà ouvert sur mon ordi principal :

Code:

Dim wb As Workbook
  Dim ws As Worksheet
  Set wb = Workbooks.Open("C:\Users\lionel\Desktop\IsiTel_dossier\01 ImmobRdV NF\isitelFacturation Charlotte.xlsm")
  Set ws = wb.Worksheets(1)

Mais voilà, le chemin n’est pas le même dans l’ordinateur de ma chambre (ci-dessous le chemin) :
C:\Users\lionel\Documents\isiTel_dossier\01 ImmobRdV NF\isitelFacturation Charlotte.xlsm

Est-il possible de rechercher et d’ouvrir un fichier en mettant dans le code vba uniquement son nom ?

Exemple :

Code:

Dim wb As Workbook
  Dim ws As Worksheet
  Set wb = Workbooks.Open("C:\isitelFacturation Charlotte.xlsm")
  Set ws = wb.Worksheets(1)

Pas du tout certaine que ce soit possible mais ça m'arrangerait bien

Avec mes remerciements déjà pour m'avoir lu,
Amicalement,
Arthour973,

Cliquez pour agrandir...

Option Explicit

Sub toto()
Dim filetoopen As Variant
filetoopen = Application.GetOpenFilename("fichier excel , *.xlsm")
If filetoopen <> False Then
    MsgBox "Open " & filetoopen
End If
End Sub

arthour973 à dit:

Bonjour à toutes et à tous,
Tout d’abord je vous souhaite un très beau dimanche.

Je me tourne à nouveau vers vous pour un problème que je n’arrive pas à résoudre malgré mes recherches et essais.

Je travaille sur 2 ordinateurs à des heures différentes :
La journée en horaires normaux, sur mon, ordi principal dans mon bureau et,
Le soir sur l’ordinateur dans ma chambre.

Par exemple, pour ouvrir un fichier, voici ci-dessous le code vba, que j’utilise dans mon fichier déjà ouvert sur mon ordi principal :

Code:

Dim wb As Workbook
  Dim ws As Worksheet
  Set wb = Workbooks.Open("C:\Users\lionel\Desktop\IsiTel_dossier\01 ImmobRdV NF\isitelFacturation Charlotte.xlsm")
  Set ws = wb.Worksheets(1)

Mais voilà, le chemin n’est pas le même dans l’ordinateur de ma chambre (ci-dessous le chemin) :
C:\Users\lionel\Documents\isiTel_dossier\01 ImmobRdV NF\isitelFacturation Charlotte.xlsm

Est-il possible de rechercher et d’ouvrir un fichier en mettant dans le code vba uniquement son nom ?

Exemple :

Code:

Dim wb As Workbook
  Dim ws As Worksheet
  Set wb = Workbooks.Open("C:\isitelFacturation Charlotte.xlsm")
  Set ws = wb.Worksheets(1)

Pas du tout certain que ce soit possible mais ça m'arrangerait bien

Avec mes remerciements déjà pour m'avoir lu,
Amicalement,
Arthour973,

Cliquez pour agrandir...