Discussion :

[Miyamura]

Bonjour,


J'ai un problème avec ce 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
15
16
17
18
19
20
21
22
23
24
25
Sub conditions()
 
 
If UCase(Range("AA2")) Like "*Installation*" Then
 
 
 
 
Dim strFichier As String
Dim objWord As New Word.Application
 
strFichier = "C:\Users\Moi\Documents\Macros et Publipostages\Documents test\Avenant au contrats.docx"
 
 
' ouvrir un document Word
objWord.Documents.Open strFichier
' rendre Word visible
objWord.Visible = True
 
 
Else
 
Application.Quit
 
End If

Quand je lance la macro, il me ferme Excel, ce qui veut dire que la condition n'est pas remplie. Pourtant en case AA2, j'ai bien le mot "installation"... Quelqu'un aurait une idée de pourquoi la macro réagit comme ça ? Ai-je utilisé la mauvaise condition pour du texte ?



Merci d'avance et bonne journée.

[Philippe Tulliez]

Bonjour,
C'est pourtant clair, tu forces la majuscule du contenu de la cellule AA2 et tu effectues le test avec une chaîne de caractères dont la première lettre est une majuscule et le reste en minuscule
La ligne du dessous fonctionnera mieux

Code :

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

If UCase(Range("AA2")) Like "*INSTALLATION*" Then

ou encore

Code :

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

If LCase(Range("AA2")) Like "*installation*" Then

[Miyamura]

Tout simplement. C'était tellement gros que je ne l'ai même pas remarqué.


Merci beaucoup et bonne journée.