transfert de données

[aurelien]

bonjour a vous tous,



je ne voudrais pas abuser de votre gentillesse mais je bloque sur un autre fichier (je ne fais que ça !!) concernant le transfert de données sur un autre classeur . certaines cellules sont des formules type moyenne ou autre mais mon code bloque

contexte :
j'utilise un fichier excel comme un "formulaire", c'est a dire que l'on y rentre des valeurs et on obtient des infos type moyenne etc...

objectif:

je dois pouvoir transmettre à un autre classeur qui sert de "base" les infos obtenues

mon problème :

je n'arrive pas à déclarer mes cellules comme des variables ni à transferer mes données sur l'autre classeur.GRRRRR******************




ci joint le code que je suis en train de revoir :

Feuil1.Activate




Set b = Range("g5").Value 'formule
Set c = Range("c8").Value '
Set d = Range("G8").Value ' m
Set e = Range("g10").Value ' O
Set f = Range("B18").Value 'le
Set g = Range("B20").Value
Set h = Range("G18").Value ' lo
Set i = Range("c27").Value 'p
Set j = Range("G27").Value 'e
Set k = Range("E27").Value ' sc
Set L = Range("E28").Value ' sc -
Set m = Range("C28").Value ' é
Set n = Range("G28").Value ' ét
Set o = Range("f32").Value 'acq
Set p = Range("c43").Value 'ab
Set q = Range("g43").Value 'rét
Set r = Range("H43").Value '
Set s = Range("d45").Value 'po





Workbooks.Open Filename:= _
"C:\Documents and Settixxxxx.xls"
Sheets("base").Select
Dim Lw As Integer

Lw = Sheets("base").Range("C65536").End(xlUp).Row + 1


Range("b" & Lw).Value = b
Range("c" & Lw).Value = c
Range("d" & Lw).Value = d
Range("e" & Lw).Value = e
Range("f" & Lw).Value = f
Range("g" & Lw).Value = g
Range("h" & Lw).Value = h
Range("i" & Lw).Value = i
Range("j" & Lw).Value = j
Range("k" & Lw).Value = k
Range("l" & Lw).Value = L
Range("m" & Lw).Value = m
Range("n" & Lw).Value = n
Range("o" & Lw).Value = o
Range("p" & Lw).Value = p
Range("q" & Lw).Value = q
Range("r" & Lw).Value = r
Range("s" & Lw).Value = s

ActiveWorkbook.Save
ActiveWorkbook.Close


mille milliards de merci !!!

aurélien:

 

[Robert]

Re : transfert de données

Bonjour Aurélien, bonjour le forum,

Le problème vient du Set. Si tu le supprimes ça devrait marcher. Je te propose l'utilisation d'un tableau de variables

Dim tbl(18) As Variant
Dim Lw As Integer
Dim x As Byte
 
With Sheets("Feuil1")
    tbl(1) = .Range("g5").Value 'formule
    tbl(2) = .Range("c8").Value '
    tbl(3) = .Range("G8").Value ' m
    tbl(4) = .Range("g10").Value ' O
    tbl(5) = .Range("B18").Value 'le
    tbl(6) = .Range("B20").Value
    tbl(7) = .Range("G18").Value ' lo
    tbl(8) = .Range("c27").Value 'p
    tbl(9) = .Range("G27").Value 'e
    tbl(10) = .Range("E27").Value ' sc
    tbl(11) = .Range("E28").Value ' sc -
    tbl(12) = .Range("C28").Value ' é
    tbl(13) = .Range("G28").Value ' ét
    tbl(14) = .Range("f32").Value 'acq
    tbl(15) = .Range("c43").Value 'ab
    tbl(16) = .Range("g43").Value 'rét
    tbl(17) = .Range("H43").Value '
    tbl(18) = .Range("d45").Value 'po
End With
 
Workbooks.Open Filename:= _
"C:\Documents and Settixxxxx.xls"
Sheets("base").Select
Lw = Sheets("base").Range("C65536").End(xlUp).Row + 1
 
For x = 1 To 18
    Cells(Lw, x + 1).Value = tbl(x)
Next x
 
ActiveWorkbook.Save
ActiveWorkbook.Close

 

[aurelien]

Re : transfert de données

MERVEILLEUX !!

je suis contemplatif devant autant de facilité a résoudre mon problème, non seulement ca marche impeccable mais en plus j'ai appris une nouvelle fonction ! que demande le peuple !!

Bravo et milles mercis !!!

aurélien