Bonjour je souhaite ouvrir un classeur excel dpuis mon application Access, pour cela je fais :
 
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
     
    'J'initialise mes variables
    Set xlApp = CreateObject("Excel.Application" )
    xlApp.Workbooks.Open ("dmes_fichier/classeur.xls" )
 
Mais bien que je n'ai aucune erreur ni rien en fait il ne se passe stritement rien... je précise que je souhaite simplement ouvrir et afficher la feuille excel, hors dans le cas présent je peux manipuler les données mais rien ne s'affiche.
En mode pas à pas j'ai bien verifié on passe sur l'instruction mais cela n'ouvre pas Microsoft excel    
Quelqu'un aurait il une idée du pourquoi ?

essaie ceci :après  
set xlApp = CreateObject("Excel.Application" )
ajoute
xlApp.visible = true

Mais quel boulet je suis !!!!!!!!!!!!!!!!!!!!!!!!!!!!!   c'est tellement stupide que je n'y avais pas pensé    
Merci

Et personne ne saurait comment choisir la feuille de calcul qui doit s'afficher à l'ouverture du classeur ?

ptet:   xlapp.workbooks("classeur.xls" ).sheets("sheetx" ).activate

Non ca ne fonctionne pas ...

 
c'est bizarre parce que le code ci-dessous fonctionne très bien sous access ....:
 
Sub test()
 
    Dim xlApp As Object
     
    Set xlApp = CreateObject("Excel.Application" )
    xlApp.Visible = True
    xlApp.workbooks.Open ("classeur1.xls" )
    xlApp.workbooks("classeur1.xls" ).sheets("Feuil2" ).Activate
End Sub

C'est étrange car moi j'ai tout cela qui fonctionne :
 
    Dim xlApp As Object  
     
    Set xlApp = CreateObject("Excel.Application" )  
    xlApp.Visible = True  
    xlApp.workbooks.Open ("classeur1.xls" )  
 
Mon classeur s'ouvre, mais il ne me prends pas la feuille de calcul que je lui demande ...  
et j'ai une erreur sur la ligne  
 
   xlApp.workbooks("classeur1.xls" ).sheets("Feuil2" ).Activate  
 
Moi mon classeur ma feuille de calcul s'appelle "LP Grappe 5" je fais donc
 
xlApp.Workbooks("classeur1.xls" ).Sheets("LP Grappe 5" ).Activate
 
et cela me donne comme erreur : "l'indice n'appartient pas à la sélection" ...

essaye avec le numéro d'index de la feuille plutôt que son nom
et éventuelement
with xlapp.workbooks(le_nom_de_ton_classeur)
       .sheets(X).activate
end with
 
on sait jamais
@+

Non ca ne fonctionne pas non plus
Je ne vois pas d'ou cela vient

Bonjour,
je pense qu'il faut supprimer les espaces ou les remplacer par _
SMN

Voici un pt pb
depuis access, j'ouvre un fichier excel, j'y insere des données mais
je voudrais inserer un objet ( un snapshot par ex) comment faire?

En créant un nouveau post car ce n'est pas le même sujet
 
 
 
Sharky => Est ce que par hasard t'as pas une protection sur ton fichier excel ou une macros qui risquerait d'empêcher cet affichage ?

Bizarre que ça ne marche pas!
tu n'es plus à un essai près
met en A1 une valeur
 
Sub test()
Dim objBook As Object
Dim objApp As Object
Dim objSheet As Object
Dim strPath As String
Dim strBook As String
Dim strSheet As String
 
'init à modifier
strPath = "D:\Documents and Settings\Administrateur\Mes documents"
strBook = "Classeur1.xls"
strSheet = "LP Grappe 5"
'traitement
Set objApp = CreateObject("excel.application" )
Set objBook = objApp.workbooks.Open(strPath & "\" & strBook)
Set objSheet = objBook.worksheets(strSheet)
objApp.Visible = True   'si on veut visualiser
'traite application
With objApp
'...
End With
'traite Classeur
With objBook
'...
End With
'traite feuille
With objSheet
toto = .range("A1" ).Value
.range("A2" ).Value = toto
End With
objBook.Save '
objApp.Quit
'libère
Set objSheet = Nothing
Set objBook = Nothing
Set objApp = Nothing
 
End Sub

Oula désolé pour l'absence ... Mais j'ai eut une tonne de trucs a faire ...
Donc en bref la situation n'a point bougé d'un iota    
Non le fichier n'est pas protégé et il n'y a aucune macro ...
Ca m'enerve j'ai essayé toutes les méthode et je en comprends vraiment pas pourquoi il s'obstine a se lancer sur la première feuille de calcul !!!
C'est a s'arracher le cheveux !! lol !!

Salut Sharky01, en fait c'est tout simple, il te suffut de faire comme ceci:
 
Sub test()  
 
    Dim xlApp As Object  
     
    Set xlApp = CreateObject("Excel.Application" )  
    xlApp.Visible = True  
    xlApp.workbooks.Open ("classeur1.xls" )  
    xlApp.sheets("Feuil2" ).Activate  
End Sub  
 
Tchô
 
Fab350Z