Discussion :

[Demagonn]

Bonjour,

J'ai un 1er fichier excel "Base.xls".
J'ai rédigé une macro qui est enregistrée dans ce fichier
J'ai rajouté un bouton dans le bandeau d'excel pour lancer cette macro et faire des calculs sur d'autres fichiers excel.

Explication de ce que je veux faire :
Dans la cellule A1, que j'ai renommé en "Toto" de mon fichier Base.xls, j'ai une valeur de référence : "21.47"
Quant je lance la macro sur mon deuxième fichier je souhaite mettre cette valeur (21.47) dans la cellule "C4" de ce deuxième fichier excel.

Problème que je rencontre :
Je ne sais pas comment pour aller récupérer la valeur de référence et "revenir" sur mon deuxième fichier excel pour continuer à faire le traitement de la macro sur ce deuxième fichier.
J'arrive à changer l'activesheet pour aller sur mon fichier "base.xls" mais je ne sais pas "revenir"

Comment récupérer cette valeur ?
D'avance merci.

[Invité]

Problème que je rencontre :
Je ne sais pas comment pour aller récupérer la valeur de référence et "revenir" sur mon deuxième fichier excel pour continuer à faire le traitement de la macro sur ce deuxième fichier.
J'arrive à changer l'activesheet pour aller sur mon fichier "base.xls" mais je ne sais pas "revenir"
.

Bonjour,

Il n'y a pas à aller et revenir, tout est accessible dès lors que vous créez vos variables au bon niveau et avec lesquelles vous pourrez travailler tout au long du programme.

Un exemple :

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
 
Option Explicit
 
Public WbBase As Workbook, WbFichier2 As Workbook
Public ShBase As Worksheet, ShFichier2 As Worksheet
Public CelluleReference As Range
Public ValeurReference As Double
 
Sub Essai()
 
Dim CheminComplet As String
 
    CheminComplet = "C:\....\Fichier2.xls"
    Set WbBase = Workbooks("Base.xls")
    Set ShBase = WbBase.Sheets("Feuil1") ' A adapter suivant le nom de l'onglet
    With ShBase
         Set CelluleReference = .Range("Toto")
         'ValeurReference = .Range("Toto") ' Autre possibilité
    End With
 
    ' Suite sur le 2ème fichier
    ' Ouverture
    Set WbFichier2 = Workbooks.Open(Filename:=CheminComplet)
    Set ShFichier2 = WbFichier2.Sheets("Feuil1") ' A adapter
 
    With ShFichier2
 
         .Range("C4") = CelluleReference
         '.Range("C4") = ValeurReference ' Autre possibilité
 
    End With
 
 
    Set WbFichier2 = Nothing
    Set ShFichier2 = Nothing
 
    Set CelluleReference = Nothing
    Set ShBase = Nothing
    Set WbBase = Nothing
 
End Sub

[kiki29]

Salut, pour info à lire : Lire et écrire dans les classeurs Excel fermés