Discussion :

[pubbins]

Bonjour à tous,

J'ai deux fichiers :
- Un fichier word
- Un fichier excel

Je veux créer une macro dans mon fichier word qui :
- va chercher des données dans le doc
- ouvre le fichier excel
- copie les données dans une feuille déjà existante du fichier excel

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub TransfertDonnees()
 
    Dim xlApp As New Excel.Application
    Dim TB As Excel.Workbook
    Dim Ongl1 As New Excel.worksheet
    Dim Docu As Document
    Dim TB As Workbook
 
    Set Docu = ActiveDocument
 
    'Ouverture du fichier Excel
    xlApp.Workbooks.Open "C:\Chemin..."
    xlApp.Visible = True
    Set TB = ActiveWorkbook
 
End Sub

Jusque-là, tout va bien. Là où cela se complique, c'est quand je veux déclarer la feuille dans laquelle doivent s'inscrire mes données. Cette feuille existe déjà dans mon fichier et dans l'éditeur vba du fichier excel, j'ai renommé la feuille (Feuil1-->Donnees). Attention, j'ai renommé le nom vba de la feuille, pas le nom de l'onglet.

Je souhaite donc déclarer comme suit la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Onlg1=TB.Donnees

(Comme je le ferais si j'étais dans vba Excel)

Mais cela ne fonctionne pas. Ce qui fonctionne par contre, c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Onlg1=TB.Worksheets("Nom de la feuille")

Cependant, j'aimerais éviter cette solution car si une personne modifie le nom de la feuille, la macro ne marchera plus. Quelqu'un a une idée de la manière de procéder ?

J'espère avoir été suffisamment clair et vous remercie par avance.

Pubbins

[kiki29]

Salut, voir dans la FAQ
Pour éviter les histoires de noms modifiés d'onglets, il faut utiliser le CodeName

[pubbins]

Merci kiki mais malheureusement cela ne répond pas exactement à ma question.

Je ne trouvais plus le terme mais en effet je veux utiliser un codename. Le problème que je rencontre c'est que je n'arrive pas à utiliser les codename d'Excel dans Word. Je m'explique :

J'ouvre le fichier Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub TransfertDonnees()
 
    Dim xlApp As New Excel.Application
    Dim TB As Excel.Workbook
    Dim Ongl1 As New Excel.worksheet
    Dim Docu As Document
    Dim TB As Workbook
 
    Set Docu = ActiveDocument
 
    'Ouverture du fichier Excel
    xlApp.Workbooks.Open "C:\Chemin..."
    xlApp.Visible = True
    Set TB = ActiveWorkbook
 
End Sub

Dans le fichier Excel, il y a une feuille dont le codename est "Donnees". Et je voudrais donc désigner ma feuille dans le document word comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Onlg1=TB.Donnees

Mais cela ne fonctionne pas et je ne vois pas comment faire !

Merci par avance,

Pubbins