Discussion :

[Jam97]

Bonjour,

J'ai repris ce code vba sur un site mais je ne comprends pas pourquoi il bloque a la ligne rouge 'Erreur d'exécution'9': L'indice n'appartient pas à la sélection.

Avez-vous une solution svp ?

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub publipostage()

    Application.ScreenUpdating = False

    Dim classeurOrigine As String, classeurPublipostage As String
    classeurOrigine = ActiveWorkbook.Name
    
    Workbooks.Add
    classeurPublipostage = ActiveWorkbook.Name
    [A1] = "Publipostage automatique réalisé le " & Format(Now, "dd/mm/yyyy hh:mm")
    
    Windows(classeurOrigine).Activate
    
    Dim table As Range
    Set table = [a8].CurrentRegion
    
    Dim ligne As Integer, colonne As Integer
    For ligne = 2 To table.Rows.Count
        Dim enregistrements As String, email As String
        enregistrements = ""
        
        For colonne = 1 To table.Columns.Count
            enregistrements = enregistrements & table(1, colonne) & ";" & table(ligne, colonne) & "!"
        Next
        
        Debug.Print Now, ligne, enregistrements
    
        ActiveSheet.Shapes(1).Copy
        Application.Wait (Now + TimeValue("00:00:01"))
        
        Windows(classeurPublipostage).Activate
        Sheets.Add After:=ActiveSheet
        
        ActiveSheet.Paste
        Application.CutCopyMode = False
        
        Dim enregistrement As Variant, nouveauTexte As String
        For Each enregistrement In Split(enregistrements, "!")
            If enregistrement <> "" Then
                  
                nouveauTexte = ActiveSheet.Shapes(1).TextFrame.Characters.Text
                nouveauTexte = Replace(nouveauTexte, "[" & Split(enregistrement, ";")(0) & "]", Split(enregistrement, ";")(1), 1)
                ActiveSheet.Shapes(1).TextFrame.Characters.Text = nouveauTexte
                
                If Split(enregistrement, ";")(0) = "Mail" Then
                    email = Split(enregistrement, ";")(1)
                End If
            End If
        Next
        
        creerMail email, nouveauTexte
    
        Windows(classeurOrigine).Activate
    Next
    
    Application.ScreenUpdating = True
    
End Sub

[Philippe Tulliez]

Bonjour,
Que contient la variable nouveauTexte et la variable tableau enregistrement juste avant cette erreur ?

[Jam97]

Bonjour,
Que contient la variable nouveauTexte et la variable tableau enregistrement juste avant cette erreur ?

Bonjour,

Je suis pas certaine de comprendre ta question.

le nouveau texte est normalement la fusion des données de mon tableau avec le texte d'origine.

[Philippe Tulliez]

Bonjour,
Je me suis mal exprimé.
Dans la ligne 45 du code publié. La fonction Split crée une table mais ici elle est évaluée immédiatement par Split(enregistrement, ";")(0) donc il faudrait connaître la valeur de l'indice 0 et 1 (ligne 46)
Et quelle est la valeur de la variable nouveauTexte

[Jam97]

Bonjour,
Je me suis mal exprimé.
Dans la ligne 45 du code publié. La fonction Split crée une table mais ici elle est évaluée immédiatement par Split(enregistrement, ";")(0) donc il faudrait connaître la valeur de l'indice 0 et 1 (ligne 46)
Et quelle est la valeur de la variable nouveauTexte

Je suis très novice, je ne comprends pas ta question. La valeur de l'indice O c'est à dire à quelle cellule elle fait référence dans mon tableau d'origine ?

[deedolith]

Reformulé plus simplement:
Que vaut la variable enregistrement au moment où ca plante ?

[deedolith]

Hello,

Savoir coder, c'est bien,
mais savoir debugger c'est mieux:
https://darkvader.developpez.com/tut...isual-basic-6/