[VB]

Fermé

pascal - 17 mars 2009 à 13:22
pascal - 17 mars 2009 à 14:41

Bonjour,

je voudrais ouvrir un fichier excel automatiquement grâce au code vb sous excel. Je tente cela mais mon fichier ne s'ouvre pas

Fichier_XLS = " L:\pme\Données crivoi\ecart_perimetre\2009\03\Bilan_perimetre.xls"
Feuille_XLS = "1er.xls"
Set oXL = WScript.CreateObject("EXCEL.application")
oXL.Visible = False
oXL.Workbooks.Open Fichier_XLS
oXL.Sheets("1er").Activate

A voir également:

[VB]
Vb - Télécharger - Langages
Vb cable - Télécharger - Audio & Musique
Vb editor - Télécharger - Langages
Vb runtime - Télécharger - Divers Utilitaires
Range vb - Forum VB / VBA

1 réponse

Réponse 1 / 1

bnb
17 mars 2009 à 13:28

Si tu mets visible à False, même s'il s'ouvre tu ne le verras pas! (Ouvert en mémoire mais pas à l'écran)
Pour ouvrir excel, j'aurais plutot ecrit un truc du genre: Set oXL = new EXCEL.application

pascal
17 mars 2009 à 13:34

Re

J'ai changé ainsi

Dim wb As Workbooks
Dim ws As Worksheet

Set wb = Workbooks.Open("L:\**\***P\**\2009\03\B***.xls")

J'arrive à ouvrir le fichier mais apres l'ouverture ça me met une erreur ' incompatibilité de type'

bnb > pascal
17 mars 2009 à 13:35

Quelle version d'excel?

pascal > bnb
17 mars 2009 à 13:41

2000

pascal > pascal
17 mars 2009 à 13:53

Sub MacroEcartDcm()

Dim wb As Workbooks

Set wb = Workbooks.Open("L:\***\***\***\2009\03\B**09.xls")

'Windows("Bilan_DCM_032009.xls").Activate
'Sheets(Array("1er", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", _
' "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31")).Select
' Sheets("1er").Activate

' ActiveWindow.ScrollRow = 9
' ActiveWindow.ScrollColumn = 21
' ActiveWindow.SmallScroll Down:=-12
' Range("AB7:AB54").Select
' Selection.Copy
' Windows("Courbe_ecart_MMYYYY1.xls").Activate

' ActiveWindow.SmallScroll Down:=-6
' Sheets("1er").Activate
' Range("B4").Activate

' ActiveSheet.Paste
' Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
' False, Transpose:=False
' Range("D13").Select
' ActiveWindow.SmallScroll Down:=6

Voila m'ai ca me fait une incomptabilité de type pour l'ouverture de fichier meme si il louvre quand même

pascal > pascal
17 mars 2009 à 14:41

Résolu Merci quand même

Discussions similaires

Impossibilité enregistrement macro Excel 2010

Télécharger Visual Basic 6.0 (VB6)

Sleep (Vb)

virus Win32/VB.DG

TP EN VB + COURS +EXERCICES CORRIGES