Discussion :

[Opo]

Bonjour à tous,
Je misère avec un export de données Access vers Excel..
Mon erreur actuelle est la suivante,
je mets en forme ma feuille XL (depuis Access VBA) et quand j'arrive sur :

Code :

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

xlApp.ActiveSheet.Range(Cells(1, 1)).Select

, mon code part en erreur en me disant :
"Variable objet ou variable de bloc With non définie".. de manière plus large, dès que j'utilise "Cells(x,x)"... j'ai l'erreur citée précédemment.
Est ce que qqn sait d'où ça peut venir ?
Merci !

[loufab]

ce serait bien d'avoir le code complet... j'ai cassé ma boule de cristal, mon tarot de Marseille est compatible Dos 2.52, je n'ai plus de poulet à sacrifié depuis la grippe aviaire.

[Lou Pitchoun]

je n'ai plus de poulet à sacrifié depuis la grippe aviaire.

Bientôt tu ne mangeras plus de fois gras non plus... (si les oies tiennent pas le coup.. les canards c'est foutu...)

Ce ne serai pas le Cells qui bugue
As tu testé

Code :

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

xlApp.ActiveSheet.Range("1:1").Select

[random]

essaye ceci

Code :

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

1
2
3
4
5
6
 
if isnothing(activesheet) then
msgbox("aucune feuille sélectionnée"
else 
ActiveSheet.Cells(1, 1).Select 
end if

[Arkham46]

Access non plus n'a pas de boule de cristal

Il ne sait pas à quel objet il doit appliquer la méthode :

Code :

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

Cells(1, 1)

Sinon regarde la syntaxe de range dans l'aide d'excel, il demande deux cellules ou un nom de plage ("A1" par exemple)

Si tu veux accélerer et fiabiliser le traitement évite les Select et ActiveMachinTruc en automation.
Dans Access on ne fait pas un SetFocus avant de mettre à jour un champ, c'est pareil pour Excel.

[Opo]

Voilà un extrait du code :

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
21
       sSQL = "Select * From Tbl_Param_Etat Where Num_Context=" & piChoixSelection & "  AND Nom_Etat='" & psNomOnglet & "' ORDER BY NUM_COL"
        Set rcsColonne = CurrentDb.OpenRecordset(sSQL)
        lCol = 1
        If Not rcsColonne.EOF Then
            rcsColonne.MoveLast
            rcsColonne.MoveFirst
            Do While Not rcsColonne.EOF
 
                xlSheetExport.Cells(1, lCol).Value = rcsColonne("NOM_COL_AFFICHE") & Chr(10) & rcsColonne("NOM_COL_AFFICHE2")
                xlSheetExport.Cells(1, lCol).Characters(Start:=1, Length:=Len(Trim(rcsColonne("NOM_COL_AFFICHE")))).Font.ColorIndex = 3
 
                rcsColonne.MoveNext
                lCol = lCol + 1
            Loop
        End If
        rcsColonne.Close
        Set rcsColonne = Nothing
 
    End If
 
    ------>    xlSheetExport.Range(Cells(1, 1)).Select

Toutes les variables sont déclarées, le déroulement de la boucle se passe tt à fait bien... et sur la dernière ligne... ben ça va plus trop comme je voudrais !
J'ai essayé range("1:1") mais il n'aime pas du tout !
Merci de votre aide

modération : cafeine, merci d'activer le BBCode dans vos paramètres.

[Lou Pitchoun]

J'ai essayé range("1:1") mais il n'aime pas du tout !

Désolé... essaie soit ce que Arkham a écrit ou alors "L1:C1" (si mes souvenirs sont bons) qui est l'autre méthode d'accès aux cellules.

[loufab]

J'ai congelé 12 kg de foie gras de canard frais élevé en plein air et embuqué (Pardon Gavé) au bon grain...

j'ai juste de quoi tenir 4 mois. tataratataheu tatarataheu

Le foie d'oie ? c'est quoi ça

[random]

[quote="Arkham46"]Access non plus n'a pas de boule de cristal

Il ne sait pas à quel objet il doit appliquer la méthode :

Code :

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

Cells(1, 1)

Sinon regarde la syntaxe de range dans l'aide d'excel, il demande deux cellules ou un nom de plage ("A1" par exemple)

access sait tres bien distinguer a qui appliquer une méthode d'excel si
la référence est déclarée et comme activesheet ne prête pas à confusion ...

[Opo]

J'AI TROUVE !!!!
En fait il faut requalifier à l'intérieur du Range !

Je m'explique :

Code :

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

Sheet.range(cells(1,1),cells(2,1)).value

... ça va peut être marcher de tps en tps ..
mais apparemment

Code :

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

Sheet.range(Sheet.cells(1,1),Sheet.cells(2,1)).value,

ça marche à ts les coups !
Comme tu le dis Random, il ne sait plus à quoi appliquer la méthode !!
MERCI POUR VOTRE AIDE !
Et vive le foie gras !

modération : cafeine, RAPPEL : merci d'activer le BBcode