Exportation de la même cellule
fralex
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
Bonjour,
je souhaiterai savoir est il possible d'exporter les même cellules de plusieurs onglet sur une autre feuille Excel.
Je m'explique, un automate exporte les données dans Excel, tous les jours celui ci les exporte vers un nouvel onglet.
Or, je souhaiterai récupérer les même cellule pour les reporter sur une nouvelle feuille Excel.
Ce qui donnerai A3 feuille 2 sur nouveau tableau "Test" cellule A3, puis le lendemain A3 feuille 3 sur "Test" A3 .....
Puisque pour le moment je ne pas écraser chaque jour sur le même tableau, a moins que cela soit possible, mais petit souci puisque les données exporter sont protéger à chaque fois, donc à ôter la protection tous les jours.
En vous remerciant.
Alex
je souhaiterai savoir est il possible d'exporter les même cellules de plusieurs onglet sur une autre feuille Excel.
Je m'explique, un automate exporte les données dans Excel, tous les jours celui ci les exporte vers un nouvel onglet.
Or, je souhaiterai récupérer les même cellule pour les reporter sur une nouvelle feuille Excel.
Ce qui donnerai A3 feuille 2 sur nouveau tableau "Test" cellule A3, puis le lendemain A3 feuille 3 sur "Test" A3 .....
Puisque pour le moment je ne pas écraser chaque jour sur le même tableau, a moins que cela soit possible, mais petit souci puisque les données exporter sont protéger à chaque fois, donc à ôter la protection tous les jours.
En vous remerciant.
Alex
2 réponses
-
Bonjour,
Pour pouvoir t'aider, il faudrait que tu nous dise ce qu'est cet "automate"?
S'agit-il d'une macro? Si oui, il nous faudrait son code et on pourra t'aider.-
-
-
-
donc voila ce que çà peut donner par exemple, mais tous les jours le fichier s'incrémente ce qui donne par exemple Legend2, Legend3 etc... :
Sub Macro1()
'
' Macro1 Macro
' Test CD3
'
'
ActiveCell.FormulaR1C1 = "='[Eurocell tube1.xlsx]Legend1'!R1C2"
Range("B2").Select
End Sub
Sub Macro2()
'
' Macro2 Macro
' Test CD4
'
'
ActiveCell.FormulaR1C1 = "='[Eurocell tube1.xlsx]Legend1'!R2C2"
Range("B3").Select
End Sub
Merci
-
-
Re,
je ne suis pas sûre d'avoir tout compris mais essaie ca :
Sub Macro1()
i = 2
do while cells(i,2)<>""
i=i+1
loop
cells(i,2).select
ActiveCell.FormulaR1C1 = "='[Eurocell tube1.xlsx]Legend1'!R" & i-1 & "C2"
End Sub
