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
Pierre Fauconnier
Bonjour
Excel, en tant qu'application "vba", ne peut pas être instanciée... C'est pourquoi tu as un problème lorsque tu utilises MonExcel en tant que new excel.application...
Cela étant, si tu travailles avec le VBA de Excel, tu n'es pas obligé d'utiliser un objet excel.application pour déclarer MonClasseur.
Tu peux de suite utiliser set MonClasseur = workbooks.Open...
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Titi" a écrit dans le message de news: %
Bonjour à tous,
Voilà mon petit probleme, je souhaite récupérer des valeurs d'un classeur depuis un autre. Seulement quand je veux définir une plage ! Déboguage !!!
Voici un bout de code
Depuis mon fichier x j'ouvre un fichier y
Public MonClasseur As Excel.Workbook Public MonExcel As Excel.Application, mafeuille As Excel.Worksheet
MonExcel = New Excel.Application MonExcel.ReferenceStyle = xlR1C1
Dim strChemin As String strChemin = "serverDISK9GB1BelindaCouleurCouleur2005.xls"
Set MonClasseur = MonExcel.Workbooks.Open(strChemin, 0, True) Set mafeuille = MonClasseur.Worksheets("%TRICOLOR")
Déboguage a la ligne : MaPlage = mafeuille.Range(Cells(3,1), Cells(4,1)) "La méthode range de l'objet worksheet a échoué !"
Si je fait MonExcel = Excel.Application et non New Excel.Application
Cela fonctionne ?!
Qqun peut il éclairer ma lanterne ? D'avance merci,
Titi
Bonjour
Excel, en tant qu'application "vba", ne peut pas être instanciée... C'est
pourquoi tu as un problème lorsque tu utilises MonExcel en tant que new
excel.application...
Cela étant, si tu travailles avec le VBA de Excel, tu n'es pas obligé
d'utiliser un objet excel.application pour déclarer MonClasseur.
Tu peux de suite utiliser
set MonClasseur = workbooks.Open...
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Titi" <fraguelrock@cybergafi.com> a écrit dans le message de news:
%23AyjxqHLGHA.2392@TK2MSFTNGP09.phx.gbl...
Bonjour à tous,
Voilà mon petit probleme, je souhaite récupérer des valeurs d'un classeur
depuis un autre. Seulement quand je veux définir une plage ! Déboguage !!!
Voici un bout de code
Depuis mon fichier x j'ouvre un fichier y
Public MonClasseur As Excel.Workbook
Public MonExcel As Excel.Application, mafeuille As Excel.Worksheet
MonExcel = New Excel.Application
MonExcel.ReferenceStyle = xlR1C1
Dim strChemin As String
strChemin = "\serverDISK9GB1BelindaCouleurCouleur2005.xls"
Set MonClasseur = MonExcel.Workbooks.Open(strChemin, 0, True)
Set mafeuille = MonClasseur.Worksheets("%TRICOLOR")
Excel, en tant qu'application "vba", ne peut pas être instanciée... C'est pourquoi tu as un problème lorsque tu utilises MonExcel en tant que new excel.application...
Cela étant, si tu travailles avec le VBA de Excel, tu n'es pas obligé d'utiliser un objet excel.application pour déclarer MonClasseur.
Tu peux de suite utiliser set MonClasseur = workbooks.Open...
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Titi" a écrit dans le message de news: %
Bonjour à tous,
Voilà mon petit probleme, je souhaite récupérer des valeurs d'un classeur depuis un autre. Seulement quand je veux définir une plage ! Déboguage !!!
Voici un bout de code
Depuis mon fichier x j'ouvre un fichier y
Public MonClasseur As Excel.Workbook Public MonExcel As Excel.Application, mafeuille As Excel.Worksheet
MonExcel = New Excel.Application MonExcel.ReferenceStyle = xlR1C1
Dim strChemin As String strChemin = "serverDISK9GB1BelindaCouleurCouleur2005.xls"
Set MonClasseur = MonExcel.Workbooks.Open(strChemin, 0, True) Set mafeuille = MonClasseur.Worksheets("%TRICOLOR")
