Discussion :

[denisw95]

Bonjour,

un gros dilemme pour moi. Lors de l'exécution d'un code VB, j'ai un comportement différent selon le PC sur lequel je l'exécute :
- PC Windows 10 avec le moteur Access 2016, ça fonctionne
- PC Window7 avec le RunTime Access 2016 32bits, ça fonctionne
- PC Windows 10 avec le RunTime Access 2016 32bits, erreur 1004

L'objet du code VB :
- récupérer via export le résultat d'une requête
- copier l'export dans un modèle Excel afin de générer un support standard (des macros de calcul sont exécutées à l'ouverture du fichier Excel crée)
- renommer le fichier généré afin de préserver le modèle et sauvegarder le résultat



Le code incriminé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
DoCmd.TransferSpreadsheet acExport, , "ReqDevis3", Repertoire & "toto.xlsx"
Set objapp = CreateObject("excel.application")
objapp.Visible = False
 
FichierSource = Repertoire & "toto.xlsx"
Set objbook1 = objapp.Workbooks.Open(FichierSource, ReadOnly:=True)   
FichierDest = Repertoire & "Modele_Synthese_Devis.xlsm"
Set objbook2 = objapp.Workbooks.Open(FichierDest, ReadOnly:=False)
objbook1.worksheets(1).copy after:=objbook2.worksheets(1)
objbook1.Close
Kill (FichierSource)
FichierCreer = Repertoire & "Synthese_Devis_" & NumDevis & ".xlsm"
objbook2.saveas FichierCreer
objbook2.Close
objapp.Visible = True
Set objbook1 = objapp.Workbooks.Open(FichierCreer)
Set objsheet1 = objbook1.worksheets("ReqDevis3")

L'erreur se trouve sur les commandes "Set objbook1" ou "Set objbook2"

Merci d'avance pour votre aide

[denisw95]

Pourrait-Il s'agir d'un paramétrage différent de Windows ou Office ? Si oui, lequel ?
Lorsqu'on l'on exécuté une base Access avec le Run time, est ce que la base embarqué les 'Preferences' paramétrée dans le gestionnaire de code ? Si non, comment faire pour les mettre à niveau sur le poste utilisant le Run Time ?

[denisw95]

Bonjour,

Après avoir mis une trace, je confirme que l'erreur se produit bien sur la ligne suivante

Code :

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

1
2
 
Set objbook2 = objapp.Workbooks.Open(FichierDest, ReadOnly:=False)

[Invité]

bonjour,

au lieu d'ouvrir ton fichier Xls et de l'enregistrer sous je te propose de créer un nouveau classeur en utilisant ton fichier en tant que modèle.

Code :

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

1
2
3
Set objbook2 = objapp.Workbooks.add(FichierDest)

[denisw95]

Merci pour ta réponse

Nous sommes en train d'investiguer sur l'utilisation des macros avec Office365. Il semblerait qu'il y ait un problème de paramétrage du poste de ce coté.

Quand j'ouvre un fichier XLS avec Office365 (et indépendamment d'Access), il sort une erreur sur les macros (fichier corrompu) et les supprime.

[Invité]

Dans ton projet vba, vas dans menu=>références si tu as des.références manquantes décoche les.

[denisw95]

Apparemment, le poste sur lequel ont été fait les tests, l'utilisation des macro Excel a été verrouillée ce qui génère une erreur à l'ouverture du fichier