Discussion :

[PC81]

Bonjour,

Est-ce que quelqu'un saurait comment je pourrais dans une macro, ouvrir l'unique document Excel que contient un répertoire. Sachant que je ne connais pas le nom du fichier mais uniquement le chemin d'accès. Chacun de mes répertoires ne contient qu'un doc Excel.

J'ai essayé ça mais ça ne marche pas :

Code :

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

1
2
3
4
With CreateObject("Excel.Application").Workbooks.Open("C:\...\*.xls")
RECUP = .Worksheets(Travail).Range("C7")
.Close False
End With

Apparement "*" créé des soucis..

Merci d'avance, nitro81

[SilkyRoad]

bonjour


pour récupérer le classeur unique d'un répertoire :

Code :

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

1
2
3
4
5
6
Dim Chemin As String, Fichier As String
 
'Définit le répertoire contenant le fichier
Chemin = "C:\Documents and Settings\mimi\dossier\"
Fichier = Dir(Chemin & "*.xls")
MsgBox Chemin & Fichier

bonne journée
michel

[PC81]

Merci mais comment à partir de ça je peux récupérer la valeur d'une cellule ?
Parce que je veux prendre la valeur dans mon classeur pour m'en servir dans le classeur "actif"

[AlainTech]

Une fois que tu as le chemin et le nom, tu n'as plus qu'à ouvrir ton classeur.

[PC81]

SilkyRoad merci ça marche nikel

Pour le reste, j'ai trouver tout seul , je le poste :

Code :

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

1
2
3
4
5
6
7
8
 
Dim xlApp As Excel.Application
Set xlApp= CreateObject("Excel.Application")
Workbooks.Open Filename:="C:\...\doc.xls"
With xlApp.Worksheets("Outils")
      val = .Range("B3").Value
      ...
End With

Par contre, le classeur s'ouvre mais ne se ferme pas après utilisation, comment puis-je faire pour qu'on ne voit pas qu'il soit ouvert ???
J'ai déjà effectué des importations de fichier Excel à partir de Access et les fichiers dans lesquels je récupérais les valeurs étaient totalement transparents pour l'utilisateur. Donc je me dis que ce dois être aussi possible sous Excel.

Si quelqu'un à une réponse à mes questions

[PC81]

oui merci le temps que je poste, tu avais rep

[AlainTech]

Etant déjà dans Excel, tu n'as pas besoin d'en recréer une instance.
Autrement dit, ces 2 lignes-là

Code :

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

1
2
Dim xlApp As Excel.Application
Set xlApp= CreateObject("Excel.Application")

sont inutiles.

Un petit exemple de code possible:

Code :

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

1
2
3
4
Dim wbkSource As Workbook
Set wbkSource = Workbooks.Open Filename:="C:\...\doc.xls"
val = wbkSource.Worksheets("Outils").Range("B3").Value
wbkSource.Close