[RESOLU] VBA - Problème d'ouverture de fichier dans un répertoire

[NeMoS]

Bonjour le forum, bonjour à tous !

J'utilise une macro qui va chercher des fichiers .xls dans un répertoire que l'on choisit puis les traite d'une certaine façon via une macro.

Ce n'est pas la première fois que j'utilise cette façon de faire et donc ce code mais cette fois-ci, rien à faire, il ne veut pas m'ouvrir les fichiers.

J'ai mis en attachement un exemple où j'ai même mis le chemin du répertoire en dur dans le code. Et en fait il ne voit pas les fichiers xls qui sont dans la répertoire, pourtant il y en a une dizaine mais quand je fais du pas à pas, la variable "monfichier" reste vide !! J'ai surement fait une erreur quelque part mais je n'arrive pas à la voir...

Si vous pouvez m'aider je vous en remercierai grandement...

Par avance merci

NeMoS

 

[Pierrot93]

Re : VBA - Problème d'ouverture de fichier dans un répertoire

Bonjour,
peut être rajouter un "\" au chemin :

chemin = "C:\Gwen\02-PAC-CS\11-SKILL MGMT\Matrices compétences\New matrix local\"

bon après midi
@+

 

[JCGL]

Re : VBA - Problème d'ouverture de fichier dans un répertoire

Bonjour à tous,

Peux-tu essayer en déclarant le chemin comme suit (avec un \ à la fin du string) :

chemin = "C:\Gwen\02-PAC-CS\11-SKILL MGMT\Matrices compétences\New matrix local\"

A + à tous

 

[NeMoS]

Re : VBA - Problème d'ouverture de fichier dans un répertoire

Bonjour Pierrot93,

Merci pour ta réponse, j'ai appliqué ta modification et malheureusement cela ne change rien.
De plus, dans la macro originale, le chemin n'est pas en dur, on va le chercher via des boites de dialogue et je ne controle pas l'écriture.

Franchement je ne comprends pas ce qui cloche.

Dans tous les cas, merci de ton aide

NeMoS

 

[fredl]

Re : VBA - Problème d'ouverture de fichier dans un répertoire

Bonjour,
Je viens de tester.
Pour moi, la variable "monfichier" se charge bien.
Es tu sur que tes fichiers sont bien accessibles (protection?)...je ne sais pas.

J'ai constaté une autre erreur dans ton code pour l'ouverture des fichiers :
mettre à la place de
"Set wb = Workbooks.Open(monfichier)" :
"Set wb = Workbooks.Open(chemin & "\" & monfichier)"


cdt
Frédéric

 

[Pierrot93]

Re : VBA - Problème d'ouverture de fichier dans un répertoire

Re, bonjour Jean-Claude
pour l'ouverture du fichier :

Set wb = Workbooks.Open(chemin & monfichier)

 

[JCGL]

Re : VBA - Problème d'ouverture de fichier dans un répertoire

Bonjour à tous,

Message spécial pour saluer mon ami Pierrot...

A+++
A + à tous

 

[NeMoS]

Re : VBA - Problème d'ouverture de fichier dans un répertoire

Re bonjour,

Alors en fait, tu avais raison, rajouter un \ améliore grandement le problème, sauf que je suis obligé de le rajouter à la main après que la macro a sélectionné le chemin ce que je ne comprends pas c'est pourquoi, tout à coup j'ai besoin de le faire....)

Bref, cela fonctionne, mais la ligne suivante

set wb = workbooks.open(monfichier)

ne fonctionne pas, wb ne prends pas la valeur attentue

Merci encore

NeMoS

 

[JCGL]

Re : VBA - Problème d'ouverture de fichier dans un répertoire

Bonjour à tous,

Peux-tu essayer :

Set wb = Workbooks.Open(chemin & "\" & monfichier)

A + à tous

 

[NeMoS]

Re : VBA - Problème d'ouverture de fichier dans un répertoire

Fredl, Pierrot93

Oups, je n'avais pas vu toutes les réponses qui répondent toutes à ma question !!!!


Merci encore pour votre aide !!

NeMOs

 

[NeMoS]

Re : VBA - Problème d'ouverture de fichier dans un répertoire

Fredl, Pierrot93 et JCGL,

Un grand merci, cela fonctionne parfaitement bien désormais.

en utilisant

set wb = workbooks.open (chemin & "\" & monfichier)

cela résoud totalement le problème...

NeMoS