Discussion :

[cokinoumasterflash]

Bonjour,
Je cherche à insérer une ligne vierge dans un fichier excel en VBA depuis ACCESS.
En cherchant sur internet j'ai trouvé un bout de code mais il ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim xl As Excel.Application
Set xl = New Excel.Application
With xl
      .Visible = True
      .Workbooks.Add
End With
xl.Sheets("Feuil1").Select
....
xl.Cells(2, 1).Select
Selection.EntireRow.Insert

Il n'y a pas de nouvelle ligne qui apparait au niveau de la ligne 2. Le programme ne semble rien faire (ou en tout cas rien de visible à l'écran). Je précise que j'ai essayé de faire tourner ce code pour insérer à la ligne 2 mais en réalité je ne connait pas à l'avance le numéro de la ligne.
Ce sera plutôt quelque chose comme :

Code :

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

1
2
3
 
xl.Cells(i, 1).Select
Selection.EntireRow.Insert

Est ce que j'utilise la bonne commande pour faire ça ?

Merci.

[cokinoumasterflash]

Je suis pas sur d'avoir bien saisi ta réponse.

la ligne insérée se place en dessus de la cellule active, tu te retrouve à la même adresse.

Donc ma ligne insérée devient la ligne 2 c'est ça ?
Mais dans ce cas pourquoi je n'ai pas de ligne vierge qui apparait dans ma feuille excel ?

A+

[sozie9372]

Salut !
Moi je ferais comme ca a ta place :

Code :

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

1
2
3
4
 
        For i = 1 To introwstoadd
            objWS.Rows(42).Insert Shift:=xlDown
        Next i

avec le "shift machin là" ca ira mieux (je crois)

+++
Ju

[cokinoumasterflash]

Impeccable ça marche !
Encore merci,
Bonne soirée.
Seb.