Discussion :

[titeZ]

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

[ouskel'n'or]

Dans Excel, ouvre ton fichier en appuyant sur Shift. Désactive les macros.
Tu dis
A+

[titeZ]

Merci,

Mais qu'est ce qui ne va pas dans mon code, pourquoi à l'ouverture seul les fichiers word s'affiche et pas le xls ??

[titeZ]

Je sais pourquoi il ne s'ouvrait plus...

En faite j'ai fait en sorte de lancer ce petit bout de code depuis vb6

Le souci c'est que lorsque je le lance, la input box s'ouvre bien mais le doc excel non
Ce probleme n'avait pas lieu depuis excel puisque le xls était forcement ouvert pour lancer la macro...

Or, comme lorsque je repete le lancement de l'appli depuis vb6 je ne ferme pas le doc... il ne l'ouvre pas... je crois....

Maintenant le probleme,
reste de faire en sorte que mon fichier excel s'ouvre tout le temps ( et pas uniquement la inputbox...

Merci de votre aide

[titeZ]

le probleme provenait de mon code vb6
un petit
appExcel.Visible = True
ca change la vie...