Extrapolation Macro VBA

Ciao a tutti,

Io uso una tabella con il nostro programma aziendale, al mattino estrapolo in formato xls, ma quando creo i link per usa i valori, meglio usare VBA oppure usare la formula 'C: \ Users \ 1 \ Desktop. ] dati '! E2 "?

Ho un file con il nome del foglio "Da incollare" solo da A a X20000 e devo excel2 quale file "C: \ Users 1 \ Desktop \ s.xlsx" da E2: AB20000 formula devo usare the macro?

grazie per aiuto

Buongiorno, Bonjour,

Difficile capire il problema in italiano...

Ecco un tentativo :

Sub test()
spath = "C:\...xls" 'origine
t = workbooks.open(spath).sheets(1).range("E2:AB20000").value 'sheets("dati")
'destinazione
thisworkbook.sheets("Da incollare").range("A2").resize(ubound(t), ubound(t,2)) = t
end sub

da inserire nel file di destinazione.

Ciao,

Mais quelle forme dois-je faire ? Ou « ce classeur » ?

Merci pour ton aide

Bonjour,

Désolé, je n'ai pas compris.

Ici, je suppose que votre fichier source est dans le dossier Téléchargements et se nomme SrcFile.xls.

Les informations à récupérer se trouvent en E2:AB20000 de la feuille n°1 de ce fichier SrcFile.xls.

Les valeurs récupérées sont ensuite collées en A2 (A2:X20000) de la feuille "Da incollare" du fichier de destination. Le fichier de destination est votre fichier principal, celui qui contient ce script :

Sub test()
spath = environ("userprofile") & "\Downloads\SrcFile.xls"
with workbooks.open(spath)
    t = .sheets(1).range("E2:AB20000").value
    .close true
end with
'destinazione
thisworkbook.sheets("Da incollare").range("A2").resize(ubound(t), ubound(t,2)) = t
end sub

Il faut insérer le script dans un module normal et lLe fichier de destination devra être au format .xlsm.

Cdlt,

Bonjour,

Ok ça marche, mais une chose que je ne veux pas voir la fenêtre s.xlsx ouverte

Merci encore

s.xlsx, c'est le fichier source ?

Essayez ceci :

Sub test()
spath = environ("userprofile") & "\Downloads\SrcFile.xls"
application.screenupdating = false
with workbooks.open(spath)
    t = .sheets(1).range("E2:AB20000").value
    .close true
end with
'destinazione
thisworkbook.sheets("Da incollare").range("A2").resize(ubound(t), ubound(t,2)) = t
application.screenupdating = true
end sub

Cdlt,

Bonjour,

cela ne fonctionne pas, voir l'image jointe.

Merci

Bonjour,

Il y a un "s" de trop à "xlsxs". Il faut "xlsx" :

Sub test()
spath = environ("userprofile") & "\Desktop\s.xlsx"
if dir(spath) = "" then msgbox "File non trovato", 16: exit sub
application.screenupdating = false
with workbooks.open(spath)
    t = .sheets(1).range("E2:AB20000").value
    .close true
end with
'destinazione
thisworkbook.sheets("Da incollare").range("A2").resize(ubound(t), ubound(t,2)) = t
application.screenupdating = true
end sub

Cdlt,