Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Form6.Show() Form6.ProgressBar1.Value = 20 Form6.Label1.Text = "Configuration et ouverture du port série..." Form6.Label1.Refresh() 'Configuration du Port série XMCommCRC1.CommPort = 1 'Port Com1 XMCommCRC1.Settings = "9600,N,8,1" '9600 Baud par sec, pas de Bit de parité, 8 Bits de données, 1 Bit de Stop XMCommCRC1.PortOpen = True 'Ouverture du port série Form6.ProgressBar1.Value = 60 Form6.Label1.Text = "Lancement d'Excel..." Form6.Label1.Refresh() appExcel = CreateObject("Excel.application") 'Ouverture d'excel ( sans aparaitre à l'écran ) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question