MAJ d'un tableau en VBA

  • Initiateur de la discussion Initiateur de la discussion FaridP
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

FaridP

XLDnaute Occasionnel
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]
 

Pièces jointes

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]
 

Pièces jointes

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
 
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
 

Pièces jointes

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]
 

Pièces jointes

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
585
Retour