Discussion :

[Azounet1529]

Salut !
Je cherche à savoir s'il est possible( et je suis sur que ça l'est...) d'effectuer une recherche dans une plage particulière d'une feuille d'un workbook particulier situé dans le même répertoire ou dans un répertoire différent.
Voilà je peux être plus clair à la demande

D'avance merci !

Az

J'avais oublié de préciser que le workbook en question est protégé par un mot de passe en écriture (mais la lecture seule suffit pour faire ce que j'ai à faire) et qui plus est, si je peux ne pas l'ouvrir, ça m'arrange, sinon je fais avec, ou alors je l'ouvre avant...

[sash6]

Bonjour,

Voici un code qui t'ouvre l'explorateur windows.

Code :

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

1
2
3
4
5
6
7
Dim Fichier As Variant
Dim Wb As Workbook
 
Fichier = Application.GetOpenFilename("Classeurs Excel (*.xls), *.xls")
If Fichier = False Then Exit Sub
 
Set Wb = Workbooks.Open(Fichier)

[Azounet1529]

Merci pour cette astuce mais, en fait le petit module de recherche et de prise d'infos dans mon autre workbook est amené à être inséré dans une procédure visant à résuire le temps mis pour la saisie des données. Si j'ouvre un explorateur pour sélectionner un fichier en plein milieu, je perds toute l'utilité de ma procédure.
Lorsque j'écris ça :

Code :

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

1
2
3
 
dim abaque as worksheet
Set abaque = Workbooks("S:\répertoire 1\fichier avec des espaces.xls").Worksheets("config récentes £")

j'ai une erreur d'exécution '9' : l'indice n'appartient pas à la sélection

je précise que le disque S est distant(mais ça m'étonnerai que ça ait une influence quelquonque...) et que les espaces, les accents et les caractères spéciaux sont dans mon chemins et que j'aimerais beaucoup ne pas avoir à les modifier...

[sash6]

d'acc pour la procédure rapide, voilà donc une adaptation de ce que je t'ai envoyé et de ce que tu veux:

Code :

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

1
2
Dim abaque As Workbook
Set abaque = Workbooks.Open("S:\ton répertoire\ton fichier avec espaces.xls")

[COCONUT2]

En recherchant dans le forum Contribuez ou dans les FAQ, on trouve comment récupérer des données d'un classeur sans l'ouvrir!

[Azounet1529]

En fait, c'est un peu plus compliqué (ou plus simple ) que ce qui est expliqué dans le FAQ et je ne trouve pas de sujet y faisant référence dans les contributions...

Je vais modifier le problème afin de le rendre (peut -être) plus simple :
On va dire que j'ouvre mon classeur contenant les données que je dois extraire avant de lancer la macro. j'ouvre le classeur ou je dois copier mes données, puis je lance ma macro.
j'ai essayé :

Code :

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

1
2
3
4
 
Dim abaque As Workbook
Set abaque = Workbooks.Open("S:\ton répertoire\ton fichier avec espaces.xls")
Workbooks(abaque).Worksheets("config depuis le 01 06 07").Activate

Et ça plante avec une erreur 13 : erreur de type...

Existe-t-il un moyen simple de faire appel à un classeur déjà ouvert et d'y activer une feuille??