Rechercher un fichier dans le même dossiers

[maval]

Bonsoir,

Voila j'ai un dossier nommé "Essaie_Répertoire" avec un premier sous dossier nommé "Continent" dans se dossier il y a quatre autre sous dossiers nommé "Europe, Afrique, Amérique, Asie, et Océanie" et dans chaque dossier il y a des fichier nommé par nom de pays.
J'aimerai si possible a l'aide de mon formulaire qui se trouve dans le Fichier"ACcueil" qui possède deux combobox ouvrir un fichier par son continent et par son nom de pays.

Je joint mon dossier qui seras certainement plus explicit

Merci d'avance

 

[Paf]

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

 

[maval]

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

 

[maval]

Re : Rechercher un fichier dans le même dossiers

Re,

Personne peut me m'aider

Bonne soirée

 

[maval]

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:

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

 

[Staple1600]

Re : Rechercher un fichier dans le même dossiers

Bonjour à tous

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

 

[maval]

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*"

 

[Staple1600]

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:

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

 

[maval]

Re : Rechercher un fichier dans le même dossiers

Re,

Il est sur mon bureau?

 

[Staple1600]

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.

 

[maval]

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

 

[Staple1600]

Re : Rechercher un fichier dans le même dossiers

Re

Dans ce cas, utilises ceci dans ton code

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

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

 

[maval]

Re : Rechercher un fichier dans le même dossiers

Re;

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