Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2132 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  creation fichier et excel puis ecriture dans ce dernier

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

creation fichier et excel puis ecriture dans ce dernier

n°165227
gloops
Posté le 25-06-2002 à 10:11:47  profilanswer
 

Mon Soucis est que je dois crée un fichier excel s'il n'exsite pas puis inserer des données dans ses cellules je sais réaliser la création ou l'écriture mais la creation suivie de l'écriture/controle des cellules ne fonctionne pas.
 
je crée mon fichier xls de cette facon:
Dim objExcel As Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
'Dim objCell As Excel.Range
Set objExcel = New Excel.Application
Set objBook = objExcel.Workbooks.Add
Set objSheet = objExcel.Worksheets.Add
objBook.SaveAs Module1.Fichierhistorique
objBook.Close
'Set objCell = Nothing
Set objSheet = Nothing
Set objBook = Nothing
objExcel.Quit
Set objExcel = Nothing
 
puis lorsque plus loin je désire l'ouvrir:
 
Dim i As Integer
Dim obj As New Excel.Application
Dim xwBook As New Excel.Workbook
Dim xsSheet As New Excel.Worksheet
' ouverture d'excel
obj.Workbooks.Close
obj.Workbooks.Open (Module1.Pathfichierhistorique)
' je positionne a la fin du fichier
Do
i = i + 1
Loop Until IsEmpty(Cells(i, 1))
 
la methode cell echoue ici
si le fichier Module1.Pathfichierhistorique existe déja aucun pb ici :heink:  
si qq a une chtite idée......
 :jap:

mood
Publicité
Posté le 25-06-2002 à 10:11:47  profilanswer
 

n°165245
JPA
Posté le 25-06-2002 à 10:49:52  profilanswer
 

je vais te faire une réponse con :
si la création marche
si l'écriture marche quand le fichier existe
...
ferme ton fichier après l'avoir créé puis rouvre le
Etonnant non !


---------------
Une idée qui n'est pas dangereuse ne mérite pas d'être appelée idée. (O. Wilde)
n°165356
gloops
Posté le 25-06-2002 à 12:59:48  profilanswer
 

oui c vrai que c assez logique !  
donc a priori je ferme pas bien mon fichier avec ca:
 
objBook.Close
'Set objCell = Nothing
Set objSheet = Nothing
Set objBook = Nothing
objExcel.Quit
Set objExcel = Nothing
 
comment qu'on fait pour bien le fermer alors ?

n°165466
Loom the G​loom
Even coders get the blues...
Posté le 25-06-2002 à 14:50:30  profilanswer
 

gloops a écrit a écrit :

oui c vrai que c assez logique !  
donc a priori je ferme pas bien mon fichier avec ca:
 
objBook.Close
'Set objCell = Nothing
Set objSheet = Nothing
Set objBook = Nothing
objExcel.Quit
Set objExcel = Nothing
 
comment qu'on fait pour bien le fermer alors ?
 




 
 
pourtant à priori c bon comme ça


---------------
Music|Market|Feed|Loom|DVD
n°165482
mandrin0
Prononcer MandrinZéro
Posté le 25-06-2002 à 14:57:39  profilanswer
 

gloops a écrit a écrit :

Mon Soucis est que je dois crée un fichier excel s'il n'exsite pas puis inserer des données dans ses cellules je sais réaliser la création ou l'écriture mais la creation suivie de l'écriture/controle des cellules ne fonctionne pas.
 
je crée mon fichier xls de cette facon:
Dim objExcel As Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
'Dim objCell As Excel.Range
Set objExcel = New Excel.Application
Set objBook = objExcel.Workbooks.Add
Set objSheet = objExcel.Worksheets.Add
objBook.SaveAs Module1.Fichierhistorique
objBook.Close
'Set objCell = Nothing
Set objSheet = Nothing
Set objBook = Nothing
objExcel.Quit
Set objExcel = Nothing
 
puis lorsque plus loin je désire l'ouvrir:
 
Dim i As Integer
Dim obj As New Excel.Application
Dim xwBook As New Excel.Workbook
Dim xsSheet As New Excel.Worksheet
' ouverture d'excel
obj.Workbooks.Close
obj.Workbooks.Open (Module1.Pathfichierhistorique)
' je positionne a la fin du fichier
Do
i = i + 1
Loop Until IsEmpty(obj.Cells(i, 1)) :heink:  
 
la methode cell echoue ici
si le fichier Module1.Pathfichierhistorique existe déja aucun pb ici :heink:  
si qq a une chtite idée......
 :jap:  




---------------
Si j'etais Dieu, et ben j'croirai pas en moi..Et si j'etais moi, et ben j'me mefierai
n°166080
gloops
Posté le 26-06-2002 à 10:25:59  profilanswer
 

mandrin0 a écrit a écrit :

 




 
merci c'est ce qu'il me manquait ca va bcp mieux maintenant !


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  creation fichier et excel puis ecriture dans ce dernier

 

Sujets relatifs
Conversion fichier Excel vers SQL[VC++] Creation d'ID en dynamique
création d'histogramme en vbModifier les propriétés d'un fichier...
Lire un fichier MP3 dans WinAmp depuis VB6...[PHP] upload de fichier qd on est un newbie ...[ca devient urgent]
Importer un fichier *.txt dans une base de données Access 2000Convertir un fichier dvi en pdf sous windows
[MYSQL] Exporter lecontenu d'une base vers un fichier Excel 
Plus de sujets relatifs à : creation fichier et excel puis ecriture dans ce dernier


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR