Discussion :

[zoumzoum59]

Bonjour à tous

je voudrais savoir comment récuperer le chemin d'un fichier qui est déjà ouvert dans excel.

J'ai fait différente recherche sur Path, getfile, getfileopen mais je n'arrive pas à recoler les morceaux pour que ça fonctionne.

Si quelqu'un peut m'aiguiller.

Merci d'avance

[SfJ5Rpw8]

ben de quel fichier parle-tu et comment est-t'il ouvert..?

[zoumzoum59]

Bonjour bbil

Mon fichier est ouvert par appel de la boite de dialogue ouvrir avec le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
filetoopen = Application _
    .GetOpenFilename("Fichiers excel (*.xls), *.xls")

Et je voudrais récupérer le chemin pour enregistrer un autre fichier et le sauvegarder dans le même repertoire.

[SfJ5Rpw8]

ce code n'ouvre pas un fichier mais permet juste d'en récupérer le chemin+nom... il n'y as pas une suite.. du style WorkBooks.open(FiletoOpen...)..

[zoumzoum59]

Si voilà le code complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
filetoopen = Application _
    .GetOpenFilename("Fichiers excel (*.xls), *.xls")
    Stop
If filetoopen <> False Then
    Workbooks.Open (filetoopen)
End If

Autant pour moi.

[SfJ5Rpw8]

ben défini une variable de type workbook ... qui te permettra de récupérer le chemin et aussi d'agir sur ce classeur sans avoir besoin d'avoir à jongler avec les activate et select...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dim wk as workbook
 
filetoopen = Application _
    .GetOpenFilename("Fichiers excel (*.xls), *.xls")
    Stop
If filetoopen <> False Then
set wk =    Workbooks.Open (filetoopen)
msgbox "le chemin : " & wk.path 
 
msgbox wk.sheets(1).name
 
 
End If