Exportation de la même cellule

Fermé
fralex - Modifié par fralex le 5/06/2011 à 10:37
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 10 juin 2011 à 08:30
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

2 réponses

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
7 juin 2011 à 09:51
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.
0
Bonjour,
cet automate est un cytomètre en flux (BC), il me semble qu'il y a une macro, mais je ne sais pas vraiment.
Comment peut on voir son code?
merci
0
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
8 juin 2011 à 08:14
ca epasse mes competences alors dsl.
0
non, l'automate ne fait pas de macro, c'est à moi de la créé, je peu essayé de créé et de posté le code
0
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
0
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
10 juin 2011 à 08:30
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
0