Il y a actuellement 277 visiteurs
Jeudi 28 Mars 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 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

Message Aide pc portable
Bonjour,Je souhaiterai faire plaisir à ma femme et lui acheter un pc portable qui ferait tourner world of warcraft en haute qualité (élevé ou ultra sans lag). J?ai fait un peu le tour sur le forum pour pas faire de doublon mais je n?ai rien trouvé. J?ai un petit budget max 700 euros avec un écran au ...
Réponses: 5

Message [réglé] aide pour achat imprimante compatible chromebook
Bonjour à tous, j'ai besoin d'acheter une imprimante laser n/b et couleur compatible Chromebook (un acer)Quelqu'un pourrait-il m'aider car je ne trouve rien par les moteurs de recherche. Les réponses données ne sont pas compatibles.Un grand merci pour votre aide
Réponses: 6

Message Aide achat PC Portable
Bonjour Je viens sur le forum car j'envisage de changer de PC Portable et j'ai besoin d'aide !! Mon PC actuel : PC Portable ASUS R415UA-EB035T - 14" FHD sur lequel je suis passé de 8Go de mémoire vive à 16Go de mémoire vive Mon budget : 800 euros max Mon utilisation : internet et Word et lectur ...
Réponses: 9


Qui est en ligne

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


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