Transfert d'une donnée Access vers une cellule précise en Excel
Résolu
karitchy
Messages postés
13
Date d'inscription
lundi 4 juillet 2005
Statut
Membre
Dernière intervention
12 juillet 2005
-
4 juil. 2005 à 21:02
karitchy Messages postés 13 Date d'inscription lundi 4 juillet 2005 Statut Membre Dernière intervention 12 juillet 2005 - 5 juil. 2005 à 15:23
karitchy Messages postés 13 Date d'inscription lundi 4 juillet 2005 Statut Membre Dernière intervention 12 juillet 2005 - 5 juil. 2005 à 15:23
A voir également:
- Vba se déplacer d'une cellule vers la droite
- Vba récupérer valeur cellule d'une autre feuille - Forum Visual Basic
- Selectionner la derniere cellule non vide d'une colonne excel vba - Forum Visual Basic 6
- Derniere cellule remplie d'une colonne - Forum Visual Basic 6
- Vba dernière cellule non vide (Ignorer les formules résultat "") - Forum VBA Office (Excel, Word ...)
- Vba format cellule - Forum Visual Basic
4 réponses
keiko11245
Messages postés
48
Date d'inscription
lundi 1 septembre 2003
Statut
Membre
Dernière intervention
5 avril 2006
5 juil. 2005 à 15:12
5 juil. 2005 à 15:12
Dim ClasseurXLS As Object
Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.Workbooks.Open NomFichier
'tu sélectionnes la feuille (une chaine de caractère) de ton classeur où tu veux écrire
ClasseurXLS.Sheets(Nom_Feuille).Select
'et tu ecris ce que tu veux dans la bonne case de la feuille
ClasseurXLS.cells(num_ligne, num_colonne) = ta_donnee
'pour sauvegarder les modifications du classeur
ClasseurXLS.Activeworkbook.Save
'pour fermer le classeur
ClasseurXLS.Application.Quit
et normalement ça doit marcher, j'ai testé avec Access 2000 et ça roule
Ah l'informatique c'est bien quant même quand ça marche
Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.Workbooks.Open NomFichier
'tu sélectionnes la feuille (une chaine de caractère) de ton classeur où tu veux écrire
ClasseurXLS.Sheets(Nom_Feuille).Select
'et tu ecris ce que tu veux dans la bonne case de la feuille
ClasseurXLS.cells(num_ligne, num_colonne) = ta_donnee
'pour sauvegarder les modifications du classeur
ClasseurXLS.Activeworkbook.Save
'pour fermer le classeur
ClasseurXLS.Application.Quit
et normalement ça doit marcher, j'ai testé avec Access 2000 et ça roule
Ah l'informatique c'est bien quant même quand ça marche
keiko11245
Messages postés
48
Date d'inscription
lundi 1 septembre 2003
Statut
Membre
Dernière intervention
5 avril 2006
5 juil. 2005 à 14:44
5 juil. 2005 à 14:44
Alors moi je fais ça avec du code VBA :
'tu ouvre ton classeur excel
Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.workbooks.Open Nomfichier
'tu sélectionnes la feuille de ton classeur où tu veux écrire
ClasseurXLS.Sheets(numero_feuille).Select
'et tu ecris ce que tu veux dans la bonne case de la feuille
ClasseurXLS.cells(num_ligne, num_colonne) = ta_donnee
Attention les numéros deligne et de colonne commence à 1
'pour fermer le classeur
ClasseurXLS.Workbooks.Close
Voilà j'espère que ça t'aidera
Ah l'informatique c'est bien quant même quand ça marche
'tu ouvre ton classeur excel
Set ClasseurXLS = CreateObject("Excel.application")
ClasseurXLS.workbooks.Open Nomfichier
'tu sélectionnes la feuille de ton classeur où tu veux écrire
ClasseurXLS.Sheets(numero_feuille).Select
'et tu ecris ce que tu veux dans la bonne case de la feuille
ClasseurXLS.cells(num_ligne, num_colonne) = ta_donnee
Attention les numéros deligne et de colonne commence à 1
'pour fermer le classeur
ClasseurXLS.Workbooks.Close
Voilà j'espère que ça t'aidera
Ah l'informatique c'est bien quant même quand ça marche
karitchy
Messages postés
13
Date d'inscription
lundi 4 juillet 2005
Statut
Membre
Dernière intervention
12 juillet 2005
2
5 juil. 2005 à 14:58
5 juil. 2005 à 14:58
Merci pour ton aide, mais si possible j'aurais encore besoin de toi ou quelqu'un d'autre qui connais la réponse.
J'ai écrit exactement ton code, dans une macro en VBA Access. Lorsque je l'enclanche, une erreur arrive et il est écrit: "Erreur de compilation: Objet requis" Alors j'ai essayer de déclarer ClasseurXLS : Dim ClasseurXLS as String. Mais ca ne fonctionne toujours pas... peut etre tout simplement que ce n'est pas la bonne déclaration, mais bref ca ne fonctionne toujours pas...
Merci beaucoup de ton aide keiko11245!
Je suis tout à fait d'accord avec toi! C'est merveilleux l'informatique quand ca marche et avec ton aide je vais y arriver ;)
J'ai écrit exactement ton code, dans une macro en VBA Access. Lorsque je l'enclanche, une erreur arrive et il est écrit: "Erreur de compilation: Objet requis" Alors j'ai essayer de déclarer ClasseurXLS : Dim ClasseurXLS as String. Mais ca ne fonctionne toujours pas... peut etre tout simplement que ce n'est pas la bonne déclaration, mais bref ca ne fonctionne toujours pas...
Merci beaucoup de ton aide keiko11245!
Je suis tout à fait d'accord avec toi! C'est merveilleux l'informatique quand ca marche et avec ton aide je vais y arriver ;)
karitchy
Messages postés
13
Date d'inscription
lundi 4 juillet 2005
Statut
Membre
Dernière intervention
12 juillet 2005
2
5 juil. 2005 à 15:23
5 juil. 2005 à 15:23
WOW!!! Ca marche!!! un gros merci à toi!!! Tu m'a été d'une très grande aide...
Au plaisir!
Au plaisir!