Discussion :

[isma616]

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 :

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

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

[mayekeul]

bonjour, tu peux essayer comme ça

Code :

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

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

[isma616]

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).

[mayekeul]

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 :

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

windows(wb.name).visible=true

[isma616]

Merci c'était ça en effet.