Ouverture de Excel 2 fois consécutive
Ouverture de Excel 2 fois consécutive - VB/VBA/VBS - Programmation
Sujets relatifs:
- mot de passe à l'ouverture d'une page ?
- [Excel] Lancer une macro automatiquement à l'ouverture d'un fichier
- Problème de lien avec Excel lorsque j'enregistre sous sur un réseau
- Comptez le nombre d'ouverture d'un document
- [VBA] : ouvrir EXCEL par Access, sans changer de fenêtre active
- Ouverture d'un fichier sur une machine distante en réseau local
- [Mysql] sélectionner 2 fois le meme champs.
- Peut on tester en une seule fois une variabl tableau dans une requete?
- Optimiser les tables en une seule fois avec phpMyAdmin
Marsh Posté le 13-01-2003 à 20:35:48
J'ouvre excel a partir d'un programme fait avec Vb de la facon suivante :
Set app_exc = CreateObject("Excel.application" )
app_exc.Application.Visible = True
app_exc.Workbooks.Open (File1.Path + "\" + "new_" + NomExcel + ".xls" )
'Ouverture de notre fichier TEXT avec excel pour la modification ...
Workbooks.OpenText FileName:=File1.Path + "\" + NomTexte, Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, _
textqualifier:=xlTextQualifierDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, Fieldinfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 9), Array(5, 9), Array(6, 1), Array(7, 9), Array(8, 1), Array(9, 9), Array(10, 9), Array(11, 9), Array(12, 9), Array(13, 9))
ActiveWorkbook.SaveAs FileName:=File1.Path & "\" & NomExcel & ".xls", FileFormat:=xlNormal
'ON ferme notre fichier Excel.
app_exc.Application.Quit
Set app_exc = Nothing
Jpeux ouvrir un premier fichier sans aucun probleme ... mais quand je viens pour ouvrir le deuxieme fichier avec le meme code ... Excel s'ouvre sans donner d'erreur mais le document texte ne s'ouvre pas dans excel.
sa bloque la ...
quelqu'un a une idée ?
Merci !