Discussion :

[gaby12]

Bonjour,

Depuis un fichier Excel (liste de toutes machines vendues) muni d’un bouton, faire une macro pour afficher le fichier Excel propre à la machine demandée.
Procedure :
Sur le fichier « liste », choisir cellule ( contenant le N° de machine)
Faire un copier
Utiliser le navigateur windows pour accéder au répertoire contenant le fichier excel de la machine
Utiliser la case « rechercher » , Taper « * », coller et Taper « * ».
L’adresse du fichier demandé apparait
Fin de macro
Ouvrir ce fichier

Merci d’avance

[Menhir]

En macro VBA, ça ne se traduirait pas comme ça. Ce serait plutôt :

Utiliser la fonction Dir pour connaitre tous les fichiers du répertoire visé contenant ce nom de machine (récupéré avec un selection.value, en utilisant les symboles joker "*".
Le mieux est de constituer ce nom dans une variable de type String

D'après ce que je comprends, il n'y aura qu'un fichier. Donc tu récupères le nom avec Dir et tu utilises un Workbooks.Open pour l'ouvrir.

[gaby12]

En macro VBA, ça ne se traduirait pas comme ça. Ce serait plutôt :

Utiliser la fonction Dir pour connaitre tous les fichiers du répertoire visé contenant ce nom de machine (récupéré avec un selection.value, en utilisant les symboles joker "*".
Le mieux est de constituer ce nom dans une variable de type String

D'après ce que je comprends, il n'y aura qu'un fichier. Donc tu récupères le nom avec Dir et tu utilises un Workbooks.Open pour l'ouvrir.

merci pour la reponse aussi rapide
J'esperais le faire en faisant "enregistrer Macro" et j'ai vu que ce n'était pas possible. Alors j'ai fait appel à vous
je me trouve trop tendre en VBA
j'aurais besoin de quelques codes pour m'en sortir...

[Menhir]

Pour chercher un fichier dans un répertoire, c'est la fonction Dir.
Pour récupérer une valeur dans une cellule, on utilise la propriété Value avec l'objet Cells ou Range.
Pour pointer sur la cellule sélectionnée, on utilise Selection.
Pour ouvrir un fichier, on utilise la méthode Open de l'objet Workbooks (au pluriel, avec un "s" à la fin).

Regarde tous ces termes dans l'aide VBA Excel.

Mais si vraiment tu es totalement débutant, je te conseille de récupérer un tutorial pour apprendre au moins les bases : comment définir une macro, les variables, les structures de base (If ... Then, For ... to, While, Select Case, etc.).

[gaby12]

Bonjour et merci pour la reponse

J'ai avancé un peu:
Comme je suis sur Excel2007 , j'ai du activer le complement Classefilesearch


Puis , j'ai enregistré simplement cette macro:


Sub recherchemachine040614()
'
' recherchemachine040614 Macro
'
'
'Range("E464").Select ( à supprimer)
Selection.Copy
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "50630110"
Range("E465").Select
Workbooks.Open Filename:= _
"N:\Diffusion\BE_vibrants\_Spécifs\Complètes\TS\TS300\TS302_50630110_MMSE_Svyotogor.xls"
End Sub


Mais je ne sais pas remplacer : " ActiveCell.FormulaR1C1 = "50630110" " par un paste ...



Merci pour votre aide

Bonne journée

[Igloobel]

Bonjour,

Pour te répondre j'ai besoin de savoir si tes classeurs a ouvrir sont tous dans :
N:\Diffusion\BE_vibrants\_Spécifs\Complètes\TS\TS300\

sinon dans quel(s) dossiers sont-ils ?

@ bientôt

[Menhir]

Comme je suis sur Excel2007 , j'ai du activer le complement Classefilesearch

Etant donné ce qu'il y a dans ton code, je ne vois pas l'utilité de ce complément.

'Range("E464").Select ( à supprimer)
Selection.Copy

Ca, je suppose que ça vient de l'enregistreur de macros, non ?
Il est plus simple d'écrire :

Code :

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

Range("E464").Copy

Les Select, moins on en utilise, mieux on se porte.

Application.CutCopyMode = False

Je ne comprends pas pourquoi tu fais un Copy et que tu l'annules juste après sans avoir fait de coller.

ActiveCell.FormulaR1C1 = "50630110"

Ta cellule E464, c'était la source ou la destination de ta copie ? Le fait que tu fasses dessus un Copy laisse penser que c'est la source et le fait que tu y mette une formule laisse penser que c'est la destination.

Je ne comprends pas non plus pourquoi tu utilises la propriété FormulaR1C1 alors que tu ne mets dans cette cellule qu'une valeur et non une formule.
Pour mettre une simple valeur dans une cellule, on utilise la propriété Value.

Range("E465").Select
Workbooks.Open Filename:= "N:\Diffusion\BE_vibrants\_Spécifs\Complètes\TS\TS300\TS302_50630110_MMSE_Svyotogor.xls"

Là, je ne comprends pas du tout ce que tu veux faire.

Mais je ne sais pas remplacer : " ActiveCell.FormulaR1C1 = "50630110" " par un paste ...

Voir la méthode PasteSpecial de l'objet Range dans l'aide VBA.

[gaby12]

Reponse à la question de Igloobel:


Merci d'abord

Pour être précis, tous les fichiers Excel de chaque machine sont dans ce repertoire

N:\Diffusion\BE_vibrants\_Spécifs\Complètes\

il y a de multiples sous repertoires correspondant à des types de machines divisés par des tailles de chaque type

la recherche ne pourra se faire qu'à ce niveau
il n'y aura qu'une seule reponse

@+

[Menhir]

Ouvrir un fichier en VBA, ça n'a rien de compliqué une fois qu'on connait le nom : Workbooks.Open(nom)

En revanche, recherche un nom de fichier dans une arborescence de sous-dossier sans connaitre exactement la profondeur, c'est une autre paire de manche.

Malheureusement, l'objet Folder de FileSystem n'a pas de méthode de recherche. Ses méthodes se limitent à Copy, Delete, Move.
Par ses propriétés, il est possible de connaitre les fichiers ou les sous-dossiers qu'il contient : pour les fichiers s'obtiennent avec la commande Dir et les sous-dossiers (un niveau) par la propriété Subfolder.

Je ne sais pas s'il est possible, avec VBA Excel, d'accéder à la librairie d'objets de l'explorer Windows.
Peut-être en Express VB...

En VBA Excel, la seule méthode que je vois pour réaliser ta recherche, c'est de peler l'arborescence des fichiers comme un oignon, en examinant chaque peau successive. Mais c'est un algorithme très complexe et je ne suis pas sûr que ce soit à ta portée vu ton niveau de développeur.

[Marc-L]

Bonjour, bonjour !

Le plus rapide est une fonction récursive utilisant la fonction Dir, mais pas vraiment à la portée d'un débutant …


Par contre un débutant a tout le loisir de suivre le tutoriel Manipulation des fichiers en VBA

dans lequel est abordée une fonction récursive de recherche de fichiers via FileSystemObject …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Menhir]

Très intéressant comme document !!!
Si j'avais pensé à le consulter il y a un an, ça m'aurait fait gagné pas mal de temps.

Par contre, pour le code de recherche de fichier, il faut quand même un peu le comprendre pour l'adapter. Ce n'est pas pas simple pour un débutant mais faisable quand même avec un peu de patience et de persévérance (surtout si on prend la peine de lire tout ce qui précède au lieu de se jeter sur le code pour faire un copier/coller).

[Marc-L]

Normalement il n'y a rien à adapter avec le code du chapitre III-A …

Par expérience, pour des fichiers normaux, utiliser FileSystemObject peut s'avérer bien plus lent que la fonction Dir.


__________________________________________________________________________________________
We are all very ignorant, what happens is that not all ignore the same things … (Albert Einstein)