Bonjour,
Il est vraisemblable que l'une de tes feuilles porte un nom différent de celui utilisé
Par ailleurs : la notation Range("sCS") est assez étrange.
si sCS est le nom que tu as donné à une plage, ce serait Range(sCS)
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend
Effectivement, ma feuille "IBD UK transports" devait s'appeler "IBD Transporten". Mais une fois corrigée, j'ai maintenant un nouveau message au même endroit qui indique:
Object does not support this property or method.
J'ai déjà utilisé ce bout de code à maintes reprises et je ne vois pas où 4a pêche.
"Mais une fois corrigée, j'ai maintenant un nouveau message au même endroit qui indique:
Object does not support this property or method."
J'attends ta réaction à mon autre observation ! (il y avait DEUX remarques dans mon message précédent ...)
Pour répondre, s'i_l te plait : n'utilise pas le tag "Commentaires", mais le tag "Répondre". Sinon on ne s'y retrouvera plus, dans le fil de cette discussion.
Par ailleurs : la notation Range("sCS") est assez étrange.
Il me semble bien qu'il peut utiliser cette notation pour faire appel à une plage nommée.
Exemple... si on crée une plage nommée : "Test"
Range("Test").Select
Ce code permettra de la selectionner.
Maintenant la question est de savoir si cette plage "sCS" existe bien.....
eventuellement il pourrait passer par un code de ce genre
Sub toto()
If TestPlageNommees("Test") = True Then
Range("Test").Select
End If
End Sub
Function TestPlageNommees(plageName As String) As Boolean
Dim PlageNommees As Name
For Each PlageNommees In ActiveWorkbook.Names
If PlageNommees.Name = plageName Then T = True
Next PlageNommees
If T = True Then
TestPlageNommees = True
Else
TestPlageNommees = False
End If
End Function
Attention aux majuscules/minuscules.. la plage nommée doit être orthographiées correctement!
SCS est un nom de plage qui me permet de sélectionner le nom de la personne qui va signer l'email. Suivant les initiales rentrées, cela va me chercher la ligne correspondante et me créer la signature avec les données trouvée sur la même ligne que Scs.
Le tout est de savoir comment tu as déclaré cette plage ...
Via du code (vba) ou dans excel en utilisant les espaces de noms sur les cellules...
et puis... SCS <> Scs <> sCS.... attention !
Si tu as utilisé du code pour déclarer cette plage..montre le nous.
Ensuite, le non Scs change de cellule suivant le résultat trouvé. Le résultat est cherché avec le code suivant (dans un autre module qui renvoie ensuite au module de création de l'email)
Sheets("DATA").Activate
Dim sFind
Dim nSearch5 As String
nSearch5 = Range("SalesTransportUK").Value
Set sFind = Sheets("DATA").Columns(20).Find(nSearch5, LookIn:=xlValues, MatchCase:=False)
If Not sFind Is Nothing Then
Range(sFind.Address).Name = "sCS"
Range("sCS").Select
Apparemment, il y a un _ final (à la fin de la dernière ligne) qui ne devrait pas être là.
Pour ce qui est des Range, je ne trouve pas cela choquant.
Avant d'insérer les Ranges dans ta chaine de caractères, affiche leur contenu dans la fenêtre de debug avant, exemple :
