Bonjour,

Euh j'ai un "petit" probleme

Alors j'ai fais des macro qui à l'ouverture de mon doc excel afficher une input box et qui selon ce qu'on taper dedans devait ouvrir un doc word ( ça marchait super bien vendredi....)
aujourdhui je n'arrive plus a ouvrir mon doc excel quand j'essaie j'ai l'input box qui m'ouvre uniquement mon doc word mais sans ouvrir mon doc excel et quand je fais annuler dans l'input box et bien là rien ne se passe alors que vendredi j'avais mon doc excel qui s'ouvrait ...

Mon seul moyen d'acceder a ce doc maintenant c'est de l'ouvrir depuis excel deja ouvert...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Private Sub Workbook_Open()
 
Dim Retour As String
Dim WordApp As Word.Application
Dim WordDoc1, WordDoc2, WordDoc3, WordDoc4, WordDoc5 As Word.Document
 
Set WordApp = CreateObject("Word.Application")
 
   Retour = InputBox("La description de quelle comparaison souhaitez vous avoir ? ", "Information", "Client? Clause B ?....", 10, 10)
 If Retour = "Client" Then
      WordApp.Visible = True
    Set WordDoc1 = WordApp.Documents.Open("O:\...doc", ReadOnly:=True)
 
 
ElseIf Retour = "Clause Beneficiaire" Then
    WordApp.Visible = True
 Set WordDoc2 = WordApp.Documents.Open("O:\...doc", ReadOnly:=True)
 
 
ElseIf Retour = "Souscript assuré" Then
    WordApp.Visible = True
 Set WordDoc2 = WordApp.Documents.Open("O:\...doc", ReadOnly:=True)
 
 
ElseIf Retour = "Frais acq" Then
    WordApp.Visible = True
 Set WordDoc2 = WordApp.Documents.Open("O:\...doc", ReadOnly:=True)
 
 ElseIf Retour = "Evenement de gestion" Then
    WordApp.Visible = True
 Set WordDoc2 = WordApp.Documents.Open("O:\...doc", ReadOnly:=True)
 
 ElseIf Retour = "Derog op" Then
    WordApp.Visible = True
 Set WordDoc2 = WordApp.Documents.Open("O:\...doc", ReadOnly:=True)
 
 
 ElseIf Retour = "Derog Non op" Then
    WordApp.Visible = True
 Set WordDoc2 = WordApp.Documents.Open("O:\...doc", ReadOnly:=True)
 
ElseIf Retour = "" Then
 Call vide
 Else
 Call nimportequoi
 
End If
End Sub
Private Sub vide()
 
  reponse = MsgBox("vous n'avez rien inscrit! si vous ne voulez rien ouvrir cliquez sur annuler sinon inscrivez le nom du fichier", vbRetryCancel, "Attention")
  If reponse = vbRetry Then
 Call Workbook_Open
 End If
 
 End Sub
Private Sub nimportequoi()
info = MsgBox("Cette comparaison n'existe pas ou vous l'avez mal orthographié!Attention à la casse si vous ne voulez rien ouvrir cliquez sur annuler sinon inscrivez le nom du fichier", vbRetryCancel, "Attention")
 If info = vbRetry Then
Call Workbook_Open
 End If
End Sub
Quelqu'un peut il m'aider
Merci...