Extraction de données excel (2003) pour remplir un template Résolu

Question

Bonjour, 

je vous prie de m'excuser par avance, je suis néophyte dans l'utilisation d'excel. Ce que je souhaiterai c'est récupérer les informations d'un tableau et les insérer automatiquement dans un template.
Pour faire simple, je récupère des résultats et je souhaiterai les intégrer dans une sorte de modèle définit à l'avance ainsi je récupère uniquement l'extraction dans le format souhaité.

Je ne sais pas si j'ai été clair.

En attente de vos retours.

Raymond PENTIER · Answer

Bonjour.

Clair ? Non, pas trop !
Quelle différence fais-tu entre un "tableau" et un "template" ? 
Sont-ils tous les deux créés avec Excel ?
C'est quoi, une sorte de modèle ? Soit on crée un fichier (ou classeur), soit on crée un modèle de fichier ; il n'y a rien entre les deux ...
Les données extraites sont toujours en nombre égal et au même format ?

J'aurai peut-être d'autres précisions à demander, mais donne-nous déjà ces premières explications.

unknown · Answer

Merci pour ton retour.

Par exemple, j'ai ce type de tableau:
A1 B1 C1
A2 B2 C2
A3 B3 C3

Ce que je souhaite, c'est pouvoir générer par exemple une phrase présentant les résultats:
"La note du 1er trimestre correspond à C1, celui du 2è correspond à C2 etc."
Et que ça génère un fichier (type bloc note par exemple) avec cette phrase.

cs_Le Pivert · Answer

Bonjour,

en vba la création du fichier texte se fait dans le même dossier que le classeur:

Option Explicit
'allez dans Outils Références et cochez Microsoft Scripting Runtime
Private Sub ecriture()
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oTxt As Scripting.TextStream
Dim i As Integer
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile(ActiveWorkbook.Path & "\fichierA1.txt") ' 'adapter chemin et nom fichier
Set oTxt = oFl.OpenAsTextStream(ForAppending) 'ajoute nouvelle ligne, sinon changer par ForWriting pour une seule ligne
 oTxt.WriteLine (Date & ": La note du 1er trimestre est de " & Range("A1")) 'ajout de la date
End Sub
 
 
a adapter pour les autres cellules

pour plus d'info voir ici:
https://warin.developpez.com/access/fichiers/#LII-D-3


@+ Le Pivert

unknown · Answer

Merci pour ton retour, c'est un bon début. Je vais m'inspirer du site que tu m'as fourni.

cs_Le Pivert · Answer

Tu trouveras cela aussi:

Private Sub ecriture_2()
Dim intFic As Integer
intFic = FreeFile
Open ActiveWorkbook.Path & "\fichierA1.txt" For Append As intFic 'ajoute nouvelle ligne, sinon changer par Output  pour une seule ligne
Print #intFic, (Date & ": La note du 1er trimestre est de " & Range("A1")) 'ajout de la date
Close intFic
End Sub

Extraction de données excel (2003) pour remplir un template

5 réponses

Newsletters