Voilà mon objectif: J'ai 1 fichier excel qui pilote 3 autres fichiers:
1- je voudrais déjà que ces fichiers soient cachés
2-je souhaiterai qu'en cliquant sur mon commandbutton1 le fichier 1
(toto.xls) s'ouvre et le fichier principal se minimise
3-idem pour les 2 autres avec commandbutton2 et 3
4- en sachant que ces fichiers sont cachés puis-je y avoir accès en
affichant les fichiers cachés?
5- y-a-il un moyen d'interdirel'ouverture de ces fichiers (par un mot de
passe) seulement par l'utilisateur et non pas par le fichier interface.
Je sais je demande beaucoup mais j'ai encore tellement à apprendre...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
La donne de ton problème n'est pas claire... et ce que tu veux réaliser l'est encore moins... mais pour masquer un classeur ouvert il y a ceci :
3 lignes de code qui masquent un fichier :
C'est 2 lignes de code sont équivalentes et ils masquent le classeur actif ... un peu comme le ferait la commande du menu fenêtre "Masquer" - "Afficher" '----------------------- ThisWorkbook.Windows(1).Visible = True 'ActiveWindow.Visible = False '----------------------- La commande suivante est un peu spécial car un fichier masqué de cette manière ne peut pas être affiché par la commande du menu "Fenêtre / Afficher" '----------------------- Workbooks("Classeur1.xls").IsAddin = True '-----------------------
Dans tous les cas, le contenu des cellules est accessible et on peut appeler une macro ou une fonction du fichier ouvert.
"PJ" a écrit dans le message de news:
Bonjour à tous,
Voilà mon objectif: J'ai 1 fichier excel qui pilote 3 autres fichiers: 1- je voudrais déjà que ces fichiers soient cachés 2-je souhaiterai qu'en cliquant sur mon commandbutton1 le fichier 1 (toto.xls) s'ouvre et le fichier principal se minimise 3-idem pour les 2 autres avec commandbutton2 et 3 4- en sachant que ces fichiers sont cachés puis-je y avoir accès en affichant les fichiers cachés? 5- y-a-il un moyen d'interdirel'ouverture de ces fichiers (par un mot de passe) seulement par l'utilisateur et non pas par le fichier interface.
Je sais je demande beaucoup mais j'ai encore tellement à apprendre...
Merci de votre aide. PJ
La donne de ton problème n'est pas claire... et ce que tu veux
réaliser l'est encore moins... mais pour masquer un classeur ouvert
il y a ceci :
3 lignes de code qui masquent un fichier :
C'est 2 lignes de code sont équivalentes et ils masquent
le classeur actif ... un peu comme le ferait la commande
du menu fenêtre "Masquer" - "Afficher"
'-----------------------
ThisWorkbook.Windows(1).Visible = True
'ActiveWindow.Visible = False
'-----------------------
La commande suivante est un peu spécial car un fichier
masqué de cette manière ne peut pas être affiché par
la commande du menu "Fenêtre / Afficher"
'-----------------------
Workbooks("Classeur1.xls").IsAddin = True
'-----------------------
Dans tous les cas, le contenu des cellules est accessible et
on peut appeler une macro ou une fonction du fichier ouvert.
"PJ" <PJ@discussions.microsoft.com> a écrit dans le message de news:
233C3551-6A9D-4E49-BB4E-99ADAD200AF9@microsoft.com...
Bonjour à tous,
Voilà mon objectif: J'ai 1 fichier excel qui pilote 3 autres fichiers:
1- je voudrais déjà que ces fichiers soient cachés
2-je souhaiterai qu'en cliquant sur mon commandbutton1 le fichier 1
(toto.xls) s'ouvre et le fichier principal se minimise
3-idem pour les 2 autres avec commandbutton2 et 3
4- en sachant que ces fichiers sont cachés puis-je y avoir accès en
affichant les fichiers cachés?
5- y-a-il un moyen d'interdirel'ouverture de ces fichiers (par un mot de
passe) seulement par l'utilisateur et non pas par le fichier interface.
Je sais je demande beaucoup mais j'ai encore tellement à apprendre...
La donne de ton problème n'est pas claire... et ce que tu veux réaliser l'est encore moins... mais pour masquer un classeur ouvert il y a ceci :
3 lignes de code qui masquent un fichier :
C'est 2 lignes de code sont équivalentes et ils masquent le classeur actif ... un peu comme le ferait la commande du menu fenêtre "Masquer" - "Afficher" '----------------------- ThisWorkbook.Windows(1).Visible = True 'ActiveWindow.Visible = False '----------------------- La commande suivante est un peu spécial car un fichier masqué de cette manière ne peut pas être affiché par la commande du menu "Fenêtre / Afficher" '----------------------- Workbooks("Classeur1.xls").IsAddin = True '-----------------------
Dans tous les cas, le contenu des cellules est accessible et on peut appeler une macro ou une fonction du fichier ouvert.
"PJ" a écrit dans le message de news:
Bonjour à tous,
Voilà mon objectif: J'ai 1 fichier excel qui pilote 3 autres fichiers: 1- je voudrais déjà que ces fichiers soient cachés 2-je souhaiterai qu'en cliquant sur mon commandbutton1 le fichier 1 (toto.xls) s'ouvre et le fichier principal se minimise 3-idem pour les 2 autres avec commandbutton2 et 3 4- en sachant que ces fichiers sont cachés puis-je y avoir accès en affichant les fichiers cachés? 5- y-a-il un moyen d'interdirel'ouverture de ces fichiers (par un mot de passe) seulement par l'utilisateur et non pas par le fichier interface.
Je sais je demande beaucoup mais j'ai encore tellement à apprendre...
Merci de votre aide. PJ
PJ
Merci Michel de ton aide mais ta 2ième sol (celle qui m'interesse le plus) ne permet de caché le fichier qu'à l'utilisation. En fait voilà ce que je veux faire, en plus clair: Dans mon rep TOTO, j'ai 3: 2 doivent être cachés et 1 non. L'ouverture du fichier visible permet d'avoir accès aux 2 autres (là j'y arrive encore) mais dès que je ferme un des fichiers cachés, je suis obligé de sauver pour lui rendre sa propriété de fichier caché. Or si je fais une erreur, je veux pouvoir sortir sans sauver. Voilà ce que j'utilise comme code et MERCI de ta patience: Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim monrep As String monrep = "Documents and SettingsmotogestBureauTest VIRGINIE" ChDir monrep SetAttr monrep + "" + "Classeur2" + ".xls", vbHidden Save Range("A1").Select End Sub
Bonne journée PJ
La donne de ton problème n'est pas claire... et ce que tu veux réaliser l'est encore moins... mais pour masquer un classeur ouvert il y a ceci :
3 lignes de code qui masquent un fichier :
C'est 2 lignes de code sont équivalentes et ils masquent le classeur actif ... un peu comme le ferait la commande du menu fenêtre "Masquer" - "Afficher" '----------------------- ThisWorkbook.Windows(1).Visible = True 'ActiveWindow.Visible = False '----------------------- La commande suivante est un peu spécial car un fichier masqué de cette manière ne peut pas être affiché par la commande du menu "Fenêtre / Afficher" '----------------------- Workbooks("Classeur1.xls").IsAddin = True '-----------------------
Dans tous les cas, le contenu des cellules est accessible et on peut appeler une macro ou une fonction du fichier ouvert.
"PJ" a écrit dans le message de news:
Bonjour à tous,
Voilà mon objectif: J'ai 1 fichier excel qui pilote 3 autres fichiers: 1- je voudrais déjà que ces fichiers soient cachés 2-je souhaiterai qu'en cliquant sur mon commandbutton1 le fichier 1 (toto.xls) s'ouvre et le fichier principal se minimise 3-idem pour les 2 autres avec commandbutton2 et 3 4- en sachant que ces fichiers sont cachés puis-je y avoir accès en affichant les fichiers cachés? 5- y-a-il un moyen d'interdirel'ouverture de ces fichiers (par un mot de passe) seulement par l'utilisateur et non pas par le fichier interface.
Je sais je demande beaucoup mais j'ai encore tellement à apprendre...
Merci de votre aide. PJ
Merci Michel de ton aide mais ta 2ième sol (celle qui m'interesse le plus) ne
permet de caché le fichier qu'à l'utilisation. En fait voilà ce que je veux
faire, en plus clair:
Dans mon rep TOTO, j'ai 3: 2 doivent être cachés et 1 non. L'ouverture du
fichier visible permet d'avoir accès aux 2 autres (là j'y arrive encore) mais
dès que je ferme un des fichiers cachés, je suis obligé de sauver pour lui
rendre sa propriété de fichier caché. Or si je fais une erreur, je veux
pouvoir sortir sans sauver.
Voilà ce que j'utilise comme code et MERCI de ta patience:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim monrep As String
monrep = "Documents and SettingsmotogestBureauTest VIRGINIE"
ChDir monrep
SetAttr monrep + "" + "Classeur2" + ".xls", vbHidden
Save
Range("A1").Select
End Sub
Bonne journée
PJ
La donne de ton problème n'est pas claire... et ce que tu veux
réaliser l'est encore moins... mais pour masquer un classeur ouvert
il y a ceci :
3 lignes de code qui masquent un fichier :
C'est 2 lignes de code sont équivalentes et ils masquent
le classeur actif ... un peu comme le ferait la commande
du menu fenêtre "Masquer" - "Afficher"
'-----------------------
ThisWorkbook.Windows(1).Visible = True
'ActiveWindow.Visible = False
'-----------------------
La commande suivante est un peu spécial car un fichier
masqué de cette manière ne peut pas être affiché par
la commande du menu "Fenêtre / Afficher"
'-----------------------
Workbooks("Classeur1.xls").IsAddin = True
'-----------------------
Dans tous les cas, le contenu des cellules est accessible et
on peut appeler une macro ou une fonction du fichier ouvert.
"PJ" <PJ@discussions.microsoft.com> a écrit dans le message de news:
233C3551-6A9D-4E49-BB4E-99ADAD200AF9@microsoft.com...
Bonjour à tous,
Voilà mon objectif: J'ai 1 fichier excel qui pilote 3 autres fichiers:
1- je voudrais déjà que ces fichiers soient cachés
2-je souhaiterai qu'en cliquant sur mon commandbutton1 le fichier 1
(toto.xls) s'ouvre et le fichier principal se minimise
3-idem pour les 2 autres avec commandbutton2 et 3
4- en sachant que ces fichiers sont cachés puis-je y avoir accès en
affichant les fichiers cachés?
5- y-a-il un moyen d'interdirel'ouverture de ces fichiers (par un mot de
passe) seulement par l'utilisateur et non pas par le fichier interface.
Je sais je demande beaucoup mais j'ai encore tellement à apprendre...
Merci Michel de ton aide mais ta 2ième sol (celle qui m'interesse le plus) ne permet de caché le fichier qu'à l'utilisation. En fait voilà ce que je veux faire, en plus clair: Dans mon rep TOTO, j'ai 3: 2 doivent être cachés et 1 non. L'ouverture du fichier visible permet d'avoir accès aux 2 autres (là j'y arrive encore) mais dès que je ferme un des fichiers cachés, je suis obligé de sauver pour lui rendre sa propriété de fichier caché. Or si je fais une erreur, je veux pouvoir sortir sans sauver. Voilà ce que j'utilise comme code et MERCI de ta patience: Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim monrep As String monrep = "Documents and SettingsmotogestBureauTest VIRGINIE" ChDir monrep SetAttr monrep + "" + "Classeur2" + ".xls", vbHidden Save Range("A1").Select End Sub
Bonne journée PJ
La donne de ton problème n'est pas claire... et ce que tu veux réaliser l'est encore moins... mais pour masquer un classeur ouvert il y a ceci :
3 lignes de code qui masquent un fichier :
C'est 2 lignes de code sont équivalentes et ils masquent le classeur actif ... un peu comme le ferait la commande du menu fenêtre "Masquer" - "Afficher" '----------------------- ThisWorkbook.Windows(1).Visible = True 'ActiveWindow.Visible = False '----------------------- La commande suivante est un peu spécial car un fichier masqué de cette manière ne peut pas être affiché par la commande du menu "Fenêtre / Afficher" '----------------------- Workbooks("Classeur1.xls").IsAddin = True '-----------------------
Dans tous les cas, le contenu des cellules est accessible et on peut appeler une macro ou une fonction du fichier ouvert.
"PJ" a écrit dans le message de news:
Bonjour à tous,
Voilà mon objectif: J'ai 1 fichier excel qui pilote 3 autres fichiers: 1- je voudrais déjà que ces fichiers soient cachés 2-je souhaiterai qu'en cliquant sur mon commandbutton1 le fichier 1 (toto.xls) s'ouvre et le fichier principal se minimise 3-idem pour les 2 autres avec commandbutton2 et 3 4- en sachant que ces fichiers sont cachés puis-je y avoir accès en affichant les fichiers cachés? 5- y-a-il un moyen d'interdirel'ouverture de ces fichiers (par un mot de passe) seulement par l'utilisateur et non pas par le fichier interface.
Je sais je demande beaucoup mais j'ai encore tellement à apprendre...
