Discussion :

[mayouzin]

Bonsoir et bonne année.
Apres migration de Office 2000 et W7 à W10 et Office 2016 ma macro excel lancé a partir d'un formulaire ne fonctionne pas
En pas a pas dans Access et ensuite dans Excel j'ai le résultat désiré
Mais à partir du clic dans le formulaire Excel, pas d'erreurs signalées mais la macro excel ne s'exécute mal, elle sauve une image vide
La Macro excel charge une image la complete et la sauve en JPG cette image est ensuite récupéré par la macro du formulaire

[mayouzin]

Bonjour, je n'ai pas beaucoup de succès avec ma question !
J'essaye de tourner dans tous les sens sans résultats.
Voici le début de ma macro Access, tout fonctionnement et normal jusqu'à l'appel de la macro4.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim lExcelObj As Excel.Application
    Dim lSheet As Excel.Worksheet
    Dim lExcelWB As Excel.Workbook
    Set lExcelObj = CreateObject("Excel.Application")
    lExcelObj.Visible = True 'True                                    ' rend les op?rations invisibles
 
    Set lExcelWB = lExcelObj.Workbooks.Open("E:\Balneo\ost?o\carte avec position.xlsm")  ' ouvre le fichier excel
    Set lSheet = lExcelWB.Sheets(1)                              ' defini page 1 comme page active
    lSheet.Range("Lo_new").Value = 5.9148                   ' ajuste le champs latitude de la page pour chambery
    lSheet.Range("la_new").Value = 45.5712                  ' idem pour longitude
    lExcelObj.Run "Macro4"                                            ' Execute la macro excel

excel début de Macro4, avec W7 et office2000 tout se passait bien, avec W10, ça fonctionne en pas a pas mais pas par appel par la macro Access
_ une image vide est chargée
_ le msgbox() est bien affiché avec le message

Code :

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

1
2
3
4
5
6
7
    Range("A1").Select
    ActiveSheet.Pictures.Insert("E:\Balneo\Zone_france.jpg").Select
    Selection.Name = "image"
    MsgBox ("tout va bien")
    ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, 241.5, 326.25, 6#, 16.5).Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
    Selection.ShapeRange.Fill.Visible = msoTrue

Merci et à bientôt