exporter des données vers un ficher créé

**slakhdine** · 21/05/2019, 09h23

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.

**slakhdine** · 21/05/2019, 15h21

finalement j'ai pu amélioré mon code il me crée bien un classeur mais il ne copie rien je vois pas d'où ça peut venir . quelqu'un pourrait m'aider svp je suis vraiment perdu
ci dessous mon fichier si vous voulez jeter un œil
merci par avance.

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
 
Sub extract()
 
    Dim WBsms As Workbook, LigMax As Integer, x As Integer
 
    ' récupération nombre lignes non vides dans la page DATA pour extraire à partir de la ligne suivante
    With ThisWorkbook.Sheets("DATA")
        nbLignes = .Range("T104").End(xlUp).Row
        Set WBsms = Workbooks.Add
        WBsms.SaveAs Filename:=ThisWorkbook.Path & "\wb_sms_non_envoyes.xlsx"
        ' boucle allant de 1 jusqu'à la dernière ligne non vide de la feuille DATA
            For x = 1 To LigMax
                ' si la cellule en T1 ... Tx est vide alors on copie la ligne entière dans le fichier wb_sms_non_envoyes
                If IsEmpty(.Cells(x, 20)) Then .Rows(x).Copy Destination:=WBsms.Sheets(1).Rows(LigMax + x)
            Next x
    End With
 
End Sub

**Menhir** · 21/05/2019, 15h40

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
[....]
        nbLignes = .Range("T104").End(xlUp).Row
[....]
            For x = 1 To LigMax

Pour éviter ce type d'erreur, force la déclaration des variables avec un Option Explicit avant ton Sub ou en demandant qu'il soit placé par défaut : Outils > Options > Déclaration des variables obligatoire.

**slakhdine** · 21/05/2019, 15h45

Envoyé par Menhir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
[....]
        nbLignes = .Range("T104").End(xlUp).Row
[....]
            For x = 1 To LigMax

Pour éviter ce type d'erreur, force la déclaration des variables avec un Option Explicit avant ton Sub ou en demandant qu'il soit placé par défaut : Outils > Options > Déclaration des variables obligatoire.

bonjour. merci pour ta réactivité. j'ai fait ce que tu m'a demandé mais sans aucun changement

**Menhir** · 21/05/2019, 16h29

Envoyé par slakhdine

j'ai fait ce que tu m'a demandé mais sans aucun changement

Je ne t'ai rien demandé de faire, j'ai juste indiquer où est l'erreur selon moi.

**slakhdine** · 21/05/2019, 16h31

Envoyé par Menhir

Je ne t'ai rien demandé de faire, j'ai juste indiquer où est l'erreur selon moi.

OUI justement merci beaucoup . mais il reste le même problème malheureusement.

**Menhir** · 21/05/2019, 16h34

Quelle correction as-tu apporté à ton code ?

**slakhdine** · 21/05/2019, 16h36

Envoyé par Menhir

Quelle correction as-tu apporté à ton code ?

j'ai rajouter juste l'option déclarations de variables obligatoire.

**Menhir** · 21/05/2019, 17h08

Si tu n'as pas corrigé l'erreur que je t'ai indiqué, c'est sûr que ça ne peut pas fonctionner.

De plus, obligé à la déclaration de variables, ça mettra un Option Explicit dans tous les nouveaux modules que tu créeras mais ça ne change rien aux modules existants.

**slakhdine** · 21/05/2019, 17h15

Envoyé par Menhir

Si tu n'as pas corrigé l'erreur que je t'ai indiqué, c'est sûr que ça ne peut pas fonctionner.

De plus, obligé à la déclaration de variables, ça mettra un Option Explicit dans tous les nouveaux modules que tu créeras mais ça ne change rien aux modules existants.

voici ce que j'ai rajouter sur le 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
Option Explicit
Dim WBsms As Workbook, LigMax, nbLignes As Integer, x As Integer
 
Sub extract()
 
    Dim WBsms As Workbook, LigMax, nbLignes As Integer, x As Integer
 
    ' récupération nombre lignes non vides dans la page DATA pour extraire à partir de la ligne suivante
    With ThisWorkbook.Sheets("DATA")
        nbLignes = .Range("T104").End(xlUp).Row
        Set WBsms = Workbooks.Add
        WBsms.SaveAs Filename:=ThisWorkbook.Path & "\wb_sms_non_envoyes.xlsx"
        ' boucle allant de 1 jusqu'à la dernière ligne non vide de la feuille DATA
            For x = 1 To LigMax
                ' si la cellule en T1 ... Tx est vide alors on copie la ligne entière dans le fichier wb_sms_non_envoyes
                If IsEmpty(.Cells(x, 20)) Then .Rows(x).Copy Destination:=WBsms.Sheets(1).Rows(LigMax + x)
            Next x
    End With
 
End Sub

Invité · 21/05/2019, 17h40

Bonsoir,
Et un filtre élaboré ?

**Philippe Tulliez** · 21/05/2019, 17h45

Bonjour,
A l'aide de la méthode AdvancedFilter (filtre élaboré)

Exemple avec la plage de données source dans la feuille nommée db et qui exporte vers un nouveau classeur toutes lignes dont la colonne J (10ème colonne) est vide
Pour que cela fonctionne, la liste de données doit avoir une ligne avec en-tête remplie et la première colonne remplie (pas d'autres liste à côté car la zone des critères se place 2 colonnes à droite de la dernière colonne de la source

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
Sub t()
  ' Déclaration des variables et constantes
  Const shtSourceName As String = "db"  ' Nom de la feuille source
  Const ColumnToCompare As Integer = 10  ' N° de colonne à comparer
  Dim rngSource As Range
  Dim rngTarget As Range
  Dim rngCriteria As Range
  Dim Addr As String
  '
  Set rngSource = ThisWorkbook.Worksheets(shtSourceName).Range("A1").CurrentRegion
  Workbooks.Add '
  Set rngTarget = ActiveSheet.Range("A1")
  With rngSource
    Set rngCriteria = .Offset(0, .Columns.Count + 1).Resize(2, 1)
  End With
  Addr = Cells(2, ColumnToCompare).Address(RowAbsolute:=False)
  ' Rempli la zone des critères
  With rngCriteria
  .Item(1) = "_fx_": .Item(2).Formula = "=" & Addr & "=" & Chr(34) & Chr(34)
  End With
  ' Exportation
  rngSource.AdvancedFilter xlFilterCopy, rngCriteria, rngTarget
  ' EndOfProcess
  rngCriteria.Clear
  Set rngSource = Nothing: Set rngCriteria = Nothing: Set rngTarget = Nothing
End Sub

Il reste à sauver le nouveau classeur

**Menhir** · 21/05/2019, 17h54

Envoyé par slakhdine

voici ce que j'ai rajouter sur le code :

Regarde la partie de code que j'ai mis en réponse #3.
Il n'y a pas un truc qui te dérange ? Je l'ai mis en gros et en gras.
C'est évident quand même !

**slakhdine** · 22/05/2019, 10h10

Envoyé par Menhir

Regarde la partie de code que j'ai mis en réponse #3.
Il n'y a pas un truc qui te dérange ? Je l'ai mis en gros et en gras.
C'est évident quand même !

Ah oui j'ai mal vu en fait , j'ai enlever LigMax du coup ça m'a donné ça :

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
Option Explicit
Dim WBsms As Workbook, nbLignes As Integer, x As Integer
 
Sub extract()
 
    Dim WBsms As Workbook, nbLignes As Integer, x As Integer
 
    ' récupération nombre lignes non vides dans la page DATA pour extraire à partir de la ligne suivante
    With ThisWorkbook.Sheets("DATA")
        nbLignes = .Range("T104").End(xlUp).Row
        Set WBsms = Workbooks.Add
        WBsms.SaveAs Filename:=ThisWorkbook.Path & "\wb_sms_non_envoyes.xlsx"
        ' 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 IsEmpty(.Cells(x, 20)) Then .Rows(x).Copy Destination:=WBsms.Sheets(1).Rows(nbLignes + x)
            Next x
    End With
 
End Sub

**slakhdine** · 22/05/2019, 10h25

Envoyé par Philippe Tulliez

Bonjour,
A l'aide de la méthode AdvancedFilter (filtre élaboré)

Exemple avec la plage de données source dans la feuille nommée db et qui exporte vers un nouveau classeur toutes lignes dont la colonne J (10ème colonne) est vide
Pour que cela fonctionne, la liste de données doit avoir une ligne avec en-tête remplie et la première colonne remplie (pas d'autres liste à côté car la zone des critères se place 2 colonnes à droite de la dernière colonne de la source

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
Sub t()
  ' Déclaration des variables et constantes
  Const shtSourceName As String = "db"  ' Nom de la feuille source
  Const ColumnToCompare As Integer = 10  ' N° de colonne à comparer
  Dim rngSource As Range
  Dim rngTarget As Range
  Dim rngCriteria As Range
  Dim Addr As String
  '
  Set rngSource = ThisWorkbook.Worksheets(shtSourceName).Range("A1").CurrentRegion
  Workbooks.Add '
  Set rngTarget = ActiveSheet.Range("A1")
  With rngSource
    Set rngCriteria = .Offset(0, .Columns.Count + 1).Resize(2, 1)
  End With
  Addr = Cells(2, ColumnToCompare).Address(RowAbsolute:=False)
  ' Rempli la zone des critères
  With rngCriteria
  .Item(1) = "_fx_": .Item(2).Formula = "=" & Addr & "=" & Chr(34) & Chr(34)
  End With
  ' Exportation
  rngSource.AdvancedFilter xlFilterCopy, rngCriteria, rngTarget  
  ' EndOfProcess
  rngCriteria.Clear
  Set rngSource = Nothing: Set rngCriteria = Nothing: Set rngTarget = Nothing
End Sub

Il reste à sauver le nouveau classeur

bonjour @philippe merci pour votre réponse et votre aide .votre code il marche bien sans aucun problème mais il me colle la première ligne je crois parce que je n'ai pas en-tête car les données sont extrait d'une base de donnée externe grâce a une requête .et que les 8 premiers colonnes moi je souhaite avoir toute la ligne

**Philippe Tulliez** · 22/05/2019, 10h36

Bonjour,

votre code il marche bien sans aucun problème mais il me colle la première ligne je crois parce que je n'ai pas en-tête car les données sont extrait d'une base de donnée externe grâce a une requête

Comme je l'ai indiqué dans ma réponse IL FAUT que la première ligne ait des en-tête de colonnes (des titres) et en principe le résultat d'une requête le fait.

et que les 8 premiers colonnes moi je souhaite avoir toute la ligne

Je ne suis pas certain d'avoir compris ?
L'exportation des colonnes est partielle ?
Si c'est le cas cela signifie que la première ligne avait une ou des cellules vides. Voir ce que j'ai écrit plus haut.

**slakhdine** · 22/05/2019, 10h42

Envoyé par Philippe Tulliez

Bonjour,

Comme je l'ai indiqué dans ma réponse IL FAUT que la première ligne ait des en-tête de colonnes (des titres) et en principe le résultat d'une requête le fait.

Je ne suis pas certain d'avoir compris ?
L'exportation des colonnes est partielle ?
Si c'est le cas cela signifie que la première ligne avait une ou des cellules vides. Voir ce que j'ai écrit plus haut.

ou j'ai bien compris , merci pour tout ces précisions . je vais essayer de régler le problème d'en-têtes. pour le collage je souhaite copier que les lignes dont la colonne T est vide seulement.

**Philippe Tulliez** · 22/05/2019, 11h01

Bonjour,

pour le collage je souhaite copier que les lignes dont la colonne T est vide seulement.

C'est exactement ce que fait la procédure que j'ai éditée mais à condition de respecter les consignes.

**slakhdine** · 22/05/2019, 11h12

Envoyé par Philippe Tulliez

Bonjour,

C'est exactement ce que fait la procédure que j'ai éditée mais à condition de respecter les consignes.

merci infiniment pour votre aide, je serai très reconnaissant si vous pourriez jeter un œil sur mon ancien code ça me parait facile a adapter avec mon fichier si vous arrivez à me l’améliorer s'i vous plait

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
Option Explicit
Dim WBsms As Workbook, nbLignes As Integer, x As Integer
 
Sub extract()
 
    ' récupération nombre lignes non vides dans la page DATA pour extraire à partir de la ligne suivante
    With ThisWorkbook.Sheets("DATA")
        nbLignes = .Range("T104").End(xlUp).Row
        Set WBsms = Workbooks.Add
        WBsms.SaveAs Filename:=ThisWorkbook.Path & "\wb_sms_non_envoyes.xlsx"
        ' 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 IsEmpty(.Cells(x, 20)) Then .Rows(x).Copy Destination:=WBsms.Sheets(1).Rows(nbLignes + x)
            Next x
    End With
 
End Sub

exporter des données vers un ficher créé [XL-2013]

Macros et VBA Excel

Discussions similaires

Partager

Partager