Rechercher un fichier dans le même dossiers

Paf

XLDnaute Barbatruc

• 6 Décembre 2014

• #2

Re : Rechercher un fichier dans le même dossiers

Bonjour

dans Private Sub ComboBox2_Change() par exemple , rajouter ce code

Workbooks.Open "C:\Essaie_Répertoire\Continent\" & ComboBox1 & "\" & ComboBox2 & ".XLS"

ou bien, puisque dans le zip joint chaque pays est dans un répertoire de même nom que le pays:

Workbooks.Open "C:\Essaie_Répertoire\Continent\" & ComboBox1 & "\" & ComboBox2 & "\" & ComboBox2 & ".XLS"

Non testé car classeur en panne sous Excel 2003.

A+ avec une version Excel 2003 si soucis

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Décembre 2014

• #3

Re : Rechercher un fichier dans le même dossiers

Bonsoir Paf

Non j'ai un souci message d'erreur "Nous ne trouvons pas l'adresse" alors que l'adresse est bonne?

Bonne soirée

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 6 Décembre 2014

• #4

Re : Rechercher un fichier dans le même dossiers

Re,

Personne peut me m'aider

Bonne soirée

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 7 Décembre 2014

• #5

Re : Rechercher un fichier dans le même dossiers

Bonjour

Je suis toujours a la recherche de mon code.
Suite au code de Paf que je remercie j'ai suivie ces instructions en mettant comme code ceci:

Code:

Workbooks.Open "C:\Essaie_Répertoire\Continent\" & ComboBox1 & "\" & ComboBox2 & "\" & ComboBox2 & ".xlsm"

L'adresse est bonne mais j'ai comme message d'erreur "Désolé...Nous ne trouvons pas C:\Essaie_Répertoire\Continent........" alors que l'adresse est bonne?

D'avance je vous remercie

 

Dernière édition: 7 Décembre 2014

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2014

• #6

Re : Rechercher un fichier dans le même dossiers

Bonjour à tous

maval
Tu es sur que l'extension de ton fichier est bien *.xlsm ?

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 7 Décembre 2014

• #7

Re : Rechercher un fichier dans le même dossiers

Bonjour JM

J'ai fait un copie coller sur mon fichier "Albanie.xlsm" j'ai même essayer de faire "Albanie.xls*"

 

Dernière édition: 7 Décembre 2014

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2014

• #8

Re : Rechercher un fichier dans le même dossiers

Re

maval
Donc d'après ce qu'on lit dans le fil, le chemin renvoyé pour Albanie.xlsm
est :"C:\Essaie_Répertoire\Continent\Europe\Albanie\Albanie.xlsm" ?

ou bien, puisque dans le zip joint chaque pays est dans un répertoire de même nom que le pays:

Cliquez pour agrandir...

Est-ce que ces quatre dossiers existent bel et bien sur ton disque dur ?

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 7 Décembre 2014

• #9

Re : Rechercher un fichier dans le même dossiers

Re,

Il est sur mon bureau?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2014

• #10

Re : Rechercher un fichier dans le même dossiers

Re

???
Ce dossier n'est pas sur le Bureau
C:\Essaie_Répertoire\Continent\
or c'est ce qu tu utilises dans ton code, donc forcément ça ne peut pas marcher.

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 7 Décembre 2014

• #11

Re : Rechercher un fichier dans le même dossiers

Re,

Si je copie l'adresse du fichier Afrique du Sud sa donne ceci :
C:\Users\Max\Desktop\Essaie_Répertoire\Continent\Afrique\Afrique du Sud

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Décembre 2014

• #12

Re : Rechercher un fichier dans le même dossiers

Re

Dans ce cas, utilises ceci dans ton code

Code:

Sub testCheminBureau()
Dim Bpath$
Bpath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
MsgBox Bpath
End Sub

Code:

Dim Bpath$
Bpath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
Workbooks.Open Bpath & "Essaie_Répertoire\Continent\" & ComboBox1  & "\" & ComboBox2 & "\" & ComboBox2 & ".xlsm"

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 7 Décembre 2014

• #13

Re : Rechercher un fichier dans le même dossiers

Re;

Je te remercie beaucoup Nickel et te souhaite une bonne journée

 

Vote positif 0 Vote négatif