Controler excel depuis access enregistrement

Résolu
prg_A -  
 prg_A -
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
A voir également:

4 réponses

Réponse 1 / 4
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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+
0
Réponse 2 / 4
prg_A
 
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
0
Réponse 3 / 4
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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+
0
Réponse 4 / 4
prg_A
 
OK c'est bon ça marche.

merci
0