bonjour a tous .je reviens vers vous encore une fois parce que ce forum était toujours à l’écoute avec ses membres réactives . merci à vous
j'ai un petit soucis avec mon code qu me lance un erreur d’exécution '9'. en fait je souhaite copier des lignes de la feuille DATA dont la colonne T est vide vers un autre ficher que je souhaite créer qui s'appel wb_sms_non_envoyes
voici mon code :
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
 
Sub extract()
 
    Dim wb_sms_non_envoyes As Workbook
    Dim nbLignes As Integer
    Dim trig As Integer
 
    ' récupération nombre lignes non vides
    ' dans la page DATA pour extraire à partir de la ligne suivante
    nbLignes = Sheets("DATA").Range("T104").End(xlUp).Row
 
       Set wb_sms_non_envoyes = Workbooks.Add
 
    With wb_sms_non_envoyes
    .SaveAs Filename:=wb.Path & "wb_sms_non_envoyes" & ".xlsx"
 
    End With
 
    trig = 0
            ' boucle allant de 1 jusqu'à la dernière ligne non vide de la feuille DATA
            For x = 1 To nbLignes
                ' si la cellule en T1 ... Tx est vide
                ' alors on copie la ligne entière dans le fichier wb_sms_non_envoyes
                If Sheets("DATA").Cells(x, 20).Value = "" Then
                    Sheets("DATA").Cells(x, 20).EntireRow.Copy Destination:=wb_sms_non_envoyes("Feuille1").Cells(nbLignes + 1, 1).Offset(trig, 0).EntireRow
                    trig = trig + 1
                End If
            Next x
 
End Sub
quelqu'un pourra m'aider s'il vous plait ?
merci par avance
cordialement.