Votre question

[VBA] Modifier macro Access

Tags :
  • Microsoft Excel
  • Programmation
Dernière réponse : dans Programmation
28 Décembre 2010 14:46:40

Bonjour,

J'ai une macro Access, Transfere vers feuille de calcul qui va vers un fichier Excel. J'aimerai savoir si c'est possible de modifier le nom de la feuille de calcul par macro sous Excel.

Merci d'avance.

Autres pages sur : vba modifier macro access

3 Janvier 2011 08:53:09

Je relance ma question, car j'en ai absolument besoin.

Merci d'avance.
m
0
l
4 Janvier 2011 21:51:42

:hello:  ,

Peut tu ré-expliqué/poser ta question différemment que l'on puissent cerné ton problème , et ceux que tu a envie de faire ? et que tu es enfin réponse a ton sujet ?

:??:  :??:  :??: 

Désolé mais la je vois pas du tout ce que tu veut faire !!!

:pt1cable: 

Citation :
A l'aide le Jacquouille est revenu ! A l'aiiiide !
:D 
m
0
l
Contenus similaires
5 Janvier 2011 09:36:28

Bonjour, donc j'ai une macro Access qui me créer un transfert d'une table vers un Classeur Excel grace à l'action TransfertFeuilleCalcul. J'aimerai pouvoir modifier le nom de mon classeur excel où est coller ma table, ceci par macro VBA sous excel. Car c'et à faire pour beaucoup de fichier Access, donc j'aimerai automatiser ceci.

Merci d'avance. Et j'espere avoir été plus clair.
m
0
l
5 Janvier 2011 16:19:30

Ton classeur Excel est-il existant ou est-ce un nouveau fichier Excel créé par ton programme?
m
0
l
5 Janvier 2011 16:41:41

Il est deja existant.
m
0
l
7 Janvier 2011 10:33:13

Bonjour,

Tout d'abord vous devez ajouter la référence Microsoft Excel X.0 Object Library à votre projet.

Ensuite le code suivant permets de réaliser l'action voulue...


  1. Private Sub ModifNom
  2.  
  3. Dim xlApp As Excel.Application
  4. Dim xlSheet As Excel.Worksheet
  5. Dim xlBook As Excel.Workbook
  6.  
  7. 'J'initialise mes variables
  8. Set xlApp = CreateObject("Excel.Application")
  9. Set xlBook = xlApp.Workbooks.Open(NomFichier1)
  10.  
  11. ' Modifier le nom de la feuille nommée "TOTO" en "Feuille Modifiee"
  12. For i = 1 To xlBook.Worksheets.Count
  13. If Left(xlBook.Worksheets(i).Name, 7) = "TOTO" Then XlBook.Worksheets(1).Name = "Feuille modifiee"
  14. Next i
  15.  
  16. 'Code de fermeture et de libération des variables
  17. xlBook.Save
  18. xlApp.Quit
  19. Set xlSheet = Nothing
  20. Set xlBook = Nothing
  21. Set xlApp = Nothing
  22.  
  23. End sub



m
0
l
7 Janvier 2011 10:46:49

jacouille35 a dit :
Il est deja existant.


Re Bonjour,

Désolé une erreur de code dans mon précédent post


Tout d'abord vous devez ajouter la référence Microsoft Excel X.0 Object Library à votre projet.

Ensuite le code suivant permets de réaliser l'action voulue...


  1. Private Sub ModifNom
  2.  
  3. Dim xlApp As Excel.Application
  4. Dim xlSheet As Excel.Worksheet
  5. Dim xlBook As Excel.Workbook
  6.  
  7. 'J'initialise mes variables
  8. Set xlApp = CreateObject("Excel.Application" )
  9. Set xlBook = xlApp.Workbooks.Open(NomFichier1)
  10.  
  11. ' Modifier le nom de la feuille nommée "TOTO" en "Feuille Modifiee"
  12. For i = 1 To xlBook.Worksheets.Count
  13. If Left(xlBook.Worksheets(i).Name, 4) = "TOTO" Then XlBook.Worksheets(1).Name = "Feuille modifiee"
  14. Next i
  15.  
  16. 'Code de fermeture et de libération des variables
  17. xlBook.Save
  18. xlApp.Quit
  19. Set xlSheet = Nothing
  20. Set xlBook = Nothing
  21. Set xlApp = Nothing
  22.  
  23. End sub
m
0
l
7 Janvier 2011 14:13:06

Non désolé tu n'as pas du comprendre ma question mais merci quand meme.

J'ai une macro sur Access qui a pour action "TransfertFeuilleCalcul" et quand je clique sur c'est propriété j'ai le nom du classeur vers où la table sera envoyé, et c'est cette argument que je doit modifier par macro Excel.

J'espere que tu m'as compris .
m
0
l
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS