Discussion :

[denisw95]

Bonjour,

En m'inspirant des réponses contenues dans le message suivant (http://www.developpez.net/forums/d45...artir-daccess/),
j'ai essayé de lancer une macro XLS dans du code VBA mais cela ne fonctionne pas : pas de message d'erreur, affichage d'une feuille XLS bizarre (sans cellule et avec un titre correspondant à la macro, impossible d'intervenir sur la feuille, seule la fermeture du fichier est possible).
Cette macro fonctionne sous EXCEL

Ci-après le code VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  Set objApp = CreateObject("excel.application")
  FichierExcel = "F:\Mes Documents Société Générale\03- mission GTS-SCE\Outil Devis\Modèle Synthèse Devis.xls"
  Set objbook = objApp.Workbooks.Open(FichierExcel, ReadOnly:=True)
  Set objsheet = objbook.Worksheets("Projet")
  objApp.Visible = True   'si on veut visualiser

Exécution de plusieurs commandes XLS ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With objsheet
    .Activate
' Données générales
    .Range("CodeMAO").Value = CodeMAO
    ...
End With

Puis exécution de ma macro XLS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    With objApp
         .Run ("Masquer_Ligne_nulle")
    End With

Si quelqu'un a une idée de ce qui ne va pas ...

Merci d'avance pour votre aide

[Jean-Philippe André]

salut,
ce qui me chiffonne c'est ton ouverture en mode lecture seulement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReadOnly:=True

est-ce voulu ou bien un copier/coller ?

[denisw95]

C'est voulu car la construction du fichier EXCEL se fait sur la base d'un modèle.
L'utilisateur peut ensuite enregistrer son fichier sous son propre nom sans écraser le modèle.