Passage variable entre classeur

Bonjour à tous,

Problème

J'ai un classeur récapitulatif dans lequel il n'y a que des boutons .

Dans la première page 6 boutons (dont un bye)

deux boutons libres "consultation" et "édition"

deux boutons verrouillés "mise à jour" et "suppression"

un bouton qui demande un mot de passe qui déverrouille les deux boutons"mise à jour" et "suppression"

Si un bouton (déverrouillé) est appuyé il faut qu'une variable ("mise à jour" ou "suppression" ) se charge.

Un menu s'affiche avec les choix puis la sélection d'un choix doit ouvrir le classeur choisi .

La variable récupérée dans le classeur ouvert permettra de ("mettre à jour" ou "supprimer ) par bouton affiché.

D'ou la recherche de mettre a jour des variables pour passer et récupérer des valeurs.

Merci, dans l'espoir que mon texte est assez explicatif

Annette

Bonjour,

voici 2 solution:

- Tu utilises une feuille du classeur1 ( "Data" par exemple ) que tu peux masquer et tu écris la valeur de la variable dedans. Ensuite dans tes autres classeurs tu n'as qu'a aller chercher la valeur de la cellule:

Variable = Workbooks("Classeur1").Sheets("Data").Range("A1")

- tu déclares une variable globale dans un module du classeur1 et une fonction qui retourne la valeur de la variable:

Public Etat As String

Public Function GetVariable() As String
    GetVariable = Etat
End Function

ensuite dans les autres classeurs tu récupères la valeur de la variable avec application.run qui lancera la fonction:

Variable = Application.Run("Main.xls!GetVariable")

Bonjour,

Merci Math, j'essaie et "je te dit quoi"

Suite

Je ne vois pas comment placer , utiliser ces écritures.

Pourrais tu s'il te plait me donner quelques indications supplémentaires.

Exemple sur deux fichiers (pour "mise à jour" ou "suppression" ou "interrogation")

Prog1.xls programme qui envoie la variable (comment la garnir)

Prog2.xls programme qui recoit la variable (comment la récupérer)

Annette

Voila