chercher fichier pour lire donner et renvoyer l'info dans un userform

[Spirou - Christophe]

Bonjour

Oui thierry cette énorme fossé entre les users et les développeurs !! J'avoue que mon message
devait certainement être dans un nouveau fil, mais .... Non j'ai tort car j'ai moi même du mal
à suivre mes messages.

J'ai un fichier source que j'appelle normalement
Gestion Projet_version du fichier_Nom de l'entreprise_indice du fichier


Qui sous forme d'exemple se présente
Gestion Projet_001_entreprise b
Gestion Projet_001_entreprise b_a
Gestion Projet_001_entreprise b_b
Gestion Projet_001_entreprise b_c

001 est la version de fichier. 001 correspond également à un répertoire que je crée
manuellement. La ou son rangé les fichiers.

Donc le fichier source sera rangé dans

P:/toto

mais les retours de fichiers redonnés par l'entreprise b seront rangé dans

P:/toto/Sauvegarde/001/ et mes fichiers de toute mes entreprises correspondants à la version
001 du fichier. car le fichier source évolue et 001 correspond à l'arrêt de son évolution à une date
d'envoi du fichier à l'ensemble des entreprises ou on leur demande de remplir le fichier.

Pourquoi indicer la version du fichier et bien c'est quand je leur demande de compléter des
informations qui est estimé non précise. Mais pour certain il n'y en aura pas car ils auront
bien compléter le fichier.

dans ce répertoire il y aura les fichiers de l'entreprise a, de l'entreprise b, c , d, e, f
g (car j'ai 7 entreprises à gérer sur le bateau car j'ai 7 tranches).

et quand je sélectione une entreprise et une version de fichier (aussi en fonction de l'indice du fichier si il y en a un)
je veux qu'il m'affiche deux informations dans mon userform par rapport à mon fichier de sauvegarde. (ceci classeur fermé)

Thierry je m'arrête là par rapport à ta première question. j'ai eu beaucoup de mal à
avaller la pillule la dernière fois. Alors cette fois procédons par étape STP. Et puis comme
tu dis ce son des demandes différents cela peut intéresser d'autre personne sous forme de démo.
car pour moi elles sont indispensables, je suis même en train de me faire une bibliothèque
de toute les fonctions de façon à les chercher plus facilement de façon à les intégrers dans différents fichiers.
Peut être pas la bonne méthode, en partant du principe du module imbriquer comme un légo, mais ces pour moi le moyen le plus rapide
d'arriver au résultat.

@+
SPIROU - Christophe


http://www.excel-downloads.com/html/French/forum/messages/1_18759_18759.htm

 

[@+Thierry]

Bonsoir Spirou Christophe,

Oui je commence à un peu peu mieux saisir ton projet. Je ne pense pas que tu aies besoin de "Lire" rééllement le fichier avec la macro que je t'avais donnée.

Mon idée est toute simple... Ton Code irait simplement écrire des formules de liens dans ta feuilles...

Exemple :

Private Sub CommandButton1_Click()
Range("a1").Formula = "='C:\Mes Documents\[Test.xls]Sheet1'!A1"
TextBox1.Value = Range("A1")
End Sub


Of Course il faudrait faire une "mise en scène" avec des artistes tels que ListBox et autres...

Ce qui donnerait (sans test)
Private Sub UserForm_Initialize()
ListBox1.AddItem "001"
ListBox1.AddItem "002"
ListBox1.AddItem "003"
ListBox1.AddItem "003"

ListBox2.AddItem "entreprise A"
ListBox2.AddItem "entreprise b"
ListBox2.AddItem "entreprise c"
ListBox2.AddItem "entreprise d"

End Sub


Private Sub CommandButton1_Click()
Dim Fichier As String
Dim Entreprise As String
Dim Repertoire As String
Fichier = ListBox1
Entreprise = ListBox2

If OptionButton1.Value = True Then
Repertoire = "c:\Toto\"
Else
Repertoire = "c:\Toto\Sauverage\"
End If

Sheets("Temp").Range("a1").Formula = "='" & Repertoire & "[" & Fichier & "_" & Entreprise & ".xls]Sheet1'!A1"

TextBox1.Value = Sheets("Temp").Range("A1")
End Sub


Enfin voilà pour mon idée de base.... La difficulté résidera en la gestion des possibilité d'erreur ou d'iinformation non existante...

Voilà étudie cette première approche.

Bonne Soirée
@+Thierry

 

[@+Thierry]

Bonsoir Spirou Christophe

Alors, ce n'est pas une bonne idée ?

..@suivre...
@+Thierry

 

[spirou - Christophe]

bonjour

Thierry je vais essayé de travailler avec ta base et j'affficherais
les résultats sur le forum avec un fichier.

Je commence avec mon fichier que tu as déjà pu voir mais attends toi
parfois à ne pas avoir de réponse immédiate. Il faudra me laisser un
peu de temps !!! peut être beaucoup
Question

Pourquoi un optionbutton
A quoi va servir cette partie du code, a quel moment il va intervenir pour
jouer sur quel action à venir qui sera la suivante.

If OptionButton1.Value = True Then
Repertoire = "c:\Toto\"
Else
Repertoire = "c:\Toto\Sauverage\"
End If

@+
Spirou - Christophe

 

[@+Thierry]

Bonjour Spirou et le forum

Je te réponds vite fait avant de partiir au bureau, car ensuite je crains que je n'aurai plus le temps.

L'optionbuton n'est qu'une suggestion... Pour basculer sur l'un ou l'autre répertoire... (Si tu n'en as que deux only).

Ce pourrait être idem par une Listbox.

Pour l'ordre d'execution de l'action... Ben il faut que tu aies déterminé :
Fichier
Entreprise
Repertoire

Avant de pouvoir faire quoique ce soit... C'est logique... Non ?

Bonne Journée
@+Thierry