controler excel depuis access enregistrement Résolu/Fermé

Question

Bonjour, 

j'ai un probleme pour controler excel depuis access.

je veux insérer des commentaire dans des cellules excel, la boucle fonctionne mais à chaque incrément le commentaire précédent disparait. si bien qu' a la fin aucun commentaire n'est rempli, alors qu'a chaque incrément si j'affiche la page excel le commentaire est affiché. voila mon code.

merci d'avance


 For i = 1 To n
    
l2 représente les coordonnées de cellule qui dépende de i

       Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Users\Ordinateur Adrien\Desktop\W\campagne W1")
    
        xlApp.Workbooks("campagne W1").sheets("Feuil3").Activate
   
xlApp.Workbooks("campagne W1").sheets("Feuil3").Range(l2).Comment.Text Text:=blabla
xlApp.Workbooks("campagne W1").sheets("Feuil3").Range(l2).Comment.Shape.TextFrame.AutoSize = True
xlApp.Workbooks("campagne W1").Save
xlApp.Visible = True
xlApp.Workbooks("campagne W1").Close

Next i
Configuration: Windows Vista / Internet Explorer 8.0

lermite222 · Answer

Bonjour,
Pas simple de comprendre ce que tu veux faire, mais en lisant entre les lignes..
Ca serait pas plutôt quelque chose dans ce genre là que tu veux faire ??
    Set xlapp = CreateObject("Excel.Application")
    Set xlBook = xlapp.Workbooks.Open("C:\Users\Ordinateur Adrien\Desktop\W\campagne W1.xls")
    With xlBook.Sheets("Feuil3")
        For i = 1 To n
            With .Range("i2") 'ici je comprend vraiment pas quelle cellules tu veux
                .AddComment
                .Comment.Visible = False
                .Comment.Text Text:="blabla"
                .Comment.Shape.TextFrame.AutoSize = True
            End With
        Next i
    End With
    xlBook.Save
    xlapp.Quit

A+

prg_A · Answer

en fait le seul probleme est l'enregistrement de chaque commentaire dans la boucle.

ce qu'il y a dans la boucle fonctionne. je veux juste comprendre ou je doit mettre le xlBook.Save pour pouvoir sauvegarder tous les commentaires

lermite222 · Answer

Mais oui... ça fonctionne, sauf que..
i = 1
Tu crée un nouveau Excel
Tu ouvre le classeur
Tu met un commentaire
tu sauve le classeur
tu ferme le classeur


i=2
Tu crée un AUTRE Excel
Tu ouvre le classeur
Tu met un commentaire
tu sauve le classeur
tu ferme le classeur

i=3
Tu crée un AUTRE Excel
Tu ouvre le classeur
Tu met un commentaire
tu sauve le classeur
tu ferme le classeur

i = etc ...

Fait comme je t'ai montrer et ça devrait aller.
A+

prg_A · Answer

OK c'est bon ça marche.

merci

Controler excel depuis access enregistrement

4 réponses