A voir également:
- Lancer un modèle excel depuis access
- Liste déroulante excel - Guide
- Modèle organigramme word - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
22 réponses
Le Pingou
Messages postés
12073
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
15 mai 2024
1 432
Modifié par Le Pingou le 19/03/2011 à 10:18
Modifié par Le Pingou le 19/03/2011 à 10:18
Bonjour,
Merci pour l'information.
Concerne : au point actuel, j'ai une procédure qui le fait ;
quelle est donc cette procédure, une copie ?
A la limite est-il possible d'avoir une copie du modèle Excel?
Salutations.
Le Pingou
Merci pour l'information.
Concerne : au point actuel, j'ai une procédure qui le fait ;
quelle est donc cette procédure, une copie ?
A la limite est-il possible d'avoir une copie du modèle Excel?
Salutations.
Le Pingou
La procédure? C'est la vôtre
16 mars/22h.13
avec rectification des espaces à supprimer + nom de la feuille ("Saisie" au lieu de "feuil3")
donc:
Private Sub Commande7_Click()
Dim Xl As Excel.Application
Dim Classeur As Excel.Workbook
Dim Feuille As Excel.Worksheet
'Ouvre un nouveau classeur selon modèle
Set Xl = New Excel.Application
Xl.Visible = True
chemin = "C:\Users\utilisateur\Desktop\AdlatusMandats"
repclasseur = chemin & "\AttributionMandatAdlatus2.xltm"
Set Classeur = Xl.Workbooks.Add(repclasseur)
Classeur.Worksheets("Saisie").Activate
Set Feuille = Classeur.Worksheets("Saisie")
End Sub
__________________
Pour info:
- avant j'ai dans access une création de table à partir d'une macro
- puis un bouton "OK" qui envoie la procédure ci-dessus.
__________
A propos du fichier excel (joint), c'est la reprise d'un système de facturation qui existait auquel j'ai lié la base access;
- les données reprises viennent dans la 1ère feuille "Données Access" puis aboutissent aux cellules de la feuille"Saisie" (les 2 premières feuilles sont masquées)
Petite finesse ou fantaisie: j'utilise 1,2 ou 3 lignes suivant les cas; mais j'ai dû en mettre davantage sinon excel fait des références à dernier ou avant-dernier qui perturbent; en créant un table, puis en ajoutant des enregistrements artificiels, je n'ai plus ce problème.
________
Fichier (je dois le transformer en xlsm (parce ci-joint ne veut pas de xlmt):
http://www.cijoint.fr/cjlink.php?file=cj201103/cijuVbNhDU.xlsm
Copie écran macro access
http://www.cijoint.fr/cjlink.php?file=cj201103/cijCakZsqr.jpg
16 mars/22h.13
avec rectification des espaces à supprimer + nom de la feuille ("Saisie" au lieu de "feuil3")
donc:
Private Sub Commande7_Click()
Dim Xl As Excel.Application
Dim Classeur As Excel.Workbook
Dim Feuille As Excel.Worksheet
'Ouvre un nouveau classeur selon modèle
Set Xl = New Excel.Application
Xl.Visible = True
chemin = "C:\Users\utilisateur\Desktop\AdlatusMandats"
repclasseur = chemin & "\AttributionMandatAdlatus2.xltm"
Set Classeur = Xl.Workbooks.Add(repclasseur)
Classeur.Worksheets("Saisie").Activate
Set Feuille = Classeur.Worksheets("Saisie")
End Sub
__________________
Pour info:
- avant j'ai dans access une création de table à partir d'une macro
- puis un bouton "OK" qui envoie la procédure ci-dessus.
__________
A propos du fichier excel (joint), c'est la reprise d'un système de facturation qui existait auquel j'ai lié la base access;
- les données reprises viennent dans la 1ère feuille "Données Access" puis aboutissent aux cellules de la feuille"Saisie" (les 2 premières feuilles sont masquées)
Petite finesse ou fantaisie: j'utilise 1,2 ou 3 lignes suivant les cas; mais j'ai dû en mettre davantage sinon excel fait des références à dernier ou avant-dernier qui perturbent; en créant un table, puis en ajoutant des enregistrements artificiels, je n'ai plus ce problème.
________
Fichier (je dois le transformer en xlsm (parce ci-joint ne veut pas de xlmt):
http://www.cijoint.fr/cjlink.php?file=cj201103/cijuVbNhDU.xlsm
Copie écran macro access
http://www.cijoint.fr/cjlink.php?file=cj201103/cijCakZsqr.jpg