"L'indice n'appartient pas à la sélection"

Version imprimable

bjr le forum,

je bute depuis plusieurs jours sur un pb, j'ai réussi à "remonter" à la source : je n'arrive pas à rendre actif un .xlsm et donc une de ses feuilles.
le code en question :
Code:

1 2 Workbooks(Fact_HNO_FullFileName).Activate Sheets("export_RDU").Activate
le 1ere ligne "passe", mais ne fait rien apparemment, puisque le fichier actif est mon PERSONAL.XLSB (pourquoi ???).
du coup ca plante sur la 2e (puisque la feuille n'existe pas dans le fichier actif).

je vous mets ce qui se passe juste auparavant, cela peut avoir (sûrement) son importance, sachant qu'à ce moment-là, c'est le fichier .xlsm (valeur de Fact_HNO_FullFileName) qui est actif (ainsi que la feuille "export_RDU"):
Code:

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 ActiveSheet.ListObjects("Tableau9").Range.AutoFilter Field:=Range("Nom").Column, Criteria1:=Nom_Presta ActiveSheet.ListObjects("Tableau9").Range.AutoFilter Field:=Range("semaineAST").Column, Criteria1:=Numero 'rech derniere ligne Row_WB = Sheets("export_RDU").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row 'si tableau vide, mssg d'erreur If Row_WB = 2 Then MsgBox ("Aucune intervention trouvée pour " & Nom_Presta & " en W" & Numero & ", corriger et relancer.") 'ouvrir pdf + dder si on continue ou pas (ENR pdf sur shpt + del) ThisWorkbook.FollowHyperlink Address:=pceJointe reponse = MsgBox("ENR le pdf sous shpt (si ''non'', arrêt) ?", vbYesNo) If reponse = vbYes Then GoTo Enr_Del_PDF Else Exit Function End If End If Enr_Del_PDF: 'ENR pièce jointe ss shpt sous un nv nom 'supp filtres Workbooks(Fact_HNO_FullFileName).Activate Sheets("export_RDU").Activate
explications :
- je cherche à enregistrer un pdf vers un sharepoint Windows
- et renseigner mon .xlsm (= valeur de Fact_HNO_FullFileName) avec la date du jour
--> je filtre donc le .xlsm sur certains champs avant de le renseigner
- si row_WB = 2 --> c'est que le résultat des filtres donne 0 ligne
--> dans ce cas j'ouvre le pdf pour voir le contenu et je demande si on continue ou pas
- si on répond "oui", on continue pour l'enregistrer...

... et là ça plante, et le fichier "actif" = PERSONAL.XLSB

c'est parce que je me suis rendu compte que le nv filtre ne fonctionnait pas, que je n'arrivais pas à supprimer les 2 filtres existant, que la cellule A2 (où commence mon tableau) n'était pas active, que la feuille ne l'était pas non plus,... que j'en suis arrivé à essayer de "forcer" la sélection de Fact_HNO_FullFileName - sans succès...

Est-ce du à l'ouverture du pdf ?

d'avnce merci de vous pencher sur mon probème,

bien cordt
WB

20/03/2017, 18h19
Theze

Bonjour,

Déjà, je vois que tu en a fais une fonction (je vois Exit Function) alors il faut savoir qu'une fonction n'est pas faite pour exécuter des actions mais pour retourner une valeur (valeur qui peut être numérique, objet, ou autre encore...) ou un tableau de valeurs.
Il te faut mettre ton code dans une Sub ()...End Sub et tester !
21/03/2017, 11h24
weyb06

Bonjour

j'ai donc modifié pour en faire une Sub... End Sub...

...et même résultat :-(
c'est toujours mon PERSONAL.XLSB qui est "actif"

Cordialement
21/03/2017, 13h24
Marc-L

Bonjour,

juste un rappel : un bon code n'a pas besoin d'activer un classeur pour accéder à ses feuilles et leurs cellules …

___________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
21/03/2017, 13h29
weyb06

bjr,

je sais que mon code est loin d'être "bon", optimal, etc., je fais ce que je peux avec l'enregistreur de macro et ce que je trouve sur internet...

mais là, je ne comprends même pas pourquoi c'est mon PERSONAL.XLSB qui est "actif" !
???

cordt
21/03/2017, 19h01
Theze

Bonsoir,

Poste ton code en entier (de Sub à End Sub) pour voir !

bjr

le code en entier, avec comme paramètres passés :
- Numero = 200818
- Nom_presta = toto
- pceJointe = toto_200818-HNO.pdf
- Fact_HNO_FullFileName = facturation HNO 2017.xlsm
- olmail_ReceivedTime = 18/02/2017
- trouve = true

Code:

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
Sub Trait_pdf_HNO_recu(Numero As Long, Nom_Presta As String, pceJointe As String, Fact_HNO_FullFileName As String, olmail_ReceivedTime As Date, trouve As Boolean)

'Public Function Trait_pdf_HNO_recu(Numero As Long, Nom_Presta As String, pceJointe As String, Fact_HNO_FullFileName As String, olmail_ReceivedTime As Date, trouve As Boolean) As String

Dim continuer As String
Dim reponse As String
Dim pceJointe_new As String
Dim FirstPrenom As String
Dim annee As Integer
Dim Num_Mois As Variant
Dim Site As String
Dim SSII As String
Dim Row_WB As Integer
Dim Col_WB As Integer
Dim Col_Presta As Integer
Dim Row As Integer
Dim HNO As String
Dim cell As Range

    'xls HNO
    Windows(Fact_HNO_FullFileName).Activate

    'select onglet
    If Numero > 55 Then
        Sheets("Planning TPs").Select
        HNO = "TP"
    Else
        Sheets("export_RDU").Select
        HNO = "Astreintes"
    End If
    
    'supp filtres
    Range("A2").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Selection.AutoFilter
            
    If Numero > 55 Then 'TP

        'récup année, mois, SSII
        Columns("A:A").Select
        Selection.Find(What:=Numero & "_" & Nom_Presta, After:=ActiveCell, LookIn:=xlValues, _
            LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Activate
    
        'MAJ xls HNO onglet TP avec date du jour
        Col_WB = Range("recuSSIITP").Column
        If Cells(ActiveCell.Row, Col_WB).Value = "" Then
            Cells(ActiveCell.Row, Col_WB).Value = olmail_ReceivedTime
        Else
            continuer = MsgBox("fichier a priori déjà reçu le " & Cells(ActiveCell.Row, Col_WB).Value & " : continuer ?", vbYesNo)
            If continuer = vbNo Then GoTo fermeture
        End If
                            
        Col_WB = Range("dateTP").Column
        annee = Year(Cells(ActiveCell.Row, Col_WB).Value)

        If Month(Cells(ActiveCell.Row, Col_WB).Value) > 9 Then
           Num_Mois = CStr(Month(Cells(ActiveCell.Row, Col_WB).Value))
        Else
           Num_Mois = "0" & CStr(Month(Cells(ActiveCell.Row, Col_WB).Value))
        End If
        If Numero > 50 And Numero < 55 And Num_Mois = "01" Then Num_Mois = "12"
                    
        Col_WB = Range("siteTP").Column
        Site = Cells(ActiveCell.Row, Col_WB).Value
        If LCase(Site) = "mougins" Then Site = "Sophia-Antipolis"
        Col_WB = Range("SSII_porteuse_TP").Column
        SSII = Cells(ActiveCell.Row, Col_WB).Value
        
    Else  'astreinte
        'filtre sur presta/semaine
        Col_Presta = Range("Nom").Column
        ActiveSheet.ListObjects("Tableau9").Range.AutoFilter Field:=Range("Nom").Column, Criteria1:=Nom_Presta
        ActiveSheet.ListObjects("Tableau9").Range.AutoFilter Field:=Range("semaineAST").Column, Criteria1:=Numero
        
        'rech derniere ligne
        Row_WB = Sheets("export_RDU").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
        'si tableau vide, mssg d'erreur
        If Row_WB = 2 Then
            MsgBox ("Aucune intervention trouvée pour " & Nom_Presta & " en W" & Numero & ", corriger et relancer.")
            'ouvrir pdf + dder si on continue ou pas (ENR pdf sur shpt + del)
            ThisWorkbook.FollowHyperlink Address:=pceJointe
            reponse = MsgBox("ENR le pdf sous shpt (si ''non'', arrêt) ?", vbYesNo)
            If reponse = vbYes Then
                GoTo Enr_Del_PDF
            Else
                Exit Sub
            End If
        End If
        
        'MAJ colonne "reçu SSII" avec date du jour si pas deja renseigné
        Col_WB = Range("recuSSIIAstr").Column

        For Each cell In Range(Cells(3, Col_WB), Cells(Row_WB, Col_WB)).SpecialCells(xlCellTypeVisible).Rows
            Row = cell.Row
            Cells(Row, Col_WB).Select
            If Cells(Row, Col_WB).Value = "" Then
                Cells(Row, Col_WB).Value = olmail_ReceivedTime
            Else
                continuer = MsgBox("fichier a priori déjà reçu le " & Cells(Row, Col_WB).Value & " : continuer ?", vbYesNo)
                If continuer = vbNo Then GoTo fermeture
            End If
        Next
        
        'récup site
        Col_WB = Range("siteAstr").Column

        For Each cell In Range(Cells(3, Col_WB), Cells(Row_WB, Col_WB)).SpecialCells(xlCellTypeVisible).Rows
            Row = cell.Row
        Next
        Site = Cells(Row, Col_WB).Value
        If LCase(Site) = "mougins" Then Site = "Sophia-Antipolis"
        
        'récup année
        Col_WB = Range("date_et_heure").Column
        annee = Year(Cells(ActiveCell.Row, Col_WB).Value)
        
        'récup ssii porteuse
        Col_WB = Range("SSII_porteuse_IntAstr").Column
        SSII = Cells(Row, Col_WB).Value
        
        'récup n° mois
        Col_WB = Range("moisInterv").Column
        If Cells(Row, Col_WB).Value > 9 Then
           Num_Mois = CStr(Cells(Row, Col_WB).Value)
        Else
           Num_Mois = "0" & CStr(Cells(Row, Col_WB).Value)
        End If
        If Numero > 50 And Num_Mois = "01" Then Num_Mois = "12"
        
        'supp filtres
        ActiveSheet.ListObjects("Tableau9").Range.AutoFilter Field:=Range("Nom").Column
        ActiveSheet.ListObjects("Tableau9").Range.AutoFilter Field:=Range("semaineAST").Column
    
    'fin si TP/Astr (Numero > 55)
    End If
                    
Enr_Del_PDF:
    'On Error GoTo 0
    
    'ENR pièce jointe ss shpt sous un nv nom
    If HNO = "TP" Then
        pceJointe_new = SSII & "-" & Nom_Presta & "_" & Numero & "-signed.pdf"
    Else
        'supp filtres
        Workbooks(Fact_HNO_FullFileName).Activate
        Sheets("export_RDU").Activate --> là ca plante puisque la feuille active est celle de mon PERSONAL.XLSB
        Debug.Print ActiveSheet.Name  
        With Workbooks(Fact_HNO_FullFileName).Sheets("export_RDU")
            If .AutoFilterMode Then
                .Cells.AutoFilter
            End If
        End With
        'on ne met que le filtre sur le presta pour pouvoir avoir au moins 1 ligne avec le prénom
        ActiveSheet.ListObjects("Tableau9").Range.AutoFilter Field:=Col_Presta, Criteria1:=Nom_Presta
        'rech derniere ligne
        Row_WB = Sheets("export_RDU").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
        'si tableau vide, mssg d'erreur
        If Row_WB = 2 Then
            MsgBox ("Aucune intervention trouvée pour " & Nom_Presta & " en W" & Numero & " --> sortie / ENR manuellement.")
            Exit Sub
        End If
        
        'récup 1ere lettre prénom
        Col_WB = Range("PrenomAstr").Column
        FirstPrenom = Mid(Cells(Row_WB, Col_WB).Value, 1, 1)
        pceJointe_new = SSII & "-" & FirstPrenom & Nom_Presta & "-w" & Numero & ".pdf"
    End If

    FileCopy pceJointe, "Y:\test\CRA astreintes et TPs\" & HNO & "\2-revenu signé SSII\" & annee & "\" & Site & "\" & Num_Mois & "\" & pceJointe_new
    If Error = "Impossible d'enregistrer la pièce jointe." Then MsgBox ("Impossible d'enregistrer la pièce jointe --> copier le fichier à la main dans ''2-revenu signé SSII/" & Site & "/" & Num_Mois & "''") '
                    
fermeture:

    pceJointe = "*" & Nom_Presta & "*.pdf"
    Kill "Y:\test\" & LCase(pceJointe)

    On Error Resume Next
    Kill "Y:\test\CRA astreintes et TPs\" & HNO & "\1-envoyé SSII\" & Site & "\" & Num_Mois & "\" & pceJointe
    If Error = "Fichier introuvable" Then MsgBox ("Fichier introuvable --> supp. le fichier à la main de ''1-envoyé SSII/" & Site & "/" & Num_Mois & "''")
    On Error GoTo 0
    
    'Trait_pdf_HNO_recu = CStr(SSII & "-" & annee)

End Sub

c'est un peu long, désolé...

merci d'avance !!!

cordt

22/03/2017, 10h57
unparia

Bonjour

Citation:

- Fact_HNO_FullFileName = facturation HNO 2017.xlsm

je suppose que tu veux dire : = "facturation HNO 2017.xlsm"
Il est vraisemblable qu'aucune des fenêtres ouvertes ne possède ce Caption-là très exactement

A moins que le paramètre concerné (Fact_HNO_FullFileName) ne soit vide au moment de l'appel de cette procédure. A vérifier, donc, juste avant cet appel.
22/03/2017, 13h39
weyb06
re,

oui je n'avais mis aucun guillemet pour aucune variable...

j'ai vérifié, j'ai bien le nom du fichier nécessaire dans 'Fact_HNO_FullFileName' :
Code:

1 2 ? Fact_HNO_FullFileName Facturation des déplacements, astreintes et TP pour 2017.xlsm
NOTA : j'ai le même souci ailleurs dans une Function appelée (avec aussi passage de paramètres)
cela n'arrive que quand le nom de la pièce jointe est mal "formatté" et que du coup je dois ouvrir le pdf avec "Hyperlink" pour trouver le nom de la personne et la saisir dans une fenêtre (tout ceci, "avant" donc l'appel au code que j'ai mis en ligne ce matin).

cordt

Bonsoir,

Tous les "Select" et "Activate" sont totalement inutiles et ralentissent le code et surtout, font scintiller l'écran !
J'ai tenté de modifier un peu ton code mais difficile de tester sans le fichier !
Il y a un endroit où je ne suis pas arrivé à savoir quelle était la cellule active (voir le commentaire dans le code) :

Code:

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
 
Sub Trait_pdf_HNO_recu(Numero As Long, Nom_Presta As String, pceJointe As String, Fact_HNO_FullFileName As String, olmail_ReceivedTime As Date, trouve As Boolean)
 
    '-----------
    Dim ClsHNO As Workbook
    Dim Fe As Worksheet
    Dim Cel As Range
    '-----------
    Dim continuer As String
    Dim reponse As String
    Dim pceJointe_new As String
    Dim FirstPrenom As String
    Dim annee As Integer
    Dim Num_Mois As Variant
    Dim Site As String
    Dim SSII As String
    Dim Row_WB As Integer
    Dim Col_WB As Integer
    Dim Col_Presta As Integer
    Dim Row As Integer
    Dim HNO As String
    Dim cell As Range
 
    'xls HNO
    'le classeur est sensé être ouvert !
    Set ClsHNO = Workbooks(Fact_HNO_FullFileName)
 
    Set Fe = ClsHNO.Sheets("Planning TPs")
 
    Application.CutCopyMode = False
 
    'supp filtres
    Fe.Range("A2").AutoFilter
 
    If Numero > 55 Then 'TP
 
        Set Fe = ClsHNO.Sheets("Planning TPs")
        HNO = "TP"
 
        'récup année, mois, SSII
        Set Cel = Fe.Columns("A:A").Find(Numero & "_" & Nom_Presta, , xlValues, xlWhole)
 
        'MAJ xls HNO onglet TP avec date du jour
        Col_WB = Fe.Range("recuSSIITP").Column
 
        'si pas trouvé, bifurque vers "fermeture"
        If Cel Is Nothing Then GoTo fermeture '<-----------o à adapter !!!
 
        If Fe.Cells(Cel.Row, Col_WB).Value = "" Then
            Fe.Cells(Cel.Row, Col_WB).Value = olmail_ReceivedTime
        Else
            If MsgBox("fichier a priori déjà reçu le " & Cells(ActiveCell.Row, Col_WB).Value & " : continuer ?", vbYesNo) = vbNo Then GoTo fermeture
        End If
 
        Col_WB = Range("dateTP").Column
        annee = Year(Fe.Cells(Cel.Row, Col_WB).Value)
 
        If Month(Fe.Cells(Cel.Row, Col_WB).Value) > 9 Then
           Num_Mois = CStr(Month(Fe.Cells(Cel.Row, Col_WB).Value))
        Else
           Num_Mois = "0" & CStr(Month(Fe.Cells(Cel.Row, Col_WB).Value))
        End If
 
        If Numero > 50 And Numero < 55 And Num_Mois = "01" Then Num_Mois = "12"
 
        Col_WB = Fe.Range("siteTP").Column
        Site = Fe.Cells(Cel.Row, Col_WB).Value
        If LCase(Site) = "mougins" Then Site = "Sophia-Antipolis"
        Col_WB = Fe.Range("SSII_porteuse_TP").Column
        SSII = Fe.Cells(Cel.Row, Col_WB).Value
 
    Else  'astreinte
 
        Set Fe = ClsHNO.Sheets("export_RDU")
        HNO = "Astreintes"
 
        'filtre sur presta/semaine
        Col_Presta = Fe.Range("Nom").Column
        Fe.ListObjects("Tableau9").Range.AutoFilter Field:=Range("Nom").Column, Criteria1:=Nom_Presta
        Fe.ListObjects("Tableau9").Range.AutoFilter Field:=Range("semaineAST").Column, Criteria1:=Numero
 
        'rech derniere ligne
        Row_WB = Sheets("export_RDU").Cells(Rows.Count, 1).End(xlUp).Row
 
        'si tableau vide, mssg d'erreur
        If Row_WB = 2 Then
 
            MsgBox ("Aucune intervention trouvée pour " & Nom_Presta & " en W" & Numero & ", corriger et relancer.")
 
            'ouvrir pdf + dder si on continue ou pas (ENR pdf sur shpt + del)
            ThisWorkbook.FollowHyperlink Address:=pceJointe
 
            If MsgBox("ENR le pdf sous shpt (si ''non'', arrêt) ?", vbYesNo) = vbYes Then
                GoTo Enr_Del_PDF
            Else
                Exit Sub
            End If
 
        End If
 
        'MAJ colonne "reçu SSII" avec date du jour si pas deja renseigné
        Col_WB = Fe.Range("recuSSIIAstr").Column
 
        For Each cell In Fe.Range(Fe.Cells(3, Col_WB), Fe.Cells(Row_WB, Col_WB)).SpecialCells(xlCellTypeVisible).Rows
            Row = cell.Row
 
            If Fe.Cells(Row, Col_WB).Value = "" Then
                Fe.Cells(Row, Col_WB).Value = olmail_ReceivedTime
            Else
                If MsgBox("fichier a priori déjà reçu le " & Cells(Row, Col_WB).Value & " : continuer ?", vbYesNo) = vbNo Then GoTo fermeture
            End If
 
        Next
 
        'récup site
        Col_WB = Fe.Range("siteAstr").Column
 
        For Each cell In Fe.Range(Fe.Cells(3, Col_WB), Fe.Cells(Row_WB, Col_WB)).SpecialCells(xlCellTypeVisible).Rows
            Row = cell.Row
        Next
 
        Site = Fe.Cells(Row, Col_WB).Value
        If LCase(Site) = "mougins" Then Site = "Sophia-Antipolis"
 
        'récup année
        Col_WB = Fe.Range("date_et_heure").Column
        annee = Year(Fe.Cells(ActiveCell.Row, Col_WB).Value) '<-----------o là, il y a un problème ! Quelle cellule est sensée être la cellule active ?
 
        'récup ssii porteuse
        Col_WB = Fe.Range("SSII_porteuse_IntAstr").Column
        SSII = Fe.Cells(Row, Col_WB).Value
 
        'récup n° mois
        Col_WB = Fe.Range("moisInterv").Column
 
        If Fe.Cells(Row, Col_WB).Value > 9 Then
           Num_Mois = CStr(Fe.Cells(Row, Col_WB).Value)
        Else
           Num_Mois = "0" & CStr(Fe.Cells(Row, Col_WB).Value)
        End If
 
        If Numero > 50 And Num_Mois = "01" Then Num_Mois = "12"
 
        'supp filtres
        Fe.ListObjects("Tableau9").Range.AutoFilter Field:=Range("Nom").Column
        Fe.ListObjects("Tableau9").Range.AutoFilter Field:=Range("semaineAST").Column
 
    'fin si TP/Astr (Numero > 55)
    End If
 
Enr_Del_PDF:
    'On Error GoTo 0
 
    'ENR pièce jointe ss shpt sous un nv nom
    If HNO = "TP" Then
        pceJointe_new = SSII & "-" & Nom_Presta & "_" & Numero & "-signed.pdf"
    Else
 
        'supp filtres
        If Fe.AutoFilterMode Then Fe.Cells.AutoFilter
 
        'on ne met que le filtre sur le presta pour pouvoir avoir au moins 1 ligne avec le prénom
        Fe.ListObjects("Tableau9").Range.AutoFilter Field:=Col_Presta, Criteria1:=Nom_Presta
 
        'rech derniere ligne
        Row_WB = Fe.Cells(Rows.Count, 1).End(xlUp).Row
 
        'si tableau vide, msg d'erreur
        If Row_WB = 2 Then
            MsgBox ("Aucune intervention trouvée pour " & Nom_Presta & " en W" & Numero & " --> sortie / ENR manuellement.")
            Exit Sub
        End If
 
        'récup 1ere lettre prénom
        Col_WB = Fe.Range("PrenomAstr").Column
        FirstPrenom = Mid(Fe.Cells(Row_WB, Col_WB).Value, 1, 1)
        pceJointe_new = SSII & "-" & FirstPrenom & Nom_Presta & "-w" & Numero & ".pdf"
    End If
 
    FileCopy pceJointe, "Y:\test\CRA astreintes et TPs\" & HNO & "\2-revenu signé SSII\" & annee & "\" & Site & "\" & Num_Mois & "\" & pceJointe_new
    If Error = "Impossible d'enregistrer la pièce jointe." Then MsgBox ("Impossible d'enregistrer la pièce jointe --> copier le fichier à la main dans ''2-revenu signé SSII/" & Site & "/" & Num_Mois & "''") '
 
fermeture:
 
    pceJointe = "*" & Nom_Presta & "*.pdf"
    Kill "Y:\test\" & LCase(pceJointe)
 
    On Error Resume Next
    Kill "Y:\test\CRA astreintes et TPs\" & HNO & "\1-envoyé SSII\" & Site & "\" & Num_Mois & "\" & pceJointe
    If Error = "Fichier introuvable" Then MsgBox ("Fichier introuvable --> supp. le fichier à la main de ''1-envoyé SSII/" & Site & "/" & Num_Mois & "''")
 
    'Trait_pdf_HNO_recu = CStr(SSII & "-" & annee)
 
End Sub

30/03/2017, 11h27
weyb06

bjr

merci pour vos conseils !!!
je vais mettre en oeuvre et voir...
(avec cette façon de coder, tout se fait en "aveugle", et c'est moins facile de débugguer... non ?)

[EDIT]
après avoir mis en place les modifs, ça marche - c'est déjà ça !...:mrgreen:
...mais ca ne résoud pas le pb : à un moment donné, la macro ne pointe pas vers le bon xls (ni la bonne feuille)
'faut donc que je généralise plus cette méthode...

je vous tiens au courant !

bien cordt