Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Pbs de liaisons VB -> VBAExcel et retour

Pbs de liaisons VB -> VBAExcel et retour

1 réponse
Avatar
jiheme
Bonjour à tous

MAYDAY : Lorsque j'appelle en VB6 la fonction AppelExcel() (code ci dessous)
Excel s'ouvre bien pais le code suivant la ligne "With Excel_Application"
ne fonctionne pas !

Ca doit etre truffé d'erreurs mais je n'arrive pas à les localiser et à
rectifier.....

Si quelqu'un pouvait m'aider .. Merci à tous

Jihème


*********************************************************************************************
Public Function AppelExcel()
' affiche = MsgBox("J'ouvre EXCEL", 0)
Dim Excel_Application As Object
Set Excel_Application = CreateObject("Excel.Application")
Dim Modèle As String
Modèle = "c:\ROCS\EDUCEVAL.xlt"
With Excel_Application
.Visible = True

' .XLWindowState = xlMaximized
Fichieraouvrir = "C:\ROCS\" + NomFic + ".txt"
Workbooks.OpenText FileName:=Fichieraouvrir, Origin:=xlWindows,
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False,
Space:=False, Other:=False, FieldInfo:=Array(1, 1)
Range("A1:A24").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.Close
Sheets("EDUCEVAL").Select
ActiveSheet.Paste
End With
'affiche = MsgBox("Je ferme EXCEL")
End Function
***************************************************************************************
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
christophe-pasde
Bonjour,

Je n'utilise pas Excel et VBA mais à priori:

Je n'utiliserais pas de déclaration AS Object, ceci pour éviter la
liaison tardive (cf MSDN CreateObject).

Ensuite j'éviterais l'usage de l'underscore pour nommer mes variables
objets.

Dim ExcelApp as excel.application

Set xlApp = CreateObject("Excel.Application")

set ExcelApp= nothing

Pour le reste je ne connais pas les methodes et les propriétés de
l'objet ExcelApp.

Christophe




jiheme a écrit :
Bonjour à tous

MAYDAY : Lorsque j'appelle en VB6 la fonction AppelExcel() (code ci dessous)
Excel s'ouvre bien pais le code suivant la ligne "With Excel_Application"
ne fonctionne pas !

Ca doit etre truffé d'erreurs mais je n'arrive pas à les localiser et à
rectifier.....

Si quelqu'un pouvait m'aider .. Merci à tous

Jihème


*********************************************************************************************
Public Function AppelExcel()
' affiche = MsgBox("J'ouvre EXCEL", 0)
Dim Excel_Application As Object
Set Excel_Application = CreateObject("Excel.Application")
Dim Modèle As String
Modèle = "c:ROCSEDUCEVAL.xlt"
With Excel_Application
.Visible = True

' .XLWindowState = xlMaximized
Fichieraouvrir = "C:ROCS" + NomFic + ".txt"
Workbooks.OpenText FileName:=Fichieraouvrir, Origin:=xlWindows,
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote,
ConsecutiveDelimiter:úlse, Tab:=True, Semicolon:úlse, Comma:úlse,
Space:úlse, Other:úlse, FieldInfo:=Array(1, 1)
Range("A1:A24").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.Close
Sheets("EDUCEVAL").Select
ActiveSheet.Paste
End With
'affiche = MsgBox("Je ferme EXCEL")
End Function
***************************************************************************************