macro ouvrir document excel

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:

---

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

bonjour


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

Code:

---

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

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"

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

SilkyRoad merci ça marche nikel :king:

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

Code:

---

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

oui merci le temps que je poste, tu avais rep

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

Code:

---

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

---

sont inutiles.

Un petit exemple de code possible:

Code:

---

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

---

Ca me fait une erreur sur cette ligne :

Code:

---

Set wbkSource = Workbooks.Open Filename:="C:\...\doc.xls"

---

J'ai mis ça et ça marche impec, merci :king:

Code:

---

1 2 3 4 5 6

Dim val As String Dim wkCible As Workbook Set wkCible = Workbooks.Open("C:\...\doc.xls") val = wkCible.Worksheets("creation").Range("B3").Value MsgBox (val) wkCible.Close 'on referme le classeur

---

J'ai remplacé ça :

Code:

---

Set wkCible = Workbooks.Open Filename:="C:\...\doc.xls"

---

par ça :

Code:

---

Set wkCible = Workbooks.Open("C:\...\doc.xls")

---