J
jasmin
Guest
Bonjour à tous,
j'avais un problème. Le forum m'a donné plusieurs solutions possibles (Hervé, Robert). Qui sont très bonnes mais qui m'ont permis de découvrir un autre problème. le voici :
J'ai écris une macro Macro1() qui permet de prendre des valeurs d'une feuille d'un fichier Excel Fichier_1.xls et de les copier dans la feuille d'un autre fichier Excel Fichier_2.xls
qui fait un calcul et renvoie un résultat. La macro copie ce résultat dans le premier fichier Excel Fichier_1.xls.
La macro Macro1() est du style :
Sub Macro1()
Windows ('Fichier_1.xls).Activate
A = Cells(1,1).Value
Windows ('Fichier_2.xls).Activate
Cells(1,1).Value = A
Resultat = Cells(2,1).Value
Windows ('Fichier_1.xls).Activate
Cells(2,1).Value = Resultat
End Sub
Ca marche très bien.
J'ai créé un bouton CommandButton1()
dont la macro associée est :
Private Sub CommandButton1()
Macro1
End Sub
Ca marche aussi très bien.
Par contre ceci ne marche pas (c a d quand je colle le contenu de Macro1() dans CommandButton1() ):
Private Sub CommandButton1()
Windows ('Fichier_1.xls).Activate
A = Cells(1,1).Value
Windows ('Fichier_2.xls).Activate
Cells(1,1).Value = A
Resultat = Cells(2,1).Value
Windows ('Fichier_1.xls).Activate
Cells(2,1).Value = Resultat
End Sub
Quelqu'un peut -il me dire comment faire ?
La finalité du truc étant de permettre de faire une pause dans la boucle de macro1. La solution est d'agir sur CommandButton à l'intérieur de Macro1
merci beaucoup.
jasmin.
j'avais un problème. Le forum m'a donné plusieurs solutions possibles (Hervé, Robert). Qui sont très bonnes mais qui m'ont permis de découvrir un autre problème. le voici :
J'ai écris une macro Macro1() qui permet de prendre des valeurs d'une feuille d'un fichier Excel Fichier_1.xls et de les copier dans la feuille d'un autre fichier Excel Fichier_2.xls
qui fait un calcul et renvoie un résultat. La macro copie ce résultat dans le premier fichier Excel Fichier_1.xls.
La macro Macro1() est du style :
Sub Macro1()
Windows ('Fichier_1.xls).Activate
A = Cells(1,1).Value
Windows ('Fichier_2.xls).Activate
Cells(1,1).Value = A
Resultat = Cells(2,1).Value
Windows ('Fichier_1.xls).Activate
Cells(2,1).Value = Resultat
End Sub
Ca marche très bien.
J'ai créé un bouton CommandButton1()
dont la macro associée est :
Private Sub CommandButton1()
Macro1
End Sub
Ca marche aussi très bien.
Par contre ceci ne marche pas (c a d quand je colle le contenu de Macro1() dans CommandButton1() ):
Private Sub CommandButton1()
Windows ('Fichier_1.xls).Activate
A = Cells(1,1).Value
Windows ('Fichier_2.xls).Activate
Cells(1,1).Value = A
Resultat = Cells(2,1).Value
Windows ('Fichier_1.xls).Activate
Cells(2,1).Value = Resultat
End Sub
Quelqu'un peut -il me dire comment faire ?
La finalité du truc étant de permettre de faire une pause dans la boucle de macro1. La solution est d'agir sur CommandButton à l'intérieur de Macro1
merci beaucoup.
jasmin.