Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

aide sur access2000 vers excel

8 réponses
Avatar
lou
bonjour
j'ai reçu de la société pour qui je travaille
un fichier modele en EXCEL (FicheDeTravail)
je voudrais exporter une table ACCESS (avec 10 champs)
vers ce fichier
le probleme est que je dois commencer a inserer les données a partir de la
cellule D:5 de ce fichier EXCEL

merci de votre aide

8 réponses

Avatar
Raymond [mvp]
Bonjour.

Tu ne pourras pas exporter vers le d:5 car l'indication de plage en export
plante l'export:
aide Access:
Étendue Variant facultatif. Expression chaîne qui correspond à une plage
valide de cellules ou au nom d'une plage de la feuille de calcul. Cet
argument n'est valable que pour une importation. Laissez cet argument vierge
pour importer la feuille de calcul entière. Lorsque vous effectuez une
exportation vers une feuille de calcul, vous devez laisser cet argument
vierge. Si vous tapez une plage, l'exportation échoue.

sinon tu peux procéder ainsi:
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "requête1",
"classeur1.xls", True

pour contourner le problème, il faut que tu fasses un requête avec 3
colonnes vides en premier , mais qui vont vider les 3 colonnes excel. Si tu
espérais conserver le résultat des colonnes A B et C , c'est perdu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
420ce649$0$332$
bonjour
j'ai reçu de la société pour qui je travaille
un fichier modele en EXCEL (FicheDeTravail)
je voudrais exporter une table ACCESS (avec 10 champs)
vers ce fichier
le probleme est que je dois commencer a inserer les données a partir de la
cellule D:5 de ce fichier EXCEL

merci de votre aide





Avatar
lou
aie c'est la mort
a partir de ton idee j'ai pensé et si avec ma table j'exportais vers un
fichier excel disons FICHIER1

et depuis access est il possible de copier le contenu de ce fichier1 vers
mon fichier modele excel

et bien sur toujours a partir de la cellule D5 pour le premier
enregistrement
D6 pour le deuxieme etc etc

possible???????

MERCI
"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

Tu ne pourras pas exporter vers le d:5 car l'indication de plage en export
plante l'export:
aide Access:
Étendue Variant facultatif. Expression chaîne qui correspond à une
plage

valide de cellules ou au nom d'une plage de la feuille de calcul. Cet
argument n'est valable que pour une importation. Laissez cet argument
vierge

pour importer la feuille de calcul entière. Lorsque vous effectuez une
exportation vers une feuille de calcul, vous devez laisser cet argument
vierge. Si vous tapez une plage, l'exportation échoue.

sinon tu peux procéder ainsi:
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "requête1",
"classeur1.xls", True

pour contourner le problème, il faut que tu fasses un requête avec 3
colonnes vides en premier , mais qui vont vider les 3 colonnes excel. Si
tu

espérais conserver le résultat des colonnes A B et C , c'est perdu.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
420ce649$0$332$
bonjour
j'ai reçu de la société pour qui je travaille
un fichier modele en EXCEL (FicheDeTravail)
je voudrais exporter une table ACCESS (avec 10 champs)
vers ce fichier
le probleme est que je dois commencer a inserer les données a partir de
la


cellule D:5 de ce fichier EXCEL

merci de votre aide










Avatar
Raymond [mvp]
Tu peux exporter toutes les requêtes que tu veux dans un classeur et ensuite
tu copies les feuilles que tu veux dans la plage que tu veux en une seule
fois, soit par excel soit directement par access.
prends des idées sur : http://officesystem.access.free.fr/vba/excel.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
420cf4ac$0$23738$
aie c'est la mort
a partir de ton idee j'ai pensé et si avec ma table j'exportais vers un
fichier excel disons FICHIER1

et depuis access est il possible de copier le contenu de ce fichier1 vers
mon fichier modele excel

et bien sur toujours a partir de la cellule D5 pour le premier
enregistrement
D6 pour le deuxieme etc etc

possible???????

MERCI


Avatar
lou
MERCI RAYMOND
j'ai trouvé sur ton site beaucoup d informations et particulierement
comment supprimer des lignes
sur une feuille excel
mais pas comment en ajouter
as-tu la solution????

autre petite question comment changer la couleur de fond d'une cellule et la
couleur de la police de cette meme cellule????

un grand merci


"Raymond [mvp]" a écrit dans le message de
news: #
Tu peux exporter toutes les requêtes que tu veux dans un classeur et
ensuite

tu copies les feuilles que tu veux dans la plage que tu veux en une seule
fois, soit par excel soit directement par access.
prends des idées sur : http://officesystem.access.free.fr/vba/excel.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
420cf4ac$0$23738$
aie c'est la mort
a partir de ton idee j'ai pensé et si avec ma table j'exportais vers un
fichier excel disons FICHIER1

et depuis access est il possible de copier le contenu de ce fichier1
vers


mon fichier modele excel

et bien sur toujours a partir de la cellule D5 pour le premier
enregistrement
D6 pour le deuxieme etc etc

possible???????

MERCI







Avatar
Raymond [mvp]
pour programmer excel à partir d'access, il suffit d'envoyer les macros
excel exécutées pour faire le même travail sur excel.

mais pas comment en ajouter
as-tu la solution????
http://officesystem.access.free.fr/vba/inserer_plages.htm


autre petite question comment changer la couleur de fond d'une cellule et
la
couleur de la police de cette meme cellule????
Range("C7").Select

Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With

à adapter à ta procédure pour rajouter des points si tu utilises With / End
With à partir de ton application.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
420d0b7c$0$20907$
MERCI RAYMOND
j'ai trouvé sur ton site beaucoup d informations et particulierement
comment supprimer des lignes
sur une feuille excel
mais pas comment en ajouter
as-tu la solution????

autre petite question comment changer la couleur de fond d'une cellule et
la
couleur de la police de cette meme cellule????

un grand merci



Avatar
lou
j'ai fait ceci pour changer le fond et la couleur de la police
mais ça deconne
je suis vraiment null

ou est l'erreur
?????


Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("FICHE.XLS")
Set XL_Feuille = XL_Classeur.Sheets("TS")
With XL_Feuille


Range("A1").select
Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid

End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing


"Raymond [mvp]" a écrit dans le message de
news:
pour programmer excel à partir d'access, il suffit d'envoyer les macros
excel exécutées pour faire le même travail sur excel.

mais pas comment en ajouter
as-tu la solution????
http://officesystem.access.free.fr/vba/inserer_plages.htm


autre petite question comment changer la couleur de fond d'une cellule
et


la
couleur de la police de cette meme cellule????
Range("C7").Select

Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With

à adapter à ta procédure pour rajouter des points si tu utilises With /
End

With à partir de ton application.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
420d0b7c$0$20907$
MERCI RAYMOND
j'ai trouvé sur ton site beaucoup d informations et particulierement
comment supprimer des lignes
sur une feuille excel
mais pas comment en ajouter
as-tu la solution????

autre petite question comment changer la couleur de fond d'une cellule
et


la
couleur de la police de cette meme cellule????

un grand merci







Avatar
lou
bug

Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("FICHE.XLS")
Set XL_Feuille = XL_Classeur.Sheets("TS")
With XL_Feuille

Range("A1").select
Selection.Font.ColorIndex = 3
"""""""""""""""""""""""""""""""""""""""""""""
With Selection.Interior bug ici
"""""""""""""""""""""""""""""""""""

.ColorIndex = 10
.Pattern = xlSolid


End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing

"Raymond [mvp]" a écrit dans le message de
news:
pour programmer excel à partir d'access, il suffit d'envoyer les macros
excel exécutées pour faire le même travail sur excel.

mais pas comment en ajouter
as-tu la solution????
http://officesystem.access.free.fr/vba/inserer_plages.htm


autre petite question comment changer la couleur de fond d'une cellule
et


la
couleur de la police de cette meme cellule????
Range("C7").Select

Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With

à adapter à ta procédure pour rajouter des points si tu utilises With /
End

With à partir de ton application.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
420d0b7c$0$20907$
MERCI RAYMOND
j'ai trouvé sur ton site beaucoup d informations et particulierement
comment supprimer des lignes
sur une feuille excel
mais pas comment en ajouter
as-tu la solution????

autre petite question comment changer la couleur de fond d'une cellule
et


la
couleur de la police de cette meme cellule????

un grand merci







Avatar
Raymond [mvp]
c'est pas simple d'adapter les objets excel dans access et de les mettre au
bon niveau.

essaie ceci: rouge sur vert.
Dim XL_App As New Excel.Application
XL_App.Visible = True
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("Classeur1.XLS")
Set XL_Feuille = XL_Classeur.Sheets("MonOnglet")
.Range("A7").Select
.Selection.Font.ColorIndex = 3
.Range("A7").Select
.Selection.Interior.ColorIndex = 4
.Selection.Interior.Pattern = xlSolid
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing
End With



--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
420d19ee$0$2445$
bug

Dim XL_App As New Excel.Application
Dim XL_Classeur As Object
Dim XL_Feuille As Object
With XL_App
Set XL_Classeur = .Workbooks.Open("FICHE.XLS")
Set XL_Feuille = XL_Classeur.Sheets("TS")
With XL_Feuille

Range("A1").select
Selection.Font.ColorIndex = 3
"""""""""""""""""""""""""""""""""""""""""""""
With Selection.Interior bug ici
"""""""""""""""""""""""""""""""""""

.ColorIndex = 10
.Pattern = xlSolid


End With
.ActiveWorkbook.Save
.ActiveWorkbook.Close
.Quit
End With
Set XL_App = Nothing
Set XL_Classeur = Nothing
Set XL_Feuille = Nothing

"Raymond [mvp]" a écrit dans le message
de
news:
pour programmer excel à partir d'access, il suffit d'envoyer les macros
excel exécutées pour faire le même travail sur excel.

mais pas comment en ajouter
as-tu la solution????
http://officesystem.access.free.fr/vba/inserer_plages.htm


autre petite question comment changer la couleur de fond d'une cellule
et


la
couleur de la police de cette meme cellule????
Range("C7").Select

Selection.Font.ColorIndex = 3
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With

à adapter à ta procédure pour rajouter des points si tu utilises With /
End

With à partir de ton application.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
420d0b7c$0$20907$
MERCI RAYMOND
j'ai trouvé sur ton site beaucoup d informations et particulierement
comment supprimer des lignes
sur une feuille excel
mais pas comment en ajouter
as-tu la solution????

autre petite question comment changer la couleur de fond d'une cellule
et


la
couleur de la police de cette meme cellule????

un grand merci