Bonjour,
j'exécute une macro dans un classeur A. Cette macro doit insérer une formule dans une cellule d'un classeur B.
La formule a insérer fait référence à une valeur contenue dans une cellule du classeur A.
Comment faire ?
Voici le code :
' le classeur A s'appelle "date_ref.xls"
' le classeur dans lequel il faut insérer la formule se nomme ici "sem10.xls"
Merci de votre aide
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57 Sub MAJDate() ' compteur de nombre de semaine Dim x As Integer ' Pour chaque fichier For x = 10 To 10 ' Ouverture des classeurs excel à mettre àjour Dim NumSem As String If x < 10 Then NumSem = "0" & x Else NumSem = x End If Dim NomFich As String NomFich = "C:\mon_chemin\sem" & NumSem & ".xls" Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ouverture d'un fichier Excel Set wbExcel = appExcel.Workbooks.Open(NomFich, 3, False) 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1) MsgBox wsExcel.Cells(1, 2).Value Dim MaFormule As String Dim MonCoef As Integer MonCoef = 7 * (x - 1) MaFormule = "=[date_ref.xls]Feuil1!$A$1 + " & MonCoef ' pour debug ' ActiveCell.Formula = MaFormule wsExcel.Activate wsExcel.Cells(1, 2).Formula = MaFormule MsgBox wsExcel.Cells(1, 2).Value wbExcel.Close 'Fermeture du classeur Excel appExcel.Quit 'Fermeture de l'application Excel 'Désallocation mémoire Set wsExcel = Nothing Set wbExcel = Nothing Set appExcel = Nothing Next x End Sub
Y
Partager