Discussion :

[noursowner]

Bonjour mon bout de code fait une importation excel avec la méthode DoCmd.TransferSpreadsheet, qui fonctionne comme je le souhaite
Néanmoins je dois copier le contenu d'une des cellules importées dans une autre cellule et je n'ai rien pour démarquer les lignes et sachant que parfois cette cellule est vide j'ai une erreur de copie quand cette cellule est vide

Voici le bout de code en question qui me pose problème:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
DoCmd.OpenTable "coupure", acNormal, acEdit
DoCmd.GoToRecord acTable, "coupure", acGoTo, 15 'positionnement du focus
If (La condition que je trouve pas) Then
DoCmd.Close
Else
DoCmd.RunCommand acCmdCopy
DoCmd.GoToRecord acTable, "coupure", acGoTo, 14
DoCmd.GoToControl "F2"
DoCmd.RunCommand acCmdPaste
DoCmd.Close
End If

En clair ma condition doit être que quand c'est vide je ne copie pas ce qui est positionné.j'ai essayé le IsNull et le ="" mais sans succès
Si quelqu'un pourrais m'aiguiller ce serais trop bien.

Merci d'avance

[pc75]

Bonjour,

Une autre idée ?

Code :

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

1
2
3
 
if Len(Trim(toto)) = 0 then
.....

[cbleas]

Bonjour autre solution

Code :

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

If nz([champs condition],"")="" then

Bonne journée