Bonjour !
je suis entrain de faire une ptite application , et j'ai une bouton qui permet d'afficher un classeur excel ... la feuil(excel) sera rempli a partir de la base de donnée . qu'on je clique sur la bouton la premiére fois aprés l'execution du projet ... la feuil exel se remli normalement ... jusqu'ici tt va bien ! mais le blém c lorsque je ferme le classeur et je clique une deuxiéme fois sur la bouton ... je recois cette erreur :
___________________________________________________
Erreur d'exécution '1004':
La méthode 'Range' de l'objet '_Global' a échoué
___________________________________________________
é voici mon code :
Dim xl As Excel.Application
Dim mafeuil As Excel.Worksheet
Set xl = CreateObject("excel.application")
'********Ouvrir le classeur excel **********'
xl.Workbooks.Open App.Path & "\Imprimer.xls"
'********Déclarer vers la feuil sur laquel on va travailler ******'
Set mafeuil = xl.Worksheets("Feuil1")
Range("C10").Value = Rsimp.Fields(0)
Range("C11").Value = Rsimp.Fields(1)
Range("C12").Value = Rsimp.Fields(2)
Range("C13").Value = Rsimp.Fields(3)
Range("C14").Value = Rsimp.Fields(4)
Range("C15").Value = Rsimp.Fields(5)
Range("C16").Value = Rsimp.Fields(6)
xl.Visible = True
Svp Aidez moi ... Vraiment je suis bloqué
Merci d'avance
A voir également:
[Catégorie modifiée VB6 --> VBA] Remplir une feuil Excel a partir d'une BD
Salut
Oui, il suffit de lire le message d'erreur pour le comprendre :
"La méthode 'Range'"
Actuellement, dans ton code, les Range ne sont associées à aucune feuille.
Tu déclares bien mafeuil, mais tu ne t'en sers pas !
--> mafeuil.Range("C10").Value = Rsimp.Fields(0)
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Set mafeuil = xl.Worksheets("Feuil1")
With mafeuil
For r = 0 To (rsimp.Fields.Count - 1)
.Range("C10").Offset(r, 0).Value = Rsimp.Fields(r)
Next r
End With
Voir aussi la fonction Excel toute faite :
Set mafeuil = xl.Worksheets("Feuil1")
mafeuil.Range("C10").CopyFromRecordSet Rsimp
