L Indice N Appartient Pas À La Sélection Vba De
Pour en savoir plus, cliquez ici.
L Indice N Appartient Pas À La Sélection Vba Canada
Bonjour à tous, Voici un bout de mon code qui permet de rechercher dans la partie catégorie de chaque contacts (carnet d'adresses outlook). Si un contact est trouvé, alors j'extrais les chiffres de la première ligne des notes du contact et je le colle dans la listbox avec le nom du contact avec le nom de la société. Lorsque je lance mon programme, une erreur apparaît: "Erreur d'exécution '9': l'indice n'appartient pas à la sélection" sur la ligne dItem (Consult(0) & " " & objContact. L indice n appartient pas à la sélection vba canada. FullName & " - " & panyName) Plus précisément avec Consult(0) For Each W In 'Rechercher dans mes contacts If TypeName(W) = "ContactItem" Then Set objContact = W If (InStr(1, tegories, UserForm2. TextBox2, vbTextCompare) <> 0) Then If UBound(Split(, "Objet")) <> 0 Then 'S'il existe un ou plusieurs numéro(s) de consultations Dim Consult As Variant Consult = Split(, ". ",, vbTextCompare) 'On extrait le dernier mot de consultation dItem (Consult(0) & " " & objContact. FullName & " - " & panyName) 'Ajouter le nom des personnes contactés End If Next W Pourquoi me donne-t-il cette erreur?
Activate' avec le code "Erreur 9: l'indice n'appartient pas à la sélection" alors que justement tout est fait pour qu'il aille en gestionOnglet et là il n'y va pas. Quelque'un aurait-il l'explication à mon problème? Indice hors plage (Erreur 9) | Microsoft Docs. Et pourquoi pas, une autre méthode de test de présence d'un onglet? - Private Sub Traitement() Dim NomFichierEntreeTXT As String, LigneLue As String, Base As String, Objet, Fichier NomFichierEntreeTXT = Dir("*TOTO*", vbNormal) Do While NomFichierEntreeTXT <> "" Set Fichier = TextFile(NomFichierEntreeTXT, 1, -2) LigneLue = adLine Base = Trim(Mid(LigneLue, 9, 90)) On Error GoTo GestionOnglet Worksheets(Base). Activate On Error GoTo 0... Loop MsgBox "Le traitement est terminé! ", vbInformation, "INFO" Exit Sub GestionOnglet: after:=Sheets() = Base Resume Next End Sub En vous remerciant par avance