Aide création et écriture dans un nouveau fichier Excel VBA

Version imprimable

26/12/2016, 13h55
lRedOx

Aide création et écriture dans un nouveau fichier Excel VBA

Bonjour à tous et joyeux Noël !

Je voulais savoir comment créer un nouveau fichier excel et écrire dedans en VBA

Dans mon classeur qui contient la macro, j'ai ce tableau

A B C D E F G H I

XX 1456 XX XX XX XX XX XX XX

XX 1298 XX XX XX XX XX XX XX

Ceci est un exemple, mon tableau fait environ 1000 lignes. Je voudrais ouvrir un nouveau fichier et copier la 1er ligne "A/B/C ..." (colonne des intitulés) puis copier la ou les lignes correspondantes à un numéro dans la colonne B. Par exemple, je demande dans ma macro de rentrer un numéro, et si ce numéro corresponds à 1298, je crée un nouveau fichier avec la 1er ligne A/B/C ... et toute la ligne qui contient 1298. Mais souvent j'ai plusieurs ligne avec 1298, je voudrais toutes les récupérer entièrement dans ce nouveau fichier.

J'avais pensé faire un parcours sur ce tableau, faire un IF pour savoir si je suis sur la bonne ligne et copier cette ligne dans le nouveau fichier. Mais j'ai du mal avec les ouvertures fermetures de fichiers sous VBA, c'est pour cela que je demande votre aide !

Si vous avez des questions, n'hésitez pas !
Merci !
26/12/2016, 14h34
Philippe Tulliez

Bonjour,
Le filtre avancé d'excel permet d'effectuer une exportation des données suivant critères. En VBA c'est la méthode AdvancedFilter
Pour en savoir plus, lire le tutoriel Les filtres avancés ou élaborés dans Excel
26/12/2016, 15h17
Menhir

Citation:

Envoyé par lRedOx

Je voulais savoir comment créer un nouveau fichier excel

Méthode Add de l'objet Workbooks
https://msdn.microsoft.com/fr-fr/lib.../ff840478.aspx

Citation:

copier la 1er ligne "A/B/C ..." (colonne des intitulés)

Mothodes Copy de l'objet Range représentant ta première ligne.
Dans ton cas, comme il s'agit d'une ligne entière, mieux vaut utiliser directement Row plutôt que Range.
Avec comme destination la première cellule de ton fichier destination.
https://msdn.microsoft.com/fr-fr/lib.../ff837760.aspx

Citation:

puis copier la ou les lignes correspondantes à un numéro dans la colonne B. Par exemple, je demande dans ma macro de rentrer un numéro, et si ce numéro corresponds à 1298, je crée un nouveau fichier avec la 1er ligne A/B/C ... et toute la ligne qui contient 1298. Mais souvent j'ai plusieurs ligne avec 1298, je voudrais toutes les récupérer entièrement dans ce nouveau fichier.

Commencer par demander à l'utilisateur la référence à copier.
Ca peut se faire, par exemple, avec un InputBox.
https://msdn.microsoft.com/fr-fr/lib.../gg251811.aspx

Utiliser la méthode Find de Range pour trouver la ligne correspondante.
https://msdn.microsoft.com/fr-fr/lib.../ff839746.aspx
et copier la ligne trouvée (voir méthode Copy ci-dessus)

Comme tu peux avoir plusieurs ligne, il faut que tu mettes un FindNext dans une boucle While dont la condition de sortie serait un Nothing renvoyé par le FindNext.
https://msdn.microsoft.com/fr-fr/lib.../ff196143.aspx
https://msdn.microsoft.com/fr-fr/lib.../gg264682.aspx

Merci pour ces réponses rapides !

Du coup avant vos réponses, j'ai essayé un truc dans mon coin.

J'ai donc ce 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
Set WBSource = ActiveWorkbook
            Set WBDest = XLApp.Workbooks.Add
            WBDest.SaveAs "C:\Users\A241364\Desktop\Attachments\" & PARMA_ID & "-" & PARMA_NAME & ".xlsx"
 
            'cherche la ligne vide dans le classeur de destination
            i = WBDest.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1
            'Copie - Colle la 1er ligne
            WBSource.Worksheets("Final 31971").Rows(1).Copy _
            Destination:=WBDest.Worksheets(1).Cells(1, 1)
            'Selectionne la dernière ligne du fichier source
            DerLig = Split(WBSource.Worksheets("Final 31971").UsedRange.Address, "$")(4)
 
            For NoLig = 1 To DerLig
 
                If WBSource.Worksheets("Final 31971").Cells(NoLig, 2) = PARMA_ID Then
 
                    i = WBDest.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1
                    WBSource.Worksheets("Final 31971").Rows(NoLig).Copy _
                    Destination:=WBDest.Worksheets(1).Cells(i, 1)
 
                End If
 
            Next
 
            WBDest.Close

Le PARMA_ID, je le récupère précédemment avec : PARMA_ID = InputBox("PARMA_ID : ")

Avec ce code, j'ai une erreur : 1004 Copy method of Range class failed

Je viens de voir vos liens, je vais les lire pour optimiser mon code, car je crains que le mien soit plus du bricolage qu'autre chose.

Merci !

26/12/2016, 16h15
Menhir

Citation:

Envoyé par lRedOx

je crains que le mien soit plus du bricolage qu'autre chose.

Ca donne surtout l'impression que tu as essayé de récupérer des morceaux de codes ici et là et de les amalgamer sans réellement comprendre ce que tu faisais.
Par exemple, quand tu recherche la dernière ligne ligne d'un fichier... vide (puisqu'il vient d'être créé) et que, quelques lignes plus loin, tu recherches la fin de fichier avec une méthode complètement différente (et beaucoup moins sûre).
Tu devrais prendre le temps de regarder dans l'aide VBA pour comprendre l'utilité des méthodes, propriétés et commandes que tu utilises.
26/12/2016, 16h30
lRedOx

D'accord, je jette un œil en ce moment même, merci !

A	B	C	D	E	F	G	H	I
XX	1456	XX	XX	XX	XX	XX	XX	XX
XX	1298	XX	XX	XX	XX	XX	XX	XX