Discussion :

[beegees]

Bonjour tout le monde,

Je transfère des données de Access vers Excel avec VBA.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set appexcel = CreateObject("Excel.Application")
    appexcel.Visible = True
    Set wbexcel = appexcel.Workbooks.Open("path", ReadOnly:=True)
 
    'appexcel.Application.ScreenUpdating = False
 
 ValSQL = "SELECT * FROM [rqt] Where [nbAnnee] = '3' ORDER BY [Nom]"
 
Set bds = CurrentDb
Set rst = bds.OpenRecordset(ValSQL)
 
rst.MoveFirst

J'utilise alors rst![NomDuChampsDeLaRequete] pour placer les données dans les différentes cellules d'excel.

Par contre, ce que je ne sais pas faire c'est ceci :

Savoir si un champ Access est vide ou pas.

Pour cela, j'ai fais ceci :

Code :

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

1
2
3
4
If IsEmpty(rst![Champ]) Then
appexcel.Rows("s:s").Select
appexcel.Rows("s:s").Delete
End If

ça ne fonctionne pas, le test if agit comme-ci le champ était non vide alors qu'il est bien vide.

Il passe donc à l'instruction suivant le End If.

Je ne peux pas non plus faire

Code :

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

1
2
Dim Taille as integer
Taille = len(rst![Champ])

Merci d'avance pour votre aide.

beegees

[Jean-Philippe André]

bonjour,
regarde si

Code :

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

If not Isnull(Rs!Champs)

peut te servir

[beegees]

bonjour,
regarde si

Code :

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

If not Isnull(Rs!Champs)

peut te servir

Bonjour,

Merci pour ta réponse.

En effet, ça m'a servi.

J'ai fais ceci :

Code :

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

If IsNull(rst![ChampDeLaRequete]) Then

Il y'a une autre erreur mais je vais essayer de trouver par moi-même.

Merci, ça résoud le problème de ce post.

beegees