J'éspére que pour vous les vacances se sont bien passées    
Et me revoilà avec mes questions    
 
A l'ouverture d'un fichier Word je souhaite avoir un message particulier pour connaitre le demandeur : Client, Exterieur ou prestataire
 

 
J'ai écris cela, avec votre aide sur le forum, et ça marche bien :    
----------------------------------------------------------------
Sub Autoopen()
'  
texte = Selection.Tables(1).Cell(2, 1).Range.Text
fintexte = Len(texte) - 2
MsgBox Mid(Selection.Tables(1).Cell(1, 2).Range.Text, 1, fintexte)
t1 = Mid(Selection.Tables(1).Cell(1, 2).Range.Text, 1, fintexte)
If t1 = "X" Then
  MsgBox ("COMMANDE CLIENT" )
   
End If
End Sub
---------------------------------------------------------------
 
Mais voila, mon fichier Word a été modifié et est présenté diffèrement. je souhaite avoir le même message pour PRESTATAIRES ET EXTERIEUR.
Je ne trouve pas la variable à modifier pour choisir Extérieur    
 
Je change quelles variables ?
Comment on choisis une cellule dans le tableau ?
 
Mon document Word est maintenant présenté comme ceci

 
Merci    

Bonjour,
puisque personne ne te répond, veux tu répondre à ces questions:
 
 
ton premier modèle avait combien de tableaux dans le premier cas?
réponse:
 
il(s) avai(en)t quel(s) numéro(s) dans les lignes que tu a mises sur ton post?:
 
réponse:
 
Quelle cellule voulais-tu atteindre? (ligne, colonne)?
 
réponse:
 
quel est le terme employé pour cela dans les lignes que tu a mises sur ton post?:
 
Réponse:
 
Maintenant, peux tu mettre le numéro du tableau concerné dans ton nouveau modèle?
 
Réponse: N°  
 
peux-tu donner les numéros de ligne et de colonne de la cellule que tu veux tester?
 
Réponse : ligne          colonne
 
 
enfin, peux-tu remplacer dans la macro les infos  tableau et cellule par les nouvelles valeurs?
 
Cela ne coute rien d'essayer et de mettre la macro que tu as corrigée.
On te diras si c'est correct
A bientôt
Cordialement
 
 
 
 
 
 

ton premier modèle avait combien de tableaux dans le premier cas?
réponse: 1 tableau composé 1 ligne et 6 colonnes
 
il(s) avai(en)t quel(s) numéro(s) dans les lignes que tu a mises sur ton post?:
réponse: ligne 1
 
Quelle cellule voulais-tu atteindre? (ligne, colonne)?
réponse: La position du X : (ligne 1, colonne 2)
 
quel est le terme employé pour cela dans les lignes que tu a mises sur ton post?:
Réponse: Selection.Tables(1).Cell(2, 1).Range.Text
 
Maintenant, peux tu mettre le numéro du tableau concerné dans ton nouveau modèle?
Réponse:   Tableau n°2 situé à ligne 4
 
peux-tu donner les numéros de ligne et de colonne de la cellule que tu veux tester?
Réponse : ligne 4, colonne  4    
 
enfin, peux-tu remplacer dans la macro les infos  tableau et cellule par les nouvelles valeurs?
 Réponse :  

Bonjour,
Bien Dormi?
A) ligne 4, colonne 4?
J'avais l'impression qu'il était question de la ligne 1  du tableau qui est en deuxième position?
 
 
B) Selection.Tables(1).Cell(2, 1).Range.Text  
   
le 2 de cell(2,1) indique que tu veux atteindre la cellule  placée en ligne 2 de ton tableau!!! et placée en colonne 1. Il n'y a qu'une ligne dans ton tableau.En fait cette ligne n'est pas exacte.
 
Comme le dialogue risque d'être long, souhaites-tu le continuer en message privé?
Cordialement
 
 

Bonjour,
 
 
Tu remplaces :
Selection.Tables(1)
par
Activedocument.tables(2)
 
Selection.tables(1) prend en compte le tableau où est ton curseur.
Quand tu ouvrais ton fichier, le curseur était placé dans la première cellule du tableau.
Comme tu as ajouté un tableau, ça a tout décalé.
 
Activedocument.tables(2) prend en compte le deuxième tableau du document
A+

Bonjour pyrof,
 
Bon, je voulais le faire réfléchir un peu. lol
tu n'as pas donné la cellule
Cordialement

J'ai compris    
la commande Activedocument.tables(2) de pyrof m'a bien aidé
Merci merci beaucoup