Version imprimable
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
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+
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.
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+
Merci pour tout,
je vais tester ça
bye
J'ai choisi la deuxieme solution. Je veux donc par exemple mettre ce code excel dans mon "Private Sub O_FMVA_Click()" dans access :
comment faire pour qu'access comprenne ce code ?Code:
2
3
4
5
(j'ai testé des "With Excelsheet" , "With xlsheet", je bidouille mais ça marche pas).
Merci
Re,
Inspire toi de la fonction.
Tout dépend de ton code mais tu dois avoir qqchose du genre :
Pour faire ce que tu indique plus haut :Code:
2
3
4
5
6
7
A+Code:
2
3
4
5
6
PS : quand tu transpose dans Access évite les Bidule.select puis Selection.Machin . Préfère Bidule.Machin directement.
Salut,
J'ai écrit ça :
Et j'ai une erreur : "sub ou fonction non défini" au niveau du Range("E11:E33")Code:
2
3
4
5With Excl.Sheets("FMVA") .Range("E11").FormulaR1C1 = "=R1C5" .Range("E11").AutoFill Destination:=Range("E11:E33"), Type:=xlFillDefault End with
pourquoi donc ?
a+
Salut,
Je suis allé trop vite ...
A+Code:
2
3
4
5
6With Excl.Sheets("FMVA") .Range("E11").FormulaR1C1 = "=R1C5" .Range("E11").AutoFill Destination:= .Range("E11:E33"), Type:=xlFillDefault End with
re,
lol j'aurais pu trouver par moi-même... :oops:
merci,
et mettre [résolu] pendant qu'on y est ...Citation:
Envoyé par Puffcash
Re,
Citation:
Envoyé par Puffcash
Heu, ... oui ... euh en fait j'avais fait exprés pour voir si tu suivais ...
(pas trés crédible ? normal ;) )
Pense au flag :resolu: si tout est OK
A+
re,
un petit detail,
je veux écrire ça :
avec L1 as integer,Code:.Range("E" & L1).AutoFill Destination:=.Range("E11:E33"), Type:=xlFillDefault
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,
Bonjour,
Pour trouver la syntaxe la touche F1 aide beaucoup.Citation:
Envoyé par Puffcash
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.