Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" a écrit dans le message de
groupe de
discussion :
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" <mholderiantispam@hotmailantispam.com> a écrit dans le message de
groupe de
discussion : O5YqP4dtJHA.1304@TK2MSFTNGP05.phx.gbl...
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" a écrit dans le message de
groupe de
discussion :
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" a écrit dans le message de
groupe de
discussion :
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" <mholderiantispam@hotmailantispam.com> a écrit dans le message de
groupe de
discussion : O5YqP4dtJHA.1304@TK2MSFTNGP05.phx.gbl...
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" a écrit dans le message de
groupe de
discussion :
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" a écrit dans le message de
groupe de
discussion :
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" <mholderiantispam@hotmailantispam.com> a écrit dans le message de
groupe de
discussion : O5YqP4dtJHA.1304@TK2MSFTNGP05.phx.gbl...
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" a écrit dans le message de
groupe de
discussion :
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Pour faire ta copie, si tu utilises la variable Objet Excel que tu as
créée,
dim Xl as object
dim Wk As object
Set xl = CreateObject("Excel.Application")
Set Wk = Xl.Workbooks(Chemin & Fichier.xls) 'à ouvrir
Maintenant
Wk.Worksheets("NomDelaFeuille").Range("A1:A25").Copy
Wk.Worksheets("AutreFeuille").range(le reste de la commande...pour coller)
Ferme le classeur en sauvegardant
Wk.Close true
Ferme l'instance d'excel
xl.quit
"Michel" a écrit dans le message de
groupe de
discussion :
Bonjour,
super ca marche !!!!
Petite question j'essaie de faire un copier special valeur, mais ca ne
marche pas.
Aurais tu peut etre une idee ?
ObjApp.Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
:úlse, Transpose:úlse
ou
Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
'''' :úlse, Transpose:úlse
ne marche pas :o(
Merci encore,
@+
Michel.
"MichDenis" a écrit dans le message de news:Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" a écrit dans le message
de
groupe de
discussion :
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Pour faire ta copie, si tu utilises la variable Objet Excel que tu as
créée,
dim Xl as object
dim Wk As object
Set xl = CreateObject("Excel.Application")
Set Wk = Xl.Workbooks(Chemin & Fichier.xls) 'à ouvrir
Maintenant
Wk.Worksheets("NomDelaFeuille").Range("A1:A25").Copy
Wk.Worksheets("AutreFeuille").range(le reste de la commande...pour coller)
Ferme le classeur en sauvegardant
Wk.Close true
Ferme l'instance d'excel
xl.quit
"Michel" <mholderiantispam@hotmailantispam.com> a écrit dans le message de
groupe de
discussion : e26CggttJHA.4452@TK2MSFTNGP04.phx.gbl...
Bonjour,
super ca marche !!!!
Petite question j'essaie de faire un copier special valeur, mais ca ne
marche pas.
Aurais tu peut etre une idee ?
ObjApp.Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
:úlse, Transpose:úlse
ou
Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
'''' :úlse, Transpose:úlse
ne marche pas :o(
Merci encore,
@+
Michel.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
8F3E0D62-9F8A-4A6C-9186-F225744F91CB@microsoft.com...
Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" <mholderiantispam@hotmailantispam.com> a écrit dans le message
de
groupe de
discussion : O5YqP4dtJHA.1304@TK2MSFTNGP05.phx.gbl...
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Pour faire ta copie, si tu utilises la variable Objet Excel que tu as
créée,
dim Xl as object
dim Wk As object
Set xl = CreateObject("Excel.Application")
Set Wk = Xl.Workbooks(Chemin & Fichier.xls) 'à ouvrir
Maintenant
Wk.Worksheets("NomDelaFeuille").Range("A1:A25").Copy
Wk.Worksheets("AutreFeuille").range(le reste de la commande...pour coller)
Ferme le classeur en sauvegardant
Wk.Close true
Ferme l'instance d'excel
xl.quit
"Michel" a écrit dans le message de
groupe de
discussion :
Bonjour,
super ca marche !!!!
Petite question j'essaie de faire un copier special valeur, mais ca ne
marche pas.
Aurais tu peut etre une idee ?
ObjApp.Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
:úlse, Transpose:úlse
ou
Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
'''' :úlse, Transpose:úlse
ne marche pas :o(
Merci encore,
@+
Michel.
"MichDenis" a écrit dans le message de news:Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" a écrit dans le message
de
groupe de
discussion :
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Pour faire ta copie, si tu utilises la variable Objet Excel que tu as
créée,
dim Xl as object
dim Wk As object
Set xl = CreateObject("Excel.Application")
Set Wk = Xl.Workbooks(Chemin & Fichier.xls) 'à ouvrir
Maintenant
Wk.Worksheets("NomDelaFeuille").Range("A1:A25").Copy
Wk.Worksheets("AutreFeuille").range(le reste de la commande...pour coller)
Ferme le classeur en sauvegardant
Wk.Close true
Ferme l'instance d'excel
xl.quit
"Michel" a écrit dans le message de
groupe de
discussion :
Bonjour,
super ca marche !!!!
Petite question j'essaie de faire un copier special valeur, mais ca ne
marche pas.
Aurais tu peut etre une idee ?
ObjApp.Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
:úlse, Transpose:úlse
ou
Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
'''' :úlse, Transpose:úlse
ne marche pas :o(
Merci encore,
@+
Michel.
"MichDenis" a écrit dans le message de news:Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" a écrit dans le message
de
groupe de
discussion :
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Pour faire ta copie, si tu utilises la variable Objet Excel que tu as
créée,
dim Xl as object
dim Wk As object
Set xl = CreateObject("Excel.Application")
Set Wk = Xl.Workbooks(Chemin & Fichier.xls) 'à ouvrir
Maintenant
Wk.Worksheets("NomDelaFeuille").Range("A1:A25").Copy
Wk.Worksheets("AutreFeuille").range(le reste de la commande...pour coller)
Ferme le classeur en sauvegardant
Wk.Close true
Ferme l'instance d'excel
xl.quit
"Michel" <mholderiantispam@hotmailantispam.com> a écrit dans le message de
groupe de
discussion : e26CggttJHA.4452@TK2MSFTNGP04.phx.gbl...
Bonjour,
super ca marche !!!!
Petite question j'essaie de faire un copier special valeur, mais ca ne
marche pas.
Aurais tu peut etre une idee ?
ObjApp.Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
:úlse, Transpose:úlse
ou
Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
'''' :úlse, Transpose:úlse
ne marche pas :o(
Merci encore,
@+
Michel.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
8F3E0D62-9F8A-4A6C-9186-F225744F91CB@microsoft.com...
Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" <mholderiantispam@hotmailantispam.com> a écrit dans le message
de
groupe de
discussion : O5YqP4dtJHA.1304@TK2MSFTNGP05.phx.gbl...
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Pour faire ta copie, si tu utilises la variable Objet Excel que tu as
créée,
dim Xl as object
dim Wk As object
Set xl = CreateObject("Excel.Application")
Set Wk = Xl.Workbooks(Chemin & Fichier.xls) 'à ouvrir
Maintenant
Wk.Worksheets("NomDelaFeuille").Range("A1:A25").Copy
Wk.Worksheets("AutreFeuille").range(le reste de la commande...pour coller)
Ferme le classeur en sauvegardant
Wk.Close true
Ferme l'instance d'excel
xl.quit
"Michel" a écrit dans le message de
groupe de
discussion :
Bonjour,
super ca marche !!!!
Petite question j'essaie de faire un copier special valeur, mais ca ne
marche pas.
Aurais tu peut etre une idee ?
ObjApp.Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
:úlse, Transpose:úlse
ou
Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
'''' :úlse, Transpose:úlse
ne marche pas :o(
Merci encore,
@+
Michel.
"MichDenis" a écrit dans le message de news:Bonjour Michel,
Sur ce sujet, Frédéric Sigonneau a publié ce qui suit :
***************************************************************************
le comportement que tu décris semble faire partie des "charmes"
cachés de l'utilisation d'Excel avec Automation.
Il semble en effet que les macros complémentaires qui utilisent/créent un
bouton
de barre d'outils pour leur fonctionnement ne soient pas lancées
lorsqu'Excel
est créé par Automation. Alors que celles qui utilisent des entrées de
menu le
sont...
Pour résoudre ce problème, ce genre de code fonctionne pour moi (Excel
2002) :
Sub TestAddinExcel()
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Workbooks.Add
xl.AddIns("Titre de la macro").Installed = False
xl.AddIns("Titre de la macro").Installed = True
xl.Visible = True
End Sub
"Titre de la macro" est le nom de la macro complémentaire tel qu'il
apparaît
dans la liste ouverte par OutilsMacros complémentaires.
***************************************************************************
"Michel" a écrit dans le message
de
groupe de
discussion :
Bonjour a tout le monde,
Je ne sais pas si c'est HS ou pas...
depuis access j'essais d'ouvrir un fichier excel via le code :
Dim objSheet As Object
Dim strBook As String
Dim strPath As String
'init à modifier
strPath = "W:REPORTINGPricing"
strBook = "Extract_Prix_D-2_MF.xls"
strSheet = "Query_Px_Avant_Veille_1"
Set objApp = CreateObject("excel.application")
Set objBook = objApp.Workbooks.Open(strPath & "" & strBook)
Set objSheet = objBook.Worksheets(strSheet)
objApp.Visible = True 'si on veut visualiser
With objSheet
.Range("A1").Value = "Valoren Number"
End With
en passant par cette methode, la session excel ne load pas toutes les
memes
fonctionnalites ou barre outils qu'un simple :
ChDir "J:"
Workbooks.Open FileName:="C:.....xls"
Sauriez vous me dire pourquoi ?
Merci d'avance...
Un pauvre utilisateur perdu dans les Add-ins.....
@+
Michel.
Petite question j'essaie de faire un copier special valeur, mais ca ne
marche pas.
Aurais tu peut etre une idee ?
ObjApp.Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
:úlse, Transpose:úlse
ou
Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
'''' :úlse, Transpose:úlse
ne marche pas :o(
Au lieu de te contenter de dire que cela ne fonctionne pas,
publie ici la procédure (non le fichier) que tu utilises, et,
spécifie le message d'erreur que tu obtiens et / ou la
ligne de code qui refuse de s'exécuter.
Petite question j'essaie de faire un copier special valeur, mais ca ne
marche pas.
Aurais tu peut etre une idee ?
ObjApp.Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
:úlse, Transpose:úlse
ou
Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
'''' :úlse, Transpose:úlse
ne marche pas :o(
Au lieu de te contenter de dire que cela ne fonctionne pas,
publie ici la procédure (non le fichier) que tu utilises, et,
spécifie le message d'erreur que tu obtiens et / ou la
ligne de code qui refuse de s'exécuter.
Petite question j'essaie de faire un copier special valeur, mais ca ne
marche pas.
Aurais tu peut etre une idee ?
ObjApp.Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
:úlse, Transpose:úlse
ou
Selection.PasteSpecial Paste:=ObjApp.xlPasteValues,
Operation:=ObjApp.xlNone, SkipBlanks _
'''' :úlse, Transpose:úlse
ne marche pas :o(
Au lieu de te contenter de dire que cela ne fonctionne pas,
publie ici la procédure (non le fichier) que tu utilises, et,
spécifie le message d'erreur que tu obtiens et / ou la
ligne de code qui refuse de s'exécuter.
Au lieu de te contenter de dire que cela ne fonctionne pas,
publie ici la procédure (non le fichier) que tu utilises, et,
spécifie le message d'erreur que tu obtiens et / ou la
ligne de code qui refuse de s'exécuter.
Au lieu de te contenter de dire que cela ne fonctionne pas,
publie ici la procédure (non le fichier) que tu utilises, et,
spécifie le message d'erreur que tu obtiens et / ou la
ligne de code qui refuse de s'exécuter.
Au lieu de te contenter de dire que cela ne fonctionne pas,
publie ici la procédure (non le fichier) que tu utilises, et,
spécifie le message d'erreur que tu obtiens et / ou la
ligne de code qui refuse de s'exécuter.
L'utilisation de cette ligne de code s'applique
lorsqu'excel est ouvert
Set XL = CreateObject("Excel.Application")
Si Excel n'est pas ouvert, une erreur est générée et
la procédure utilise
Set XL = CreateObject("Excel.Application")
Pour rendre l'application excel :
Xl.Vsible = True
Maintenant, si tu veux ouvrir un fichier en utilisant la
variable Xl, tu dois procéder ainsi
Set Wk = Xl.Workbooks. Open("C:excelnomfichier.xls")
La variable Xl est un substitut pour Application
La variable Wk est un substitut pour un Workbook
Ton code devrait ressembler a ceci :
'-------------------------------------------------------
Sub OpenExcel()
Dim XL As Object, Wk As object
' Test Excel ouvert
On Error Resume Next '
Set XL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set XL = CreateObject("Excel.Application")
ExcelWasNotRunning = False
else
ExcelWasNotRunning = True
End If
'Rend visible application
XL.Application.Visible = True
'Ici ouverture de ton fichier
Set Wk = Xl.Workbooks.Open("C:excelnomfichier.xls")
'Pour sélectionner une cellule ou plage de cellules d'une feuille
with Wk.Worksheets("NomDeLaFeuille") 'Nom de la feuille a adapter
.Select
.Range("A5:G10").Select
End With
' le reste de ton code
'Pour fermer le classeur que tu viens d'ouvrir
Wk.Close True ' or false selon que tu veux sauvegarder les modifications
'pour fermer l'instance d'excel
xl.quit
End Sub
'-------------------------------------------------------
L'utilisation de cette ligne de code s'applique
lorsqu'excel est ouvert
Set XL = CreateObject("Excel.Application")
Si Excel n'est pas ouvert, une erreur est générée et
la procédure utilise
Set XL = CreateObject("Excel.Application")
Pour rendre l'application excel :
Xl.Vsible = True
Maintenant, si tu veux ouvrir un fichier en utilisant la
variable Xl, tu dois procéder ainsi
Set Wk = Xl.Workbooks. Open("C:excelnomfichier.xls")
La variable Xl est un substitut pour Application
La variable Wk est un substitut pour un Workbook
Ton code devrait ressembler a ceci :
'-------------------------------------------------------
Sub OpenExcel()
Dim XL As Object, Wk As object
' Test Excel ouvert
On Error Resume Next '
Set XL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set XL = CreateObject("Excel.Application")
ExcelWasNotRunning = False
else
ExcelWasNotRunning = True
End If
'Rend visible application
XL.Application.Visible = True
'Ici ouverture de ton fichier
Set Wk = Xl.Workbooks.Open("C:excelnomfichier.xls")
'Pour sélectionner une cellule ou plage de cellules d'une feuille
with Wk.Worksheets("NomDeLaFeuille") 'Nom de la feuille a adapter
.Select
.Range("A5:G10").Select
End With
' le reste de ton code
'Pour fermer le classeur que tu viens d'ouvrir
Wk.Close True ' or false selon que tu veux sauvegarder les modifications
'pour fermer l'instance d'excel
xl.quit
End Sub
'-------------------------------------------------------
L'utilisation de cette ligne de code s'applique
lorsqu'excel est ouvert
Set XL = CreateObject("Excel.Application")
Si Excel n'est pas ouvert, une erreur est générée et
la procédure utilise
Set XL = CreateObject("Excel.Application")
Pour rendre l'application excel :
Xl.Vsible = True
Maintenant, si tu veux ouvrir un fichier en utilisant la
variable Xl, tu dois procéder ainsi
Set Wk = Xl.Workbooks. Open("C:excelnomfichier.xls")
La variable Xl est un substitut pour Application
La variable Wk est un substitut pour un Workbook
Ton code devrait ressembler a ceci :
'-------------------------------------------------------
Sub OpenExcel()
Dim XL As Object, Wk As object
' Test Excel ouvert
On Error Resume Next '
Set XL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear
Set XL = CreateObject("Excel.Application")
ExcelWasNotRunning = False
else
ExcelWasNotRunning = True
End If
'Rend visible application
XL.Application.Visible = True
'Ici ouverture de ton fichier
Set Wk = Xl.Workbooks.Open("C:excelnomfichier.xls")
'Pour sélectionner une cellule ou plage de cellules d'une feuille
with Wk.Worksheets("NomDeLaFeuille") 'Nom de la feuille a adapter
.Select
.Range("A5:G10").Select
End With
' le reste de ton code
'Pour fermer le classeur que tu viens d'ouvrir
Wk.Close True ' or false selon que tu veux sauvegarder les modifications
'pour fermer l'instance d'excel
xl.quit
End Sub
'-------------------------------------------------------