Discussion :

[Florent6744]

Bonjour,

Je viens sur le forum pour vous demander de l'aide.

Je cherche à créer un fichier Excel qui se complète grâce au vba.

je souhaite déclencher la macro lorsque j'ai rempli mon tableau (nommé Travaux_2017_2020) et j'aimerais qu'il ouvre un autre fichier excel (nommé Etat), ça j'ai réussi.
La où je pèche c'est que j'aimerais que par exemple sur le fichier Etat la cellule D12 reprenne le contenu de la cellule colonne G de la ligne active du fichier travaux.

J'ai écrit ceci mais ça ne fonctionne pas en je ne vois pas ce qui bug.

Code :

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

1
2
3
4
5
6
Sub Macro1()
 
    Range("B14").Select
    ActiveCell.FormulaR1C1 = "=C:\Users\Florent\Desktop\[Travaux_2017_2020.xlsx]tvx!Cells(ActiveCell.Row,7)"
 
End Sub

Merci pour votre aide

[Theze]

Bonjour,

Une piste :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Macro1()
 
    Dim Cl As Workbook
 
    Set Cl = Workbooks.Open("Chemin du classeur\Etat.xlsx")
 
    Cl.Worksheets("Feuil1").Range("D12").Formula = "=C:\Users\Florent\Desktop\[Travaux_2017_2020.xlsx]tvx!G" & ActiveCell.Row & ")"
 
End Sub

[Florent6744]

Bonjour,

Merci pour la piste.

J'ai testé mais ca me met un message d'erreur sur la derniere ligne.
Je ne comprend pas pourquoi.

Je pense que je vais creer deux fichiers pour vous montrer avec les bonnes lignes à reprendre.

[Theze]

Essais ceci :

Code :

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

1
2
 
Cl.Worksheets("Feuil1").Range("D12").Formula = "='C:\Users\Florent\Desktop\[Travaux_2017_2020.xlsx]tvx'!G" & ActiveCell.Row