Il y a actuellement 669 visiteurs
Vendredi 22 Novembre 2024
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

extraction de données à l'aide de prg VBA

Un nouveau programme qui ne fonctionne pas sur votre matériel informatique ? un message d'erreur venant d'un de vos logiciels ? Une mise à jour bloque? Besoin d'aide ? Posez vos questions sur ce forum d'entraide !

extraction de données à l'aide de prg VBA

Message le 15 Avr 2010 09:12

Bonjour,

on me demande d'extraire de l'information de plusieurs fichier excel sous forme d'une feuille d'observation d'expérimentation sur une plante, or que je ne vois pas du tout comment je pourrai procéder par programmation sur VBA pour faire une macro qui m'extrait les données d'un fichier et de me les stocker dans un autre sous tableau individu/variable.
Grâce à des tutos sur le net j'ai pu faire le programme suivant:


Option Explicit

Sub Recap_Clic()

'Procédure assignée au bouton Copie

'Le chemin d'accès au fichier source est saisi par une boîte InputBox.

Dim Defaut_Source As String 'Chemin complet, par défaut, d'accès au fichier source.

Defaut_Source = "D:\Mes donnees\...\2009\C1\C1P02.xls"

Dim Source As String 'Chemin complet d'accès au fichier Source.

Source = InputBox("Chemin complet du fichier source", "Fichier source", Defaut_Source)

If Source = "" Then Exit Sub 'Pas de saisie effective

On Error GoTo Erreur 'En cas d'erreur lors de l'ouverture du fichier source

Application.Workbooks.Open Source 'Ouverture du fichier source

On Error GoTo 0 'On annule la récupération des erreurs

Dim Classeur_Source As Workbook

Set Classeur_Source = Application.Workbooks("C1P02.xls")

Dim Feuille_Source As Worksheet

Set Feuille_Source = Classeur_Source.Sheets("03 08 09")

Dim Plage_source As Range

Set Plage_source = Feuille_Source.Range("A3:B3")

Dim Classeur_Cible As Workbook

Set Classeur_Cible = ThisWorkbook

Dim Feuille_Cible As Worksheet

Set Feuille_Cible = Classeur_Cible.Worksheets("Recap")

Dim Plage_Cible As Range

Set Plage_Cible = Feuille_Cible.Range("C5:C6")

Dim i As Byte

For i = 1 To Plage_source.Cells.Count

Plage_Cible.Cells(i) = Plage_source.Cells(i)

Next i

'Classeur_Source.Close False 'Fermeture du fichier source sans sauvegarde

Exit Sub

Erreur: 'En cas d'erreur lors de l'ouverture du fichier source

MsgBox "Impossible d'ouvrir le fichier " & Source, , "Erreur"

End Sub





Il fontionne mais mon pbm c'est qu'il faut que je rende variable les indications en rouge, car elles changent à chaque fois.



Donc voila.

svp aidez moi....jaten vos reponse
koko34
Visiteur
Visiteur
 
Messages: 1
Inscription: 15 Avr 2010 08:56
 



Sujets similaires

Message Besoin d'aide PC parasité par des étoiles
Bonjour à tous. Nouveau membre. Je possède un PC portable IdeaPad S145 et depuis 2 jours je ne peux pas l'éteindre en passant par l'icône en bas à gauche pour faire arrêter. Car une fenêtre s'ouvre et plein d'étoiles s'écrivent toutes seules comme si quelqu'un pilotait mon ordi. Et lorsque j'ouvre m ...
Réponses: 5

Message PC parasité par des étoiles en continu. Besoin d'aide
Bonjour à tous. Nouveau membre. J'ai posté vers 9h20 le message ci-dessous avec 13 visites mais pas de réponse. Je suis vraiment embêter avec mon problème. J'ai des recherches de travail à faire mais je suis parasité par ces étoiles qui s'affichent constamment et m'empêche d'effectuer mes recherch ...
Réponses: 1

Message programme de récupération des données
Bonjour,J'ai besoin de récupérer quelques fichiers de la corbeille de mon PC.J'ai cliqué sur le bouton "Vider la corbeille".Je sais que les fichiers peuvent potentiellement être récupérés, mais avec un logiciel.Pouvez-vous m'en recommander un ?J'essaie actuellement un logiciel *********, m ...
Réponses: 1

Message Aide suite à une analyse FRST contre un virus vbc.exe
Bonjour tout le monde, J'ai récemment constaté que j'étais infecté par un virus lié à vbc.exe, ce qui entraîne une utilisation du CPU allant jusqu'à 30% voire 40%. J'ai donc effectué mes analyses FRST et voici les rapports obtenus : - FRST.txt: https://pjjoint.malekal.com/files.php?id=FRST_20240315_ ...
Réponses: 3

Message : besoin d'aide pour un pc portable à 500 euros
Bonjour à tous, J'ai besoin d'un sacré coup de main et de vos compétences. Voilà, j'ai un ami de mon fils avec ses frères et s?urs. Ils vont casser leur tirelire pour acheter un PC portable à leur s?ur pour son anniversaire . Elle va avoir 17 ans car leurs parents ne peuvent pas se le permettre . ...
Réponses: 3

Message Recherche logiciel de base de données
Bonjour à tous !J'ai utilisé (il y a longtemps !) un logiciel sous DOS de base de données pour mes fichiers clients, gestion, ec. il s'agissait de DBase IV...Existe t-il un tel logiciel ou équivalent pour PC sous Win 10 ou Linux (Ubuntu) ?Je n'ai pas trouvé....Merci d'avance.
Réponses: 3

Message Récupération de données d'un macbook
Est-ce que vous avez essayé de faire ce que message propose (Démarrer et tenir enfoncée la touche "D") pour accéder aux diagnostics ? Ce serait un bon début.Si c'est improductif, je suivrais l'ordre des propositions : Démarrage sans échec, Purge NVRam, Récupération.
Réponses: 13


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 13 invités


.: Nous contacter :: Flux RSS :: Données personnelles :.
cron