MAJ d'un tableau en VBA

[FaridP]

Bonjour à Tous,

Voilà je vous joins 2 fichiers en sollicitant votre aide (Comme d'hab' ).
En fait je souhaiterais pouvoir mettre à jour mon 'Tableau' à l'aide des informations contenues dans mon fichier 'Export' selon 2 clés mise en évidence sans le 'Tableau' (Keycode et Date)

Le GROS souci c'est que je ne veux absolument aucune formule, donc pas il ne reste que la solution VBA... Seulement voila, je suis une bille en VBA.

Qui sera mon Zorro ?

Merci à Tous et Que la Force soit avec Vous
A Bientôt
Farid [file name=Farid_20060317144302.zip size=36071]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Farid_20060317144302.zip[/file]

 

[ChTi160]

FaridP

en pièce jointe une premiere approche il faut que les deux classeurs soient ouvert
je ne renvoie qu'un des deux fichiers
tiens nous au courant
bonne fin de Journée [file name=ExportV1.zip size=10569]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExportV1.zip[/file]

 

[FaridP]

Bonjour Jean-Marie,

Tout d'abord, je tiens à te remercier pour ton travail et ton dévouement...
Lorsque j'essaie de lancer la MAJ, j'ai le message suivant :

'For Each Item In .Range('maPlage')'

Que dois-je faire ?
Désolé de te saouler avec tout ça
Encore merci à toi... Mon Zorro
Farid

 

[ChTi160]

re FaridP

normal je ne t'es envoyé qu'un seul fichier alors que j'ai dans l'autre nommé la plage des date ('B12:B69') du fichier tableau 'maPlage'
je vais te renvoyé les deux car j'ai oublié de me servir de KeyCode lors de la comparaison des dates,il faut aussi que le code de la colonne 3 corresponde au Keycode
j'ai aussi modifié quelles formules pour éviter l'affichage des erreurs tu finiras lol
donc je te renvoye les deux [file name=Test_20060317175727.zip size=44127]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20060317175727.zip[/file]

Message édité par: Chti160, à: 17/03/2006 17:58

 

[FaridP]

Super Beau Travail.. !!!

Merci pour tout et ...
Que la Lumière t'éclaire !



A bientôt
Farid

 

[ChTi160]

merci
Effectivement la nuit va tombée lol
n'hésite pas à repasser nous voir si problème
bon Week End

 

[jp14]

Bonsoir le fil

Ci joint le fichier avec macro paramètrable à terminer.

Bon W.E [file name=Tableau_20060317182038.zip size=43657]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tableau_20060317182038.zip[/file]

 

[ChTi160]

Salut jp14

je tiens à te dire que j'aime ce que tu fais autant que ton style .
Moi qui apprends je te remercie
bon Week End

 

[ChTi160]

re
je mets une autre version
car comme tu as du t'en rendre compte je n'avais pas vu qu'il y avait plusieurs item par date donc cette version fait la somme de ces items
tu ouvres ExportV1.xls est tu lances Lol
bon Week End [file name=Test_20060317212932.zip size=47234]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20060317212932.zip[/file]

 

[jp14]

Bonsoir ChTi160, FaridP


Comme on neutralise l'erreur sur l'ouverture du fichier on n'a pas de retour d'information.

Ci dessous un morceau de code qui permet de vérifier si le fichier est ouvert.

' vérification fichier ouvert
trouve = 1
For i = 1 To Workbooks.Count

If Workbooks(i).Name = 'Export.xls' Then
trouve = 0' nom à remplacer en fonction de l'application
Exit For
End If
Next i

If trouve = 1 Then
title1 = ' Ouverture fichier'
Msg = ' Fichier Export.xls non trouvé '
Style = vbOKCancel + vbCritical + vbDefaultButton2
' Affiche le message pour validation.
Reponse2 = MsgBox(Msg, Style, title1)
If Reponse2 = vbCancel Then Exit Sub
End If


Bon W. E.

Message édité par: jp14, à: 20/03/2006 12:24

 

[ChTi160]

Salut FaridP,jp14
le problème si problème il y a c'est que moi la macro je la lance du fichier Export.xls vers le fichier mois .
mais il est bon de prévoir ce genre de Vérif merci jp
bonne fin de Soirée
bon Week End