Discussion :

[linkcr15]

Bonjour à tous!

Tout d'abord désolé pour le titre qui n'est pas très explicite mais je n'ai pas trouvé mieux.

En réalité, je possède un programme VBA qui, à l'ouverture, se place sur la feuille "Affiche Demande" et m'affiche un UserForm sur lequel les utilisateurs peuvent faire des manips' sur plusieurs tableaux.

Maintenant, je créé un deuxième programme qui lui permet d'ajouter des informations dans les tableaux lui aussi.

Pour ce faire, j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set docExcel = CreateObject("Excel.Application")
Set classExcel = docExcel.Workbooks.Open("chemindufichier.xls")
Set feuilDemandes = classExcel.Worksheets("Demandes")

Jusque là tout va bien, mais ça ce complique vite car en réalité le fichier s'ouvre avec l'affichage de mon UserForm. Aucune erreur n'est détectée mais les informations que je souhaite ajouter ne sont pas ajoutées, et le UserForm s'affiche alors que je ne le veux pas. De plus, on ne voit pas le fichier Excel dans la barre des tâches.

Est-ce que quelqu'un pourrait me dire comment entrer des informations dans un tableur Excel sans passer par la fonction Private Sub Workbook_Open()?
Ou alors peut-on détecter que le fichier est ouvert par un autre fichier et donc ne pas lancer les opérations normalement définies? (je trouve la deuxième solution moins réaliste mais sait-on jamais)

[ZebreLoup]

Je n'ai pas tout compris.
Ce que tu fais là c'est ouvrir ton fichier dans une autre application qui tourne en arrière plan. Si tu veux le faire dans ton Excel actuel, tu enlèves la première ligne et le "docExcel." de la 2ème.
Tu trouveras dans la FAQ des moyens de savoir si un fichier est déjà ouvert ou pas.
Si le fichier est fermé, tu as ton objet classExcel sur lequel tu peux travailler. Tu peux donc fermer le userForm, récupérer tes infos et tout.

[linkcr15]

En fait là mon but est, depuis un fichier Excel, ouvrir un autre fichier pour remplir un tableau puis de le fermer pour retourner sur le premier fichier.

Cependant, dans le second fichier que j'ouvre, j'ai dans la fonction Private Sub Workbook_Open() (donc au lancement du fichier) un bout de code qui me permet d'afficher un UserForm. Et quand ce UserForm s'affiche, les données que je souhaite insérer dans le tableau voulu ne s'insèrent pas.

Je me demandais donc comment ne pas passer par Workbook_Open ou alors comment savoir qu'on ouvre le fichier depuis un autre fichier pour ne pas exécuter ma macro au lancement du fichier.

[ZebreLoup]

Il ne faut pas toucher au code du fichier que tu ouvres, il faut gérer ça à partir de la macro appelante. Tu as 2 possibilités :
- Soit comme je disais tu fermes le userForm du 2ème fichier après son ouverture (via le code du premier fichier)
- Soit tu fais Application.EnableEvents = False avant l'ouverture et tu le remets à True à la fin du traitement.

[linkcr15]

Merci ZerbreLoup, j'ai vu ta solution un peu tard car je l'avais déjà trouvé mais j'ai opté pour le EnableEvents ^^ Si ça peux aider, voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Fichier = "...xls"
Application.EnableEvents = False
Set classExcel = Workbooks.Open(Filename:=Fichier)
Application.EnableEvents = True

Merci pour ton aide ZebreLoup en tout cas!