Discussion :

[Arsach]

Salut les petits loups !
Je vous expose un ptt pbme sur lequel je me casse la tête depuis 3 jours sans rien trouver comme solution (et sur ce coup là Google n'est pas mon pote).
Voila le topo :
- J'ai un fichier Excel avec deux onglets ainsi qu'une procédure Workbook_BeforeSave qui me permet de déplacer automatiquement les lignes à historiser du premier onglet vers le second onglet. Le code fonctionne correctement quand je ferme le classeur à la main. Voici un exemple simplifié de mon code (dans l'exemple je me contente de déplacer la dernière valeur du premier onglet dans le second).

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
19
20
    Dim xlWsIn As Worksheet
    Dim xlWsOut As Worksheet
    Dim iLineToCopy As Integer
    Dim iLineToPaste As Integer
 
    Set xlWsIn = ActiveWorkbook.Worksheets(1)
    Set xlWsOut = ActiveWorkbook.Worksheets(2)
    iLineToCopy = 1
    iLineToPaste = 1
    Do Until xlWsIn.Range("A" & iLineToCopy + 1) = ""
        iLineToCopy = iLineToCopy + 1
    Loop
    Do Until xlWsOut.Range("A" & iLineToPaste) = ""
        iLineToPaste = iLineToPaste + 1
    Loop
    xlWsIn.Range("A" & iLineToCopy).Cut
    xlWsOut.Paste xlWsOut.Range("A" & iLineToPaste)
 
    Set xlWsIn = Nothing
    Set xlWsOut = Nothing

- J'ai une base Access dans laquelle une macro ouvre le fichier Excel pour y mettre les lignes à jour.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook
    Dim xlWs As Excel.Worksheet
 
    'Démarrage d'Excel
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlWb = xlApp.Workbooks.Open("C:\test.xls")
    xlWb.Worksheets(1).Range("A1").Value = Time()
    xlWb.Close True
    Set xlWb = Nothing
    Set xlApp = Nothing

Voici mon pbme. Quand la macro Access ferme le fichier Excel, cela déclenche bien la procédure BeforeSave (testé en ajoutant des MsgBox dans le code) MAIS les instructions suivantes ne fonctionnent pas ! :

Code :

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

1
2
    xlWsIn.Range("A" & iLineToCopy).Cut
    xlWsOut.Paste xlWsOut.Range("A" & iLineToPaste)

Bref gros coup de pouce demandé car je ne m'y retrouve plus ! Etes vous au courant d'une limitation ?
Merci par avance.

[sl.info]

J'ai fait quelques tests, et la cause de ton anomalie est le Presse-papiers... Je te conseille de faire des recherches dans ce sens...

Pour visualiser l'anomalie:
- Ouvrir le Gestionnaire de l'Album avec la commande clipbrd dans le menu Exécuter de Windows
- Sélectionner le Presse-papiers dans le menu Fenêtre
- Ajouter une MsgBox avant la commande Cut pour pouvoir activer le mode Debug avec [CTRL]+[Pause]
- Faire un test à partir du classeur
- Faire un test à partir de la base
Les tests doivent être fait en pas à pas à partir de la MsgBox pour voir qu'une information circule depuis le classeur et non depuis la base

Pour le moment je n'ai pas de solution, mais je continue les recherches

[Pierre Fauconnier]

Bonjour

Je pense que le problème est plus un problème Excel qu'un problème Access... (et donc, déplacement vers Excel...)

Il faudrait placer un point d'arrêt juste avant les lignes

Code :

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

1
2
    xlWsIn.Range("A" & iLineToCopy).Cut
    xlWsOut.Paste xlWsOut.Range("A" & iLineToPaste)

puis fermer Excel pour vérifier que xlWsIn, wlWsOut, iLineToCopy et iLineToPaste ont des valeurs cohérentes.

Autre question: Y-a-t'il une gestion d'erreurs active dans la procédure (Comme le code montré ici n'est pas celui qui est utilisé, il y a une multitude d'autre possibilités, car il est très possible qu'en allégeant le code, tu aies supprimé la cause de l'erreur...)

un exemple simplifié de mon code (dans l'exemple je me contente de déplacer la dernière valeur du premier onglet dans le second).

Le mieux, quand un code plante, c'est de le montrer tel qu'il est utilisé...

[Arsach]

Pour compléter mon premier post :
L'exemple simplifié dont je me sers présente exactement le même "bug". Je l'ai simplifié afin de cibler au mieux le pbme et éviter comme Pierre le souligne la multitude d'autre possibilités.

Les tests suivants ont également été menés avec l'exemple simplifié :
- test de la procédure BeforeSave dans le classeur Excel seul : aucun pbme, la fonction déplace bien la dernière ligne du premier onglet vers le second

- test depuis la base Access en pas à pas dans la fonction BeforeSave : tout se passe bien , les variables xlWsIn, wlWsOut, iLineToCopy et iLineToPaste sont correctes MAIS les instruction Cut et Paste ne donnent rien

Je pense que le problème est plus un problème Excel qu'un problème Access.

Cela peut aider mais les tests réalisés montrent clairement que cela fonctionne dans Excel seul mais que cela ne marche plus à partir du moment où le fichier est ouvert par Access

Je continue à chercher sur la piste du Clipboard

[Pierre Fauconnier]

Et en testant les valeurs de

Code :

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

xlWsIn.Range("A" & iLineToCopy)

et de

Code :

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

xlWsOut.Range("A" & iLineToPaste)

Cela veut dire quoi "...ne donnent rien"... Plantage, rien n'est coupé/collé? Plantage? ...

Une piste

Code :

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

xlWsIn.Range("A" & iLineToCopy).cut destination:= xlWsOut.Range("A" & iLineToPaste)

et éventuellement, Avant le couper/coller, mettre

Code :

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

Application.CutCopyMode = False

??

[Arsach]

Cela veut dire quoi "...ne donnent rien"... Plantage, rien n'est coupé/collé? Plantage? ...

Le code ne plante pas mais lorsque les lignes sont exécutées, il ne se passe rien dans le classeur (ni cut ni paste). Une fois la procédure BeforeSave terminée, le classeur se ferme bien.

Une piste

Code :

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

xlWsIn.Range("A" & iLineToCopy).cut destination:= xlWsOut.Range("A" & iLineToPaste)

et éventuellement, Avant le couper/coller, mettre

Code :

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

Application.CutCopyMode = False

Rien à faire, le même pbme se produit !