[VB]
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
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
Configuration: Windows XP Firefox 2.0.0.20
1 réponse
-
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-
-
@pascalQuelle version d'excel?
-
@bnb2000
-
@pascalSub 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 -
@pascalRésolu Merci quand même
-
