Besoin d'aide pour VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Besoin d'aide pour VBA

thibaut68140

Bonjour à vous tous,

Je viens pour ma première fois sur le forum pour solliciter votre aide :-).

Je dispose de fichiers Excel remplit chaque jour depuis plus ou moins un an (soit 300 fichiers). Ils sont tous identiques de part leur trame, seul varie les valeurs dans les champs à remplir.

Il y a un paramètre principal chaque jour dans une liste deroulante : "off line" ; "in line" ou"in transit" dans une cellule fusionnee (CDE ; 8). J'aimerai extraire les données (vitesse, conso, ... une dizaine de champ en gros) de tous les documents ayant le champ "In line" et les copier coller dans un nouveau fichier excel. J'imagine qu'il faut programmer une condition du type " IF "IN LINE" ON CELL (CDE ; 8) SO DO COPY..."

Peut-être que VBA n'est pas l'outil le plus adapté. Je suis ouvert à vos différents conseils/propositions et me permet de préciser que je n'ai pas de connaissances en VBA mais suis prêt à m'investir pour réaliser ce projet.

Je vous remercie d'avance.

Thibaut.

Message édité par thibaut68140 le 03-04-2014 à 10:24:30

Publicité

kiki29

Salut, voir http://forum.hardware.fr/hfr/Progr [...] 1595_1.htm et adapter à ton contexte

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

thibaut68140

Euh ca me semble assez complexe par rapport à mon cas et je retrouve pas l'action du "IF "IN LINE" " ... ce n'est pas possible de faire ca comme commande ?

kiki29

Re,http://cjoint.com/14ma/DCwnzZuLGAj.htm là tu as déjà 75% du code puisque ce fichier fusionne des fichiers xls ou csv , évidemment si tu ne cherches pas mais comme on dit : pas de bras pas de chocolat ..

Message édité par kiki29 le 03-04-2014 à 11:13:51

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

thibaut68140

Moui merci :-)

Lorsque je lance une fusion (mois de février par exemple) il me crée un dossier avec un nouveau fichier Excel. Ce dernier est vide, j'imagine qu'il y a un soucis ?

thibaut68140

le fait que mes fichiers soient en xlsx peut entrainer le soucis ?

j'ai essayé avec 2 fichiers identiques en xls mais il copie etrangement, simplement les 4 premiers lignes de chacun des fichiers et sur la feuille. Le but est des les mettre sur une sheet differente ??

Message édité par thibaut68140 le 03-04-2014 à 12:01:54

kiki29

re, une version fusion pour les xlsx, à adapter : pas de cellules fusionnées dans les fichiers à fusionner et macro nettoyage à personnaliser http://cjoint.com/?DDdpTQAzYBI

Message édité par kiki29 le 03-04-2014 à 15:49:58

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

thibaut68140

j'ai repris avec des .xls entre temps depuis ce matin mais je n'y arrive toujours pas.

Du coup je veux verifier qu'on parle bien d'un outil qui permet de réunir X fichiers dans 1 seul fichier contenant plusieurs onglets ?

Quand je lance (.xls) pour un mois (30 fichiers) il me sort un document DATA001, mais il est vierge ...

Message édité par thibaut68140 le 03-04-2014 à 16:02:20

kiki29

re, poste qqs fichiers à xxxx@xxxxx.xx je regarderais à l'occasion

Message édité par kiki29 le 03-04-2014 à 17:23:34

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

thibaut68140

D'accord

Publicité

thibaut68140

Pour le code c'est bon
Je tape ça:

Sub macro3()

' condition Macro
If Sheets("Daily Report" ).Range("C8" ) = "At port" Then
Sheets("Sheet2" ).Range("A1" ) = Sheets("Daily Report" ).Range("C8" ).Value
End If

End Sub

Il recupere la bonne chose dans le menu deroulant. reste simplement le soucis de fusion de feuilles :-)

Message édité par thibaut68140 le 03-04-2014 à 17:05:16

kiki29

Salut, je t'avais suggéré de me poster qqs fichiers mais visiblement rien, alors tchao.

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

thibaut68140

je t'ai envoyé ça hier à 16h33 depuis gmail. Tu le vois pas ??

thibaut68140

c'est bon j'ai reussi :-)

Code :

Dim chemin As String
Dim rep As String
Dim fic As String
Dim Wf As Workbook
Dim source As Range
rep = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Set Wf = ThisWorkbook
fic = Dir(rep & "*.xls" ) ' recherche fichiers
While fic <> ""
If fic <> ThisWorkbook.Name Then
chemin = rep & fic ' chemin fichiers
Workbooks.Open chemin, 0 ' ouverture
Set source = ActiveWorkbook.Sheets(1).Range("A1:IV65000" )
Wf.Sheets.Add
source.Copy
With Wf.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial Paste:=xlPasteValues
.Cells(1).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End With
ActiveWorkbook.Close
End If
fic = Dir
Wend

Message édité par thibaut68140 le 04-04-2014 à 11:12:46

kiki29

Salut, non je n'ai strictement rien reçu comme mail

Message édité par kiki29 le 04-04-2014 à 12:07:55

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Besoin d'aide pour VBA

Sujets relatifs
Besoin d'aide pour fichier gestion absence en VBA	SOS VBA Besoin d'aide pour un programme
Création d'une action en VBA Excel - Besoin d'aide	besoin d'aide (URGENT) pour une macro-EXCEL VBA
Besoin d'aide en VBA	[VBA] Besoin d'aide pour macro
Besoin d'aide programme VBA cellules	VBA Excell, besoin d'une gde aide !
Besoin d'un peu d'aide sur VBA dans word	Besoin d'aide pour écrire un code VBA
Plus de sujets relatifs à : Besoin d'aide pour VBA

Page générée en 0.031 secondes