Bonjour tout le monde,

Vu que je ne capte pas grand chose avec VB et Interop (Il faut dire que la doc xml est très clair ) je me tourne une nouvelle fois vers vous.

Donc comme l'indique le titre je souhaite copier puis insérer des lignes sur un fichier Excel. En fait j'ai un modèle de fichier, que j'utilise mais certaine catégorie pouvant évoluer avec le temps il faudra éventuellement que mon appli soit capable de modifier un peu ce modèle.

Donc j'ai essayé ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim nbActiviteSupplementaire = 2
        Dim i = 0
        Dim index As String() = {"27", "28", "29", "30"}
        Dim numLigne As Integer = 31
        Do Until i = nbActiviteSupplementaire
            For Each s As String In index
                maFeuille.Rows(s).copy(Destination:=maFeuille.Rows(numLigne))
                numLigne += 1
            Next
            i += 1
        Loop
Qui fonctionnait, mais il n'insère pas les lignes, il copie celle indiqué puis écrase celle à la ligne indiquée pour se mettre "par dessus".

J'ai donc tenté ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim nbActiviteSupplementaire = 2
        Dim i = 0
        Dim index As String() = {"27", "28", "29", "30"}
        Dim numLigne As Integer = 31
        Do Until i = nbActiviteSupplementaire
            For Each s As String In index
                maFeuille.Rows(numLigne).Insert(Excel.XlDirection.xlDown, maFeuille.Range(s).EntireRow)
                numLigne += 1
            Next
            i += 1
        Loop
Mais là j'ai une exception HResult

Donc un p'tit coup de main ne serait pas de refus.