transfert de données

aurelien · 9 Août 2007

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 · 9 Août 2007

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

Code:

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 · 10 Août 2007

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

transfert de données

aurelien

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

aurelien

XLDnaute Nouveau

Discussions similaires

transfert de données

aurelien

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

aurelien

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency