Impossible d'ouvrir un classeur excel en VBA

Bonjour,

Voilà mon petit problème, je dois ouvrir un classeur pour y faire des modifications à l'aide d'une Macro en VBA.

Donc j'ai pris le reflexe de regarder sur le net comment faire cela mais je n'y arrive pas.

J'ai essayé quelques façons différentes mais rien n'y fait.

-Application.Workbooks.Open "Chemin du classeur"
-Workbooks.Open "Chemin du classeur"

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test()   'Gestion des erreures 'On Error GoTo errorHandler   'Initialisation Dim WB_Curent As String WB_Curent = ActiveWorkbook.Name Dim WB_Classeur As String WB_Classeur = Workbooks(WB_Curent).Sheets("Prompt").Range("B2").Value Dim NQualiac As String NQualiac = Workbooks(WB_Curent).Sheets("Prompt").Range("B3").Value Application.Workbooks.Open WB_Classeur

---

Voila pour ce qui est de mon problème.

En plus de cela je désirerais ne pas ouvrir le classeur si il l'est déjà.

Voila merci d'avance, si vous avez besoin de plus d'infos je suis à votre disposition.

Bonne journée

bonjour, tu peux essayer comme ça

Code:

---

1 2 3

dim WB as workbook set WB=GetObject("le chemin complet du fichier")

---

WB sera le référence de ton classeur donc

Merci pour ta réponse.

Alors la référence marche mais le problème n'est pas règlé.

Tout d'abord je ne peux toujours pas ouvrir mon classeur avec cette référence.

-Application.WB.Open

Quand je lance mon Script tout s'execute mais étrangement le fichier est inexistant et quand je quitte excel et que je le rouvre je me retrouve devant une fenêtre vide (pourtant j'enregistre les modifications sur le fichier avant de quitter).

lorsque tu référence l'object, il va s'ouvrir s'il ne l'est pas

parc ontre, il est possible que tu ne le voie pas

dans ce cas :

Code:

---

windows(wb.name).visible=true

---

Merci c'était ça en effet.

:ccool: