MAJ d'un tableau en VBA

ChTi160

XLDnaute Barbatruc

• 17 Mars 2006

• #2

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

• ExportV1.zip

  10.3 KB · Affichages: 17

Vote positif 0 Vote négatif

FaridP

XLDnaute Occasionnel

• 17 Mars 2006

• #3

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 17 Mars 2006

• #4

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

• Test_20060317175727.zip

  43.1 KB · Affichages: 14

Vote positif 0 Vote négatif

FaridP

XLDnaute Occasionnel

• 17 Mars 2006

• #5

Super Beau Travail.. !!!

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



A bientôt
Farid

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 17 Mars 2006

• #6

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 17 Mars 2006

• #7

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]

 

Pièces jointes

• Tableau_20060317182038.zip

  42.6 KB · Affichages: 13

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 17 Mars 2006

• #8

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 17 Mars 2006

• #9

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

• Test_20060317212932.zip

  46.1 KB · Affichages: 15

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 18 Mars 2006

• #10

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 18 Mars 2006

• #11

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

 

Vote positif 0 Vote négatif