[VBA] insérer une ligne dans un fichier excel [Résolu]

cokinoumasterflash 62 Messages postés jeudi 16 juin 2005Date d'inscription 19 août 2005 Dernière intervention - 21 juil. 2005 à 15:51 - Dernière réponse : cokinoumasterflash 62 Messages postés jeudi 16 juin 2005Date d'inscription 19 août 2005 Dernière intervention
- 22 juil. 2005 à 09:29
Bonjour,

Je cherche à insérer une ligne dans un fichier excel depuis access.

Pour cela en chercheant un peu partout j'ai trouvé ce code mais je n'arrive pas à la faire marcher :



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



Mon fichier excel ne contient qu'une seule colonne mais en revanche
l'insertion ne se fera pas forcément au niveau de la ligne 2 mais plsu
généralement au niveau de la ligne i.

Quand je lance ce code il ne se passe rien en fait.



Est-ce que la commande que j'utilise est bonne au moins ?



Merci.
Afficher la suite 

2 réponses

Meilleure réponse
cokinoumasterflash 62 Messages postés jeudi 16 juin 2005Date d'inscription 19 août 2005 Dernière intervention - 22 juil. 2005 à 09:29
3
Merci
Salut,

Désolé je viens de voir que j'avais une réponse à ma question. Je n'ai pas été averti par mail.

En fait j'ai fini par trouvé quelque chose qui marche.

Je te donne ma solution :




Dim xl As Excel.Application



Set xl = New Excel.Application



With xl



.Visible = True



.Workbooks.Add



End With



xl.Sheets("Feuil1").Select



....




WorkSheets("Feuil1").Select



Cells(2, 1).Select



Selection.EntireRow.Insert



Du coup je n'ai pas testé ta solution mais merci quand même.

@+

Seb.

Merci cokinoumasterflash 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 76 internautes ce mois-ci

Molenn 797 Messages postés mardi 7 juin 2005Date d'inscription 23 février 2011 Dernière intervention - 21 juil. 2005 à 16:30
0
Merci
Je ne le ferai sans doute pas tout à fait de cette façons mais bon, j'ai pas access sous la main, je ne peux pas tester.
Je garde ton début :

'Définition des variables
Dim xl As Excel.Application
Dim Temps as string

'Ouvertuer d'Excel
Set xl = New Excel.Application
With xl
.Visible = True
.Workbooks.Add
End With

'Insertion au niveau de la ligne i,
xl.worksheets("Feuil1").activate
temp = i & ":" & i
xl.worksheets("Feuil1").Rows(temp).Insert Shift:=xlDown

Si ça ne marche pas, dis le moi, je regarderai plus pércisément de chez moi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.