Bonjour,
J'ai une base access, un classeur excel qui contient plusieurs feuilles
(1par mois nommée par le nom du mois et une feuille tampon)
En fait je voulais envoyer des données d'access vers la feuille du mois dans
le classeur excel, mais je n'arrive pas à envoyer ces données à la suite de
la feuille (sans supprimer les enregistrements précédents) donc on m'a
conseillé d'envoyer ces données dans une feuille "tampon" et de faire une
macro excel pour coller ces enregistrements à la suite
mais je ne sais pas comment faire
En fait, je voudrais faire un bouton qui execute une macro qui mette la
ligne de la feuille "tampon" dans la feuille du mois considéré (sans avoir
rentrer le nom de la feuille) à la suite des enregistrements
les données de la feuille "tampon" sont :
champ1 ; champ2; etc
date et heure; nom ; etc
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
pmdgi14
Bonjour, J'ai une base access, un classeur excel qui contient plusieurs feuilles (1par mois nommée par le nom du mois et une feuille tampon) En fait je voulais envoyer des données d'access vers la feuille du mois dans le classeur excel, mais je n'arrive pas à envoyer ces données à la suite de la feuille (sans supprimer les enregistrements précédents) donc on m'a conseillé d'envoyer ces données dans une feuille "tampon" et de faire une macro excel pour coller ces enregistrements à la suite mais je ne sais pas comment faire En fait, je voudrais faire un bouton qui execute une macro qui mette la ligne de la feuille "tampon" dans la feuille du mois considéré (sans avoir rentrer le nom de la feuille) à la suite des enregistrements les données de la feuille "tampon" sont : champ1 ; champ2; etc date et heure; nom ; etc
ouala, si quelqu'un peut m'aider Merci
je supose que tes donnée sont dans les premières colonnes de la feuille
tampon, la date colonne A.
si tu fais une boucle tant que A1 n'est pas vide
Range("A1").numberformat ="mmmm" mois = Range("A1").text Range("A1").numberformat ="d/m/y h:m;@" Rows("1:1").Select Selection.cut Sheets(mois).select là tu fais une boucle pour chercher la première ligne vide ActiveSheet.paste Sheets("tampon").select
Bonjour,
J'ai une base access, un classeur excel qui contient plusieurs feuilles
(1par mois nommée par le nom du mois et une feuille tampon)
En fait je voulais envoyer des données d'access vers la feuille du mois dans
le classeur excel, mais je n'arrive pas à envoyer ces données à la suite de
la feuille (sans supprimer les enregistrements précédents) donc on m'a
conseillé d'envoyer ces données dans une feuille "tampon" et de faire une
macro excel pour coller ces enregistrements à la suite
mais je ne sais pas comment faire
En fait, je voudrais faire un bouton qui execute une macro qui mette la
ligne de la feuille "tampon" dans la feuille du mois considéré (sans avoir
rentrer le nom de la feuille) à la suite des enregistrements
les données de la feuille "tampon" sont :
champ1 ; champ2; etc
date et heure; nom ; etc
ouala, si quelqu'un peut m'aider
Merci
je supose que tes donnée sont dans les premières colonnes de la feuille
tampon, la date colonne A.
si tu fais une boucle tant que A1 n'est pas vide
Range("A1").numberformat ="mmmm"
mois = Range("A1").text
Range("A1").numberformat ="d/m/y h:m;@"
Rows("1:1").Select
Selection.cut
Sheets(mois).select
là tu fais une boucle pour chercher la première ligne vide
ActiveSheet.paste
Sheets("tampon").select
Bonjour, J'ai une base access, un classeur excel qui contient plusieurs feuilles (1par mois nommée par le nom du mois et une feuille tampon) En fait je voulais envoyer des données d'access vers la feuille du mois dans le classeur excel, mais je n'arrive pas à envoyer ces données à la suite de la feuille (sans supprimer les enregistrements précédents) donc on m'a conseillé d'envoyer ces données dans une feuille "tampon" et de faire une macro excel pour coller ces enregistrements à la suite mais je ne sais pas comment faire En fait, je voudrais faire un bouton qui execute une macro qui mette la ligne de la feuille "tampon" dans la feuille du mois considéré (sans avoir rentrer le nom de la feuille) à la suite des enregistrements les données de la feuille "tampon" sont : champ1 ; champ2; etc date et heure; nom ; etc
ouala, si quelqu'un peut m'aider Merci
je supose que tes donnée sont dans les premières colonnes de la feuille
tampon, la date colonne A.
si tu fais une boucle tant que A1 n'est pas vide
Range("A1").numberformat ="mmmm" mois = Range("A1").text Range("A1").numberformat ="d/m/y h:m;@" Rows("1:1").Select Selection.cut Sheets(mois).select là tu fais une boucle pour chercher la première ligne vide ActiveSheet.paste Sheets("tampon").select
pmdgi14
Bonjour, J'ai une base access, un classeur excel qui contient plusieurs feuilles (1par mois nommée par le nom du mois et une feuille tampon) En fait je voulais envoyer des données d'access vers la feuille du mois dans le classeur excel, mais je n'arrive pas à envoyer ces données à la suite de la feuille (sans supprimer les enregistrements précédents) donc on m'a conseillé d'envoyer ces données dans une feuille "tampon" et de faire une macro excel pour coller ces enregistrements à la suite mais je ne sais pas comment faire En fait, je voudrais faire un bouton qui execute une macro qui mette la ligne de la feuille "tampon" dans la feuille du mois considéré (sans avoir rentrer le nom de la feuille) à la suite des enregistrements les données de la feuille "tampon" sont : champ1 ; champ2; etc date et heure; nom ; etc
ouala, si quelqu'un peut m'aider Merci
Voila, quelque chose qui devrait te convenir
Public Sub transfert() Do If Range("A1").Text = "" Then Exit Do Range("A1").NumberFormat = "mmmm" mois = Range("A1").Text Range("A1").NumberFormat = "d/m/y h:m;@" champ1 = Range("A1").Value champ2 = Range("B1").Value champ3 = Range("C1").Value champ4 = Range("D1").Value Rows("1:1").Delete Sheets(mois).Select Range("A1").Select Do If ActiveCell.Text = "" Then Exit Do ActiveCell.Offset(1, 0).Activate Loop ActiveCell.Value = champ1 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ2 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ3 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ4 Sheets("tampon").Select Loop End Sub
Bonjour,
J'ai une base access, un classeur excel qui contient plusieurs feuilles
(1par mois nommée par le nom du mois et une feuille tampon)
En fait je voulais envoyer des données d'access vers la feuille du mois dans
le classeur excel, mais je n'arrive pas à envoyer ces données à la suite de
la feuille (sans supprimer les enregistrements précédents) donc on m'a
conseillé d'envoyer ces données dans une feuille "tampon" et de faire une
macro excel pour coller ces enregistrements à la suite
mais je ne sais pas comment faire
En fait, je voudrais faire un bouton qui execute une macro qui mette la
ligne de la feuille "tampon" dans la feuille du mois considéré (sans avoir
rentrer le nom de la feuille) à la suite des enregistrements
les données de la feuille "tampon" sont :
champ1 ; champ2; etc
date et heure; nom ; etc
ouala, si quelqu'un peut m'aider
Merci
Voila, quelque chose qui devrait te convenir
Public Sub transfert()
Do
If Range("A1").Text = "" Then Exit Do
Range("A1").NumberFormat = "mmmm"
mois = Range("A1").Text
Range("A1").NumberFormat = "d/m/y h:m;@"
champ1 = Range("A1").Value
champ2 = Range("B1").Value
champ3 = Range("C1").Value
champ4 = Range("D1").Value
Rows("1:1").Delete
Sheets(mois).Select
Range("A1").Select
Do
If ActiveCell.Text = "" Then Exit Do
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = champ1
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = champ2
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = champ3
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = champ4
Sheets("tampon").Select
Loop
End Sub
Bonjour, J'ai une base access, un classeur excel qui contient plusieurs feuilles (1par mois nommée par le nom du mois et une feuille tampon) En fait je voulais envoyer des données d'access vers la feuille du mois dans le classeur excel, mais je n'arrive pas à envoyer ces données à la suite de la feuille (sans supprimer les enregistrements précédents) donc on m'a conseillé d'envoyer ces données dans une feuille "tampon" et de faire une macro excel pour coller ces enregistrements à la suite mais je ne sais pas comment faire En fait, je voudrais faire un bouton qui execute une macro qui mette la ligne de la feuille "tampon" dans la feuille du mois considéré (sans avoir rentrer le nom de la feuille) à la suite des enregistrements les données de la feuille "tampon" sont : champ1 ; champ2; etc date et heure; nom ; etc
ouala, si quelqu'un peut m'aider Merci
Voila, quelque chose qui devrait te convenir
Public Sub transfert() Do If Range("A1").Text = "" Then Exit Do Range("A1").NumberFormat = "mmmm" mois = Range("A1").Text Range("A1").NumberFormat = "d/m/y h:m;@" champ1 = Range("A1").Value champ2 = Range("B1").Value champ3 = Range("C1").Value champ4 = Range("D1").Value Rows("1:1").Delete Sheets(mois).Select Range("A1").Select Do If ActiveCell.Text = "" Then Exit Do ActiveCell.Offset(1, 0).Activate Loop ActiveCell.Value = champ1 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ2 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ3 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ4 Sheets("tampon").Select Loop End Sub
chris
Merci je vais essayer de suite chris "pmdgi14" a écrit dans le message de news: %
Bonjour, J'ai une base access, un classeur excel qui contient plusieurs feuilles (1par mois nommée par le nom du mois et une feuille tampon) En fait je voulais envoyer des données d'access vers la feuille du mois dans le classeur excel, mais je n'arrive pas à envoyer ces données à la suite de la feuille (sans supprimer les enregistrements précédents) donc on m'a conseillé d'envoyer ces données dans une feuille "tampon" et de faire une macro excel pour coller ces enregistrements à la suite mais je ne sais pas comment faire En fait, je voudrais faire un bouton qui execute une macro qui mette la ligne de la feuille "tampon" dans la feuille du mois considéré (sans avoir rentrer le nom de la feuille) à la suite des enregistrements les données de la feuille "tampon" sont : champ1 ; champ2; etc date et heure; nom ; etc
ouala, si quelqu'un peut m'aider Merci Voila, quelque chose qui devrait te convenir
Public Sub transfert() Do If Range("A1").Text = "" Then Exit Do Range("A1").NumberFormat = "mmmm" mois = Range("A1").Text Range("A1").NumberFormat = "d/m/y h:m;@" champ1 = Range("A1").Value champ2 = Range("B1").Value champ3 = Range("C1").Value champ4 = Range("D1").Value Rows("1:1").Delete Sheets(mois).Select Range("A1").Select Do If ActiveCell.Text = "" Then Exit Do ActiveCell.Offset(1, 0).Activate Loop ActiveCell.Value = champ1 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ2 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ3 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ4 Sheets("tampon").Select Loop End Sub
Merci
je vais essayer de suite
chris
"pmdgi14" <mdgi14@wanadoo.fr> a écrit dans le message de news:
%23APbNHn3GHA.1568@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une base access, un classeur excel qui contient plusieurs feuilles
(1par mois nommée par le nom du mois et une feuille tampon)
En fait je voulais envoyer des données d'access vers la feuille du mois
dans le classeur excel, mais je n'arrive pas à envoyer ces données à la
suite de la feuille (sans supprimer les enregistrements précédents) donc
on m'a conseillé d'envoyer ces données dans une feuille "tampon" et de
faire une macro excel pour coller ces enregistrements à la suite
mais je ne sais pas comment faire
En fait, je voudrais faire un bouton qui execute une macro qui mette la
ligne de la feuille "tampon" dans la feuille du mois considéré (sans
avoir rentrer le nom de la feuille) à la suite des enregistrements
les données de la feuille "tampon" sont :
champ1 ; champ2; etc
date et heure; nom ; etc
ouala, si quelqu'un peut m'aider
Merci
Voila, quelque chose qui devrait te convenir
Public Sub transfert()
Do
If Range("A1").Text = "" Then Exit Do
Range("A1").NumberFormat = "mmmm"
mois = Range("A1").Text
Range("A1").NumberFormat = "d/m/y h:m;@"
champ1 = Range("A1").Value
champ2 = Range("B1").Value
champ3 = Range("C1").Value
champ4 = Range("D1").Value
Rows("1:1").Delete
Sheets(mois).Select
Range("A1").Select
Do
If ActiveCell.Text = "" Then Exit Do
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = champ1
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = champ2
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = champ3
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = champ4
Sheets("tampon").Select
Loop
End Sub
Merci je vais essayer de suite chris "pmdgi14" a écrit dans le message de news: %
Bonjour, J'ai une base access, un classeur excel qui contient plusieurs feuilles (1par mois nommée par le nom du mois et une feuille tampon) En fait je voulais envoyer des données d'access vers la feuille du mois dans le classeur excel, mais je n'arrive pas à envoyer ces données à la suite de la feuille (sans supprimer les enregistrements précédents) donc on m'a conseillé d'envoyer ces données dans une feuille "tampon" et de faire une macro excel pour coller ces enregistrements à la suite mais je ne sais pas comment faire En fait, je voudrais faire un bouton qui execute une macro qui mette la ligne de la feuille "tampon" dans la feuille du mois considéré (sans avoir rentrer le nom de la feuille) à la suite des enregistrements les données de la feuille "tampon" sont : champ1 ; champ2; etc date et heure; nom ; etc
ouala, si quelqu'un peut m'aider Merci Voila, quelque chose qui devrait te convenir
Public Sub transfert() Do If Range("A1").Text = "" Then Exit Do Range("A1").NumberFormat = "mmmm" mois = Range("A1").Text Range("A1").NumberFormat = "d/m/y h:m;@" champ1 = Range("A1").Value champ2 = Range("B1").Value champ3 = Range("C1").Value champ4 = Range("D1").Value Rows("1:1").Delete Sheets(mois).Select Range("A1").Select Do If ActiveCell.Text = "" Then Exit Do ActiveCell.Offset(1, 0).Activate Loop ActiveCell.Value = champ1 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ2 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ3 ActiveCell.Offset(0, 1).Activate ActiveCell.Value = champ4 Sheets("tampon").Select Loop End Sub
