Discussion :

[rch05]

Bonjour,

Après avoir effectué un transférerfeuillecalcul (macro), j'ai un message access "access n'a pas pu ajouté......".
J'aimerai le remplacer par un message personaliser.
Pourriez-vous me dire comment faire.
J'ai bien mis un message personnalisé, après l'instruction "transférerfeuillecacul", mais j'ai toujours le msg access qui apparait avant.
Merci de votre aide

[argyronet]

Bonjour,

Tu as 2 solutions :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ImportXL_A()
    On Error Resume Next
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Ta Table", "ton fichier", True
    If Err <> 0 Then
        Err.Clear
        MsgBox "Ben, y a eut comme qui dirait un problème lors de l'import !", vbExclamation
    Else
        MsgBox "Import terminé avec succès...", vbInformation
    End If
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ImportXL_B()
    On Error GoTo ImportXL_B_Error
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Ta Table", "ton fichier", True
    MsgBox "Import terminé avec succès...", vbInformation
    On Error GoTo 0
ImportXL_B_Exit:
    Exit Sub
ImportXL_B_Error:
    MsgBox "Ben, y a eut comme qui dirait un problème lors de l'import !", vbExclamation
    Resume ImportXL_B_Exit
End Sub

Argy

[rch05]

Bonjour argyronet,

Cela fonctionne bien.
C'est super
J'ai une autre question.
J'ai vu que l'on ne peux pas exétuter un module via une macro.
Mon souci est que j'excute une macro en même temps que le transfert.
Devrais-je modifier, l'exécution de cette macro en fonction du résultat avec un docmd.runmacro?

Merci d'avance

[argyronet]

J'ai vu que l'on ne peux pas exétuter un module via une macro.

Si, Exécuter code à condition d'appeler une fonction()...
Maintenant que tu le sais, tu peux adapter ton code...

Argy

[rch05]

Ok

Merci de ton aide