Discussion :

[Puffcash]

Bonjour à tous,

j'utilise la fonction qu'a créé Muhad'hib ici : http://www.developpez.net/forums/sho...29#post1339129

J'exporte ma table dans un fichier excel exitant. Dans une cellule de celui-ci, une formule est présente (par exemple =$E$1 + $F$1). Seulement, quand j'importe ma table access, cette formule est écrasée. Je voudrais la conserver lorsque le champ en question n'est pas rempli. Je sais pas si je suis clair

Est-ce possible ?

Merci

[Muhad'hib]

Re,

Peux-tu donner ton code en entier (pas la fonction mais son utilisation) et préciser sur quelle plage tu colle les données et sur quelle colonne tu veux cette formule ?

A+

[Puffcash]

Re,

alors, voilà exactement ce qui se passe :
je veux exporter une requête ayant pour champ :
Item, Option, zone, description, U, Nb, F, type

L'utilisateur saisie ces différents champs. Mais il n'est pas obligé de tous les remplir.

Ensuite il clique sur un bouton "exporter" qui effectue ta fonction et exporte les valeurs dans l'onglet "FMVA" à l'emplacement ligne 11, colonne 1.
Cela à pour but de remplir un tableau déjà existant mais vide (seul les entêtes existent). Deux colonnes excel sont affectées par une formule :
- La colonne correspondant au champ "U" contient la formule =$E1$
- La colonne correspondant au champ "type" contient la formule =SI(E11<380;1;3) pour la ligne 11, =SI(E12<380;1;3) pour la ligne 12 etc...

J'aimerais que : lorsque l'utilisateur ne remplis pas un de ces champs dans access, l'export des données n'écrase pas les formules.

[Muhad'hib]

Re,

En fait, il n'y a pas de solutions avec la fonction existante pour l'exporter les données que si il y a une valeur. Je vois 3 possibilités :

- Modifier la fonction : tu remplace la méthode .copyfromrecorset par 2 boucles (une pour parcourrir les champs de ton recordset et une pour parcourrir tes enregistrements). Tu ne modifie la valeur de ta cellule que si la valeur du recordset pour le champ et l'enregistrement donné est pas nul. (tu trouvera ici une ancienne version de la fonction avec les 2 boucles)

- Tu garde la fonction existante, et aprés l'export, tu parcours la plage de donnée pour remplacer les cellules vide par la bonne formule.

- Tu modifie ta requete pour qu'elle prenne en compte tes tests et formules. Ainsi l'export sera conforme à ton attente sans besoin de formaules excel.


A+

[Puffcash]

Merci pour tout,

je vais tester ça

bye

[Puffcash]

J'ai choisi la deuxieme solution. Je veux donc par exemple mettre ce code excel dans mon "Private Sub O_FMVA_Click()" dans access :

Code :

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

1
2
3
4
5
    Sheets("FMVA").Select
    Range("E11").Select
    ActiveCell.FormulaR1C1 = "=R1C5"
    Selection.AutoFill Destination:=Range("E11:E33"), Type:=xlFillDefault
    Range("E11:E33").Select

comment faire pour qu'access comprenne ce code ?

(j'ai testé des "With Excelsheet" , "With xlsheet", je bidouille mais ça marche pas).

Merci

[Muhad'hib]

Re,

Inspire toi de la fonction.
Tout dépend de ton code mais tu dois avoir qqchose du genre :

Code :

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

1
2
3
4
5
6
7
 
 
Dim Truc as object
...
Set Truc = fExportExcel(...
 
...

Pour faire ce que tu indique plus haut :

Code :

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

1
2
3
4
5
6
 
 With Truc.Sheets("FMVA")
    .Range("E11").FormulaR1C1 = "=R1C5"
    .Range("E11").AutoFill Destination:=Range("E11:E33"), Type:=xlFillDefault
 
end with

A+

PS : quand tu transpose dans Access évite les Bidule.select puis Selection.Machin . Préfère Bidule.Machin directement.

[Puffcash]

Salut,

J'ai écrit ça :

Code :

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

1
2
3
4
5
With Excl.Sheets("FMVA")
    .Range("E11").FormulaR1C1 = "=R1C5"
    .Range("E11").AutoFill Destination:=Range("E11:E33"), Type:=xlFillDefault
    
End with

Et j'ai une erreur : "sub ou fonction non défini" au niveau du Range("E11:E33")

pourquoi donc ?

a+

[Muhad'hib]

Salut,

Je suis allé trop vite ...

Code :

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

1
2
3
4
5
6
With Excl.Sheets("FMVA")
    .Range("E11").FormulaR1C1 = "=R1C5"
    .Range("E11").AutoFill Destination:= .Range("E11:E33"), Type:=xlFillDefault
    
End with

A+

[Puffcash]

re,

lol j'aurais pu trouver par moi-même...

merci,

[cafeine]

re,

lol j'aurais pu trouver par moi-même...

merci,

et mettre [résolu] pendant qu'on y est ...

[Muhad'hib]

Re,

lol j'aurais pu trouver par moi-même...

Heu, ... oui ... euh en fait j'avais fait exprés pour voir si tu suivais ...

(pas trés crédible ? normal )

Pense au flag si tout est OK

A+

[Puffcash]

re,

un petit detail,

je veux écrire ça :

Code :

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

.Range("E" & L1).AutoFill Destination:=.Range("E11:E33"), Type:=xlFillDefault

avec L1 as integer,

Mais connais pas la syntaxe pour Range("E11:E33"), avec 11 remplacé par L1

j'ai essayé : Range("E & L1:E33"), Range(""E" & L1:E33"),
mais sans succès,

Merci,

[milia]

Bonjour,

Mais connais pas la syntaxe pour Range("E11:E33"), avec 11 remplacé par L1

Pour trouver la syntaxe la touche F1 aide beaucoup.
C'est juste une idée peut être que c'est faux peut être qu'il y a plus simple aussi. De déclarer une variable qui concatène ton "E" et le L1 avec deux point au mieux! Comme ça!
toto = "E" & ":" & L1

Mais je dis peut être une grosse bêtisse.