Bonjour,
je débute en VBA et je cherche a récupérer la valeur d'une cellule ( A1 ) dans dossier comportant des fichiers .doc dans lesquels ont été insérés des objets "feuille de calcul excel".
J'ai trouvé sur un forum un code permettant de le faire à partir de fichiers .xls (qui marche parfaitement) mais comment le faire avec des fichiers word dans lesquels sont insérés des fichiers excel ?
Voici le code:
Je pense cela doit etre assez simple mais je ne connais la formule pour faire appel à l'objet...
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
18
19
20
21
22
23 Sub chercheFichiersFermesV03() Dim X As Integer, nbFichiers As Integer, Y As Integer Dim Tableau() As String Dim Direction As String Application.ScreenUpdating = False Direction = Dir("E:\Clients Site\*.doc") 'adapter chemin repertoire code modifié ( fichier .xls a la base) Do While Len(Direction) > 0 nbFichiers = nbFichiers + 1 ReDim Preserve Tableau(1 To nbFichiers) Tableau(nbFichiers) = Direction Direction = Dir() Loop If nbFichiers > 0 Then For X = 1 To nbFichiers If Tableau(X) <> ThisWorkbook.Name Then Y = Y + 1 With ActiveSheet.Cells(Y, 1) .Formula = "='E:\Clients Site\[" & Tableau(X) & "]Feuil1" & "'!" & "A1" Partie a modifier .Value = .Value End With End If
Merci d'avance.
Diab
Partager