Discussion :

[youki94]

bonjour, je ne comprend pas pourquoi cela ne marche pas
le choix ne fonctionne pas
il me marque toujours la meme chose:
=@IP de la CPU : etc....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Si la E7 < 0 alors signet "IpCpu"=vide sinon signet "IpCpu"=@IP de la CPU : + [E7] + Avec le Masque Réseau : + [O7]
'With Sheets("Info CLIENT")
    'si "E7" est plus grand que 0
  If [E7] Is Null Then '> 0 Then
    'Alors le signet "IpCpu" prend la valeur =@IP de la CPU : + [E7] + Avec le Masque Réseau : + [O7]
    .Bookmarks("IpCpu").Range.Text = ("@IP de la CPU : ") & [E7] & (" Avec le Masque Réseau : ") & [O7]
    Else
    'Alors le signet "IpCpu" prend la valeur = vide
    .Bookmarks("IpCpu").Range.Text = (" 0 ")
    End If
  'End With

Merci de l'aide que vous pourrez m'apporter.
P.S : c'est le 1er post que je fais , donc si il y a des oublie ,je vous pries de m'en excuser.

[Godzestla]

bonjour, je ne comprend pas pourquoi cela ne marche pas
le choix ne fonctionne pas
il me marque toujours la meme chose:
=@IP de la CPU : etc....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Si la E7 < 0 alors signet "IpCpu"=vide sinon signet "IpCpu"=@IP de la CPU : + [E7] + Avec le Masque Réseau : + [O7]
'With Sheets("Info CLIENT")
    'si "E7" est plus grand que 0
  If [E7] Is Null Then '> 0 Then
    'Alors le signet "IpCpu" prend la valeur =@IP de la CPU : + [E7] + Avec le Masque Réseau : + [O7]
    .Bookmarks("IpCpu").Range.Text = ("@IP de la CPU : ") & [E7] & (" Avec le Masque Réseau : ") & [O7]
    Else
    'Alors le signet "IpCpu" prend la valeur = vide
    .Bookmarks("IpCpu").Range.Text = (" 0 ")
    End If
  'End With

Salut bienvenu sur le forum
J'ai entouré ton code des balises sinon c'est incompréhensible.
Difficile de t'aider sans savoir ce que vaut [E7] mais mon petit doigt me dit qu'il est NULL.

Et si tu montrais le reste de ton code pour savoir d'où vient ce E7 ?

Merci d'utiliser les balises codes comme expliqué ici

[youki94]

Dans E7 j'ai :
- rien
-123.123.123.123
ou une autre valeur du meme type en sachant que c'est du texte

oups !!
E7 est une cellule que je remplis

[Godzestla]

oups !!
E7 est une cellule que je remplis

Alors essaie de tester autrement.

Code :

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

1
2
 
If Range("E7"] = "" then

[youki94]

maintenant cela ne me met plus rien

voila le code qui pose probleme

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
'Ouvrir Word en
'Supposant un document Fiche.doc contenant les signets: "Nom"et "Cpu"
Dim LaFicheTech As String
Dim LeNom
Dim ObjWord As Object
On Error Resume Next
LaFicheTech = ThisWorkbook.Path & "\Fiche.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set LeDocWord = ObjWord.documents.Open(LaFicheTech)
LeNom = [A1]
With LeDocWord
'Le nom du signet dans le document word est ici "Nom"
.Bookmarks("Nom").Range.Text = LeNom

'cette parti ne fonctionne pas
'Si la E7 < 0 alors signet "Cpu"=vide sinon signet "Cpu"=@IP de la CPU : + [E7]
With Sheets("Info CLIENT")
    'si "E7" est plus grand que 0
  if [E7] Is Null Then '> 0 Then
    'Alors le signet "IpCpu" prend la valeur =la CPU : + [E7] 
    .Bookmarks("Cpu").Range.Text = ("la CPU : ") & [E7]    ' Else
    'Alors le signet "Cpu" prend la valeur = vide
    .Bookmarks("Cpu").Range.Text = ("")
    End If
 End With
  jusque la
End With
'Pour enregistrer le doc avec le nom=Fiche + (A1).doc
Dim Chemin$, Client$, Fichier$
Chemin = ActiveWorkbook.Path & "\" & Client
Client = Range("A1")
Fichier = "Fiche " & Client & ".rtf"
LeDocWord.SaveAs Chemin & "\" & Fichier
'Quitter Word
ObjWord.Quit
Set ObjWord = Nothing

[Godzestla]

RE,

en gras ce qui ne peut pas marcher, selon moi.
En Italique, la technique que tu devrais utiliser.

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
'Ouvrir Word en
'Supposant un document Fiche.doc contenant les signets: "Nom"et "Cpu"
Dim LaFicheTech As String
Dim LeNom
Dim ObjWord As Object
On Error Resume Next
LaFicheTech = ThisWorkbook.Path & "\Fiche.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set LeDocWord = ObjWord.documents.Open(LaFicheTech)
LeNom = [A1]
With LeDocWord
'Le nom du signet dans le document word est ici "Nom"
.Bookmarks("Nom").Range.Text = LeNom

'cette parti ne fonctionne pas
'Si la E7 < 0 alors signet "Cpu"=vide sinon signet "Cpu"=@IP de la CPU : + [E7]
With Sheets("Info CLIENT")
    'si "E7" est plus grand que 0
  if [E7] Is Null Then '> 0 Then
    'Alors le signet "IpCpu" prend la valeur =la CPU : + [E7] 
    .Bookmarks("Cpu").Range.Text = ("la CPU : ") & [E7]    ' Else
    'Alors le signet "Cpu" prend la valeur = vide
    .Bookmarks("Cpu").Range.Text = ("")
    End If
 End With
  jusque la
End With
'Pour enregistrer le doc avec le nom=Fiche + (A1).doc
Dim Chemin$, Client$, Fichier$
Chemin = ActiveWorkbook.Path & "\" & Client
Client = Range("A1")
Fichier = "Fiche " & Client & ".rtf"
LeDocWord.SaveAs Chemin & "\" & Fichier
'Quitter Word
ObjWord.Quit
Set ObjWord = Nothing

[youki94]

Bon merci de l'aide ca fonctionne maintenant
En gras ce que j'ai modifier selon les conseils

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
'Ouvrir Word avec le document Fiche.doc contenant les signets: "Nom"et "Cpu"
Dim LaFicheTech As String
Dim LeNom
Dim Cputyp
Dim ObjWord As Object
On Error Resume Next
LaFicheTech = ThisWorkbook.Path & "\Fiche.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set LeDocWord = ObjWord.documents.Open(LaFicheTech)
LeNom = [A1]
Cputyp = [E7]
With LeDocWord
'Modifie le signet "Nom" par la valeur de: LeNom = cellule A1
.Bookmarks("Nom").Range.Text = LeNom
'Si la E7=vide alors signet "Cpu"=vide sinon signet "Cpu"=la CPU : + [E7]
    'si "E7" est vide
  if Cputyp="" Then
    'Alors le signet "Cpu" prend la valeur =la CPU : + [E7] 
    .Bookmarks("Cpu").Range.Text = ("la CPU : ") & [E7]    
     Else
    'Alors le signet "Cpu" prend la valeur = vide
    .Bookmarks("Cpu").Range.Text = ("")
    End If
End With
'Pour enregistrer le doc avec le nom=Fiche + (A1).doc
Dim Chemin$, Client$, Fichier$
Chemin = ActiveWorkbook.Path & "\" & Client
Client = Range("A1")
Fichier = "Fiche " & Client & ".rtf"
LeDocWord.SaveAs Chemin & "\" & Fichier
'Quitter Word
ObjWord.Quit
Set ObjWord = Nothing