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.
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".
Code:
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.
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
Code:
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"