Discussion :

[mgascult]

Bonjour à Tous,

Hormis le fait que je travaille sur le réseau et aussi en VPN, pouvez-vous me dire si la liste des Références ci-dessous peut provoquer une instabilité d’Access.



J’ai aussi un post ouvert qui pourrait être aussi en relation avec un dysfonctionnement:

https://www.developpez.net/forums/d2...tification-hs/


J’ai un exemple qui m’est arrivé ce matin.

Le code ci-dessous fonctionne.

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
Private Sub but_globales_fiches_Click() 'Export de la requete en Excel
 
Dim ExcelWorksheet As Object
 
'déclaration de la variable
strPath = "V:\MLM\R_report_Globales_fiches.xlsx"
 
If Len(Dir(strPath, vbDirectory)) <> 0 Then
Kill strPath  ' si le fichier existe il le supprime
DoCmd.TransferSpreadsheet acExportQuery, acSpreadsheetTypeExcel12Xml, "R_report_Globales_fiches", strPath, True
MsgBox "Export terminé dans le dossier V:\MLM ", vbExclamation, ""
 
End If
 
End Sub

J'ai fait un copier coller du même code pour l'associer à un autre bouton, changé juste le chemin et le nom de la requête et aucune réaction au clic sur le bouton code ci-dessous.

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
Private Sub but_export_RLM_Click() 'Export de la requete fiche RLM en Excel
 
Dim ExcelWorksheet As Object
 
'déclaration de la variable
strPath = "V:\MOVERS LEAVERS\R_report_fiches_ouvertes_RLM.xlsx"
 
If Len(Dir(strPath, vbDirectory)) <> 0 Then
Kill strPath  ' si le fichier existe il le supprime
DoCmd.TransferSpreadsheet acExportQuery, acSpreadsheetTypeExcel12Xml, "R_report_fiches_ouvertes_RLM", strPath, True
MsgBox "Export terminé dans le dossier V:\MOVERS LEAVERS ", vbExclamation, ""
 
End If
 
End Sub

Je suis loin d'etre un Expert et vous remercie pour votre aide.

Bel après midi 🌞

[Thumb down]

Bonjour,
sans doute parce que PrivateSub but_export_RLM_Click() ne corresponds peut-être pas à l'évènement du contrôle en question!
tu n'aurais pas fait un erreur de copier coller?

[mgascult]

merci Thumb down

non j'avais vérifié et renommé le bouton (ce que je fais systématiquement) avant de copier le code .
j'ai même créé un troisième bouton avec un autre nom et collé le même code et ce 3me bouton ne réagit pas non plus c'est ce qui m'inquiète.

[hyperion13]

Salut
Ôtez-moi d'un doute, la dernière référence en surbrillance et celle qui la précède concerne ADO !

[mgascult]

c'est possible Hyperion13, je n'ai pas toutes les connaissances encore

[hyperion13]

re,
dans toutes vos sollicitations nous avons toujours travaillé avec DAO.Database et DAO.Recordset. Donc décochez les 2 dernières références.
Il semblerait que tous les problèmes rencontrés ici ou ailleurs proviennent encore une fois de mises à jour Windaube et Office.

c'est possible Hyperion13, je n'ai pas toutes les connaissances encore

[Thumb down]

Bonjour,
Tu cherches un répertoire dans un fichier Excel ?

Code :

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

1
2
3
strPath = "V:\MOVERS LEAVERS\R_report_fiches_ouvertes_RLM.xlsx"
 
If Len(Dir(strPath, vbDirectory))

Ajoutes unmsgbox"toto" dans l'événement?

Ou place un point d'arrêt sur l'instruction if avec la touche [F9] et après arrêt touche [F8] déjà tu verras si l'événement fonction et le comportement de la macro avec [F8]

[mgascult]

euh non Thumb down

Je souhaite exporter la requête "R_report_fiches_ouvertes_RLM" en Excel dans le dossier "V:\MOVERS LEAVERS\R_report_fiches_ouvertes_RLM.xlsx"

[Thumb down]

Tu as mis un point d'arrêt sur le if?

Je suis déjà surpris que le premier code fonctionne alors le deuxième !

[hyperion13]

Salut
Et pourquoi ne pas créer une nouvelle bdd vierge, y importer la totalité de vos objets et voir son comportement !

[mgascult]

Salut
Et pourquoi ne pas créer une nouvelle bdd vierge, y importer la totalité de vos objets et voir son comportement !

Et bien c'est ce que je me dis, je trouve qu'il y a une instabilité que je n'avais pas avant

[hyperion13]

re,
Après vérification de votre syntaxe

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub but_export_RLM_Click() 'Export de la requete fiche RLM en Excel
'déclaration de la variable
strPath = "V:\MOVERS LEAVERS\R_report_fiches_ouvertes_RLM.xlsx"
 
If Len(Dir(strPath, vbDirectory)) = 0 Then ' le fichier n'existe pas
    DoCmd.TransferSpreadsheet acExportQuery, acSpreadsheetTypeExcel12Xml, "R_report_fiches_ouvertes_RLM", strPath, True
    MsgBox "Export terminé dans le dossier V:\MOVERS LEAVERS ", vbExclamation, ""
ElseIf Len(Dir(strPath, vbDirectory)) <> 0 Then ' le fichier existe déjà
    Kill strPath  ' si le fichier existe il le supprime
    DoCmd.TransferSpreadsheet acExportQuery, acSpreadsheetTypeExcel12Xml, "R_report_fiches_ouvertes_RLM", strPath, True
    MsgBox "Export terminé dans le dossier V:\MOVERS LEAVERS ", vbExclamation, ""
End If
End Sub

[mgascult]

je ne l'avais pas encore fait.

J'avoue que ne suis pas habitué à cette commande.

Je l'ai fait mais je n'arrive pas à exécuter le code j'ai une fenêtre qui s'ouvre et je ne comprend pas pourquoi

[Thumb down]

Code :

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

1
2
3
4
5
6
7
Private Sub but_export_RLM_Click() 'Export de la requete fiche RLM en Excel 'déclaration de la variable
strPath = "V:\MOVERS LEAVERS\R_report_fiches_ouvertes_RLM.xlsx"
 
If Dir(strPath) <> "" Then Kill strPath ' si le fichier existe il le supprime
DoCmd.TransferSpreadsheet acExportQuery, acSpreadsheetTypeExcel12Xml, "R_report_fiches_ouvertes_RLM", strPath, True
MsgBox "Export terminé dans le dossier V:\MOVERS LEAVERS ", vbExclamation, ""
 End Sub

Si le fichier excel n'existe pas il faut quand même exporter la requête !

[Thumb down]

vbDirectory c'est pour les répertoire hors tu cherche l'existence d'un fichier!

ne te complique pas la vie!

Code :

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

1
2
3
4
5
6
private Sub but_export_RLM_Click() 'Export de la requete fiche RLM en Excel
strPath = "V:\MOVERS LEAVERS\R_report_fiches_ouvertes_RLM.xlsx" 'déclaration de la variable
If Len(Dir(strPath)) <>0 Then Kill strPath  ' si le fichier existe il le supprime
    DoCmd.TransferSpreadsheet acExportQuery, acSpreadsheetTypeExcel12Xml, "R_report_fiches_ouvertes_RLM", strPath, True
    MsgBox "Export terminé dans le dossier V:\MOVERS LEAVERS ", vbExclamation, ""
End Sub

[mgascult]

merci à Tous les deux,

Je n'ai pas eu le temps de lire le post d'hyperion13.

J'ai créé un nouveau bouton et cela fonctionne avec le code ci-dessous:

Code :

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

1
2
3
4
5
6
7
Private Sub but_export_RLM_Click() 'Export de la requete fiche RLM en Excel 'déclaration de la variable
strPath = "V:\MOVERS LEAVERS\R_report_fiches_ouvertes_RLM.xlsx"
 
If Dir(strPath) <> "" Then Kill strPath ' si le fichier existe il le supprime
DoCmd.TransferSpreadsheet acExportQuery, acSpreadsheetTypeExcel12Xml, "R_report_fiches_ouvertes_RLM", strPath, True
MsgBox "Export terminé dans le dossier V:\MOVERS LEAVERS ", vbExclamation, ""
 End Sub

mais je maintien que le code ci-dessous fonctionne aussi mais pas en modifiant les chemin, allez savoir pourquoi

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
Private Sub but_globales_fiches_Click() 'Export de la requête en Excel
 
Dim ExcelWorksheet As Object
 
'déclaration de la variable
strPath = "V:\MLM\R_report_Globales_fiches.xlsx"
 
If Len(Dir(strPath, vbDirectory)) <> 0 Then
Kill strPath  ' si le fichier existe il le supprime
DoCmd.TransferSpreadsheet acExportQuery, acSpreadsheetTypeExcel12Xml, "R_report_Globales_fiches", strPath, True
MsgBox "Export terminé dans le dossier V:\MLM ", vbExclamation, ""
 
End If
 
End Sub

Je ne vais pas fermer le post, j'espère avoir le temps de faires les imports et test la semaine prochaine

Je vous souhaite un Excellent week-end

[hyperion13]

Ben tant mieux ! Parce que j'ai écrit n'importe quoi sans contrôler mon copier/coller !

merci à Tous les deux, Je n'ai pas eu le temps de lire le post d'hyperion13.

[mgascult]

ça peut arriver, personne n'est infaillible

[Thumb down]

Au mieux ton code fonctionne si le fichier excel existe déjà, mais il n'y a aucune raison qu'il existe la première fois !

Ouvrir l'explrateur Windows supprime le fichier lié à la macro but_globales_fiches_Click() et tu verras qu'elle ne fonctionne plus !

[mgascult]

oui effectivement