bonjour,
je navigue pas mal sur le foruim, mais je n'ose jamais y poser une question
de peur de mal me faire comprendre! cette fois, je me lance, donc n'hésitez
pas à me dire si vous ne comprenez rien! :)
Voilà. j'ain une BDD avec une table de saisie de devis (données à renseigner
pour ensuite les remettre dans le devis). Le devis lui-même est sur
excel.Afin d'éviter la double saisie( sur le form d'access et le devis excel)
j'aimerais faire une fusion automatique via une macro qui affiche les champs
de mon formulaire dans une feuille de mon classeur excel. mon probléme est
que je voudrais juste l'enregistrement en cours!
aie aie aie j'espère être sufisament claire afin que qqu'un puisse me venir
en aide! merci d'avance.
ps : j'ai essayé la macro transfertfeuilleExcel mais cela ne fonctionne pas!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
david
salut,
en fait tu te prend la tête un peu (je trouve), mais bon. Un etat ou un formulaire sous access aurrait été plus facile et plus pratique.
Sinon, il faut faire du VBA, lie ce code à l'évenemement clic d'un bouton (par exemple : voir sous excel : nommé ici cmdViewOnXl ) : private sub cmdViewOnXl_Click() Dim xl as Object, W as Object, F as Object
set Xl = CreateObject("Excel.Application") 'Lancer Excel set w = xl.OpenWorkBook("C:...MonClasseur.Xls") 'Ouvrir le classeur set f = w.feuil1 'Prendre la feuille n°1 'Il faut maintenant modifier les cellules de la feuill1 pour 'qu'elles correspondent aux données de ta base f.cells(1,1) = me!DtDevis 'Fait cela autant de fois que nécessaire avec : 'f.cells(idxLigne, idxColonne) : cellule excel à modifier 'me!DtDevis : champ à copier dans la cellule
xl.visible = true 'rendre Excel visible
set f=nothing set w=nothing set xl=nothing end Sub
Et voila, avec ce code tu vas ouvrir Xl, charger un classeur (modifie le nom du fichier pour qu'il corresponde à tes besoins) et modifier les cellules intéressantes...
A+, david
salut,
en fait tu te prend la tête un peu (je trouve), mais bon. Un etat ou
un formulaire sous access aurrait été plus facile et plus pratique.
Sinon, il faut faire du VBA, lie ce code à l'évenemement clic d'un
bouton (par exemple : voir sous excel : nommé ici cmdViewOnXl ) :
private sub cmdViewOnXl_Click()
Dim xl as Object, W as Object, F as Object
set Xl = CreateObject("Excel.Application")
'Lancer Excel
set w = xl.OpenWorkBook("C:...MonClasseur.Xls") 'Ouvrir le
classeur
set f = w.feuil1
'Prendre la feuille n°1
'Il faut maintenant modifier les cellules de la feuill1 pour
'qu'elles correspondent aux données de ta base
f.cells(1,1) = me!DtDevis
'Fait cela autant de fois que nécessaire avec :
'f.cells(idxLigne, idxColonne) : cellule excel à modifier
'me!DtDevis : champ à copier dans la cellule
xl.visible = true 'rendre Excel visible
set f=nothing
set w=nothing
set xl=nothing
end Sub
Et voila, avec ce code tu vas ouvrir Xl, charger un classeur (modifie
le nom du fichier pour qu'il corresponde à tes besoins) et modifier
les cellules intéressantes...
en fait tu te prend la tête un peu (je trouve), mais bon. Un etat ou un formulaire sous access aurrait été plus facile et plus pratique.
Sinon, il faut faire du VBA, lie ce code à l'évenemement clic d'un bouton (par exemple : voir sous excel : nommé ici cmdViewOnXl ) : private sub cmdViewOnXl_Click() Dim xl as Object, W as Object, F as Object
set Xl = CreateObject("Excel.Application") 'Lancer Excel set w = xl.OpenWorkBook("C:...MonClasseur.Xls") 'Ouvrir le classeur set f = w.feuil1 'Prendre la feuille n°1 'Il faut maintenant modifier les cellules de la feuill1 pour 'qu'elles correspondent aux données de ta base f.cells(1,1) = me!DtDevis 'Fait cela autant de fois que nécessaire avec : 'f.cells(idxLigne, idxColonne) : cellule excel à modifier 'me!DtDevis : champ à copier dans la cellule
xl.visible = true 'rendre Excel visible
set f=nothing set w=nothing set xl=nothing end Sub
Et voila, avec ce code tu vas ouvrir Xl, charger un classeur (modifie le nom du fichier pour qu'il corresponde à tes besoins) et modifier les cellules intéressantes...
