OVH Cloud OVH Cloud

Données Auto

2 réponses
Avatar
Matthias Ainsworth
Bonjour,

Existe-t-il une manière d'importer de façon automatique des données dans
Excel ?
J'ai un tableau figé et régulièrement on me fournit un fichier texte avec
les nouvelles données. Comment puis-je automatiser cette tâche ?

Merci.
Matt.

2 réponses

Avatar
patrick.lyon
"Matthias Ainsworth" a formulé ce jeudi :
Bonjour,

Existe-t-il une manière d'importer de façon automatique des données dans
Excel ?
J'ai un tableau figé et régulièrement on me fournit un fichier texte avec
les nouvelles données. Comment puis-je automatiser cette tâche ?

Merci.
Matt.


bonjour
tu colles tes données dans l'onglet 1
et tu créés l'onglet 2 avec ton tableau qui iras chercher les données
dans l'onglet 1

je te donnes en exemple 2 formules que j'utilises pour extraire d'une
page web de stat les données qui m'intéresse

=EQUIV(B2;Feuil1!C:C;0)
=SI(ESTERREUR(D10);E35+E36;CNUM(INDIRECT(D10;FAUX)))

tu me diras
B-)

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

Avatar
ru-th
Salut

le mieux est d'utiliser l'enregistreur de macros pour avoir la trame du
code, puis à l'interieur du code on modifie ce que l'on besoin

un exemple
Sub ImportatioN()
On Error Resume Next
Dim MonFichier
'affiche boite de dialogue
MonFichier = Application.GetOpenFilename
If MonFichier = "" Then End
'enregistreur de macro
Workbooks.OpenText Filename:=MonFichier, Origin:=xlWindows, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:=True,
Comma:úlse _
, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 1), Array(2,
1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1),
Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14,
1), Array(15, 1), Array( _
16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1),
Array(21, 1), Array(22, 1), _
Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), Array(27,
1), Array(28, 1), Array( _
29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array(33, 1),
Array(34, 1), Array(35, 1))
'transfert dans le classeur
ActiveSheet.Move Before:=ThisWorkbook.Sheets(1)
End Sub

a+
rural thierry

"Matthias Ainsworth" a écrit dans le
message de news: 3f97e389$0$27046$
Bonjour,

Existe-t-il une manière d'importer de façon automatique des données dans
Excel ?
J'ai un tableau figé et régulièrement on me fournit un fichier texte avec
les nouvelles données. Comment puis-je automatiser cette tâche ?

Merci.
Matt.