Rapatriement d'1 donnée créée dans un usf, dans 1 autre fichier

[Leskwal]

Bonsoir à tous

Malgré toute mes recherches sur le forum je n'ai pas trouvé ce que je cherchais.

En fait plutôt qu'un long discours, j'ai documenté les 4 fichiers joints (Ver 2007 et 2003).

Merci d'avance à la bonne âme qui se penchera sur mon problème. 😀

Pascal

 

[kjin]

Re : Rapatriement d'1 donnée créée dans un usf, dans 1 autre fichier

Bonsoir,

Les étapes souhaitées :
- Création du numero d'action comme par exemple 9BM302P
- Je valide par le bouton ci-dessous.
* la valeur du numéro d'action est retenue en mémoire
* Ce userform se ferme
* Le fichier "Numéro action" est ENREGISTRÉ et FERMÉ

- La valeur retenue en mémoire est inscrite dans le fichier déjà ouvert "Fichier lancement" dans la feuil2 en A1.

CERISE sur le gâteau : Si le fichier "Numéro_action" a été ouvert directement sans passer par le lancement proposé dans le fichier "Fichier_Lancement", l'INDIQUER par un MsgBox.

Bin, j'ai rien compris !
En attendant qq éclaircissements...
A+
kjin

 

[Leskwal]

Re : Rapatriement d'1 donnée créée dans un usf, dans 1 autre fichier

Bonjour

Déjà, merci de vous pencher sur mon problème.

Je reprends :

Les 2 fichiers proposés en exemple simulent :

1 - Une fiche financière représentée par le fichier "Fichier_Lancement" et

2 - "Un fichier permettant de créer un numéro de référencement représenté par le fichier Numéro_action.


2 possibilités :

- Une de mes collaboratrices n'utilise que le fichier de création de référencement pour obtenir un .... numéro de référencement 😀.
L'utilisation du fichier "fiche Financière ne leur est pas utile.

Soit :

- un nouveau client fait appel à nous et donc :
T1 : Ouverture du fichier "fiche financière" complété par différents critères, et à un moment donné une cellule qui doit être complétée par UN Numéro de référencement.
A coté de cette cellule (Feuil2 A1 dans mon exemple) un bouton qui lance le fichier "numéro de référencement".

T2 : Création du numéro de référencement et retour au fichier " fiche financière" avec exportation de ce numéro en "Feuil2 A1".

CERISE sur le gâteau : Si le fichier "Numéro_action" a été ouvert directement sans passer par le lancement proposé dans le fichier "Fichier_Lancement", l'INDIQUER par un MsgBox.

Cette demande à pour objectif :
- Si le fichier "Création du numéro de référencement" à été ouvert indépendamment, le bouton de validation et exportation du Numéro créé, reste DISABLED. (.Enabled = FALSE), seul le bouton QUITTER reste actif.

- En revanche, Si le fichier "Création du numéro de référencement" à été ouvert en passant par le fichier "Fiche Financière", après la création du numéro, le bouton d'exportation devient ENABLED = TRUE.

J'espère avoir été plus clair. 😉

Merci d'avance

Pascal

 

[Leskwal]

Re : Rapatriement d'1 donnée créée dans un usf, dans 1 autre fichier

Up 😛

Bonsoir à tous.

Peut-être n'ai je pas encore été assez clair 😀

Pascal

 

[Leskwal]

Re : Rapatriement d'1 donnée créée dans un usf, dans 1 autre fichier

Bonjour

J'ai partiellement réussi à me débrouiller mais subsiste un point sur lequel je bute.

Je souhaite activer un bouton dans un USF en fonction de 2 conditions.

Qu'un textbox ne soit pas vide... Bon ça j'y arrive 😀
ET
qu' UN classeur Excel spécifique soit ouvert... là je plante 😕

En fichiers joints, de quoi s'appuyer pour répondre à ma demande.

D'avance merci

Pascal

 

[kjin]

Re : Rapatriement d'1 donnée créée dans un usf, dans 1 autre fichier

Bonjour,
Désolé mais je n'y comprends toujours rien
Néanmoins pour tester si le classeur est ouvert

Dim wb As Workbook, ouv As Boolean
For Each wb In Workbooks
    If wb.Name = "Fichier_Lancement.xls" Then
    ouv = True
    Exit For
    End If
Next wb
If ouv = True Then MsgBox "ouvert" Else:MsgBox "pas ouvert"

A+
kjin

 

[Leskwal]

Re : Rapatriement d'1 donnée créée dans un usf, dans 1 autre fichier

Parfait

Exactement la réponse à ma demande 😉

(Et tout ça, sans la comprendre ... TROP FORT 😀)


Encore MERCI

Pascal