un doublon dans une sauvegarde

[sioli]

bonjour

j'ai un repertoire nommé datas ou son sauver toutes les fiches.

le problème est des que je sauve via la macro dans ce repertoire ,d'est qu'il trouve un fichier identique la macro s'arrete est me dit qu'il y a une erreur dans une ligne.

sa marche tres bien temp qu 'il n'y a pas de doublon.

j'aurais bien voulu que d'est qu'il trouve un doublon que la macro s'arrete et je pose la question de donner un autre n° d'enregistrement.

 

[Mytå]

Salut Sioli

Tu peux joindre ta Macro qui cause problème
pour que l'on regarde la modification à
apporter.

Mytå

 

[sioli]

bonjour

je jouin ma macro.

Sub savedoc1()
'
' savedoc1 Macro
' Macro recorded 26.03.2006 by sioli g
'
Dim MonClasseur As String
MonClasseur = Range('i5') & Range('j5') & Range('m5') & Range('n5') & Range('i8') & '.xls'
ActiveSheet.Unprotect
Range('J4:N4').Select

If Range('j5').Value = '' Then
MsgBox 'Manque N° de série N° de Pcs ex:00001 - ':
Range('J5').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('m5').Value = '' Then
MsgBox 'Manque - Axles Argt Types - ':
Range('m5').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If


If Range('m11').Value = '' Then
MsgBox 'Manque N° de série Wheel Assy - Gauche - ':
Range('m11').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If


If Range('m12').Value = '' Then
MsgBox 'Manque N° de série Wheel Assy - Droite - ':
Range('m12').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('m13').Value = '' Then
MsgBox 'Manque N° du Differential Gp ':
Range('m13').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('k14').Value = '' Then
MsgBox 'Manque N° de Badges ':
Range('k14').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j20').Value = '' Then
MsgBox 'Manque Valeur - Extrémité Differentiel : 105 ± 10 Nm (nut) -':
Range('j20').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j21').Value = '' Then
MsgBox 'Manque Valeur - 300 ± 30 Nm (plug) -':
Range('j21').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j22').Value = '' Then
MsgBox 'Manque Valeur - 100 ± 20 Nm -':
Range('j22').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j24').Value = '' Then
MsgBox 'Manque Valeur - 90 ± 15 Nm -':
Range('j24').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j25').Value = '' Then
MsgBox 'Manque Valeur - 80 ± 15 Nm -':
Range('j25').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j26').Value = '' Then
MsgBox 'Manque Valeur - Couple STATIQUE = 460 Nm -':
Range('j26').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j27').Value = '' Then
MsgBox 'Manque Valeur - ± 0.025 mm -':
Range('j27').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j28').Value = '' Then
MsgBox 'Manque Relever valeur de - ROTATION après fixaction sur Housing Axle -':
Range('j28').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j30').Value = '' Then
MsgBox 'Manque Valeur - 1000 ± 125 Nm -':
Range('j30').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j31').Value = '' Then
MsgBox 'Manque Valeur - 105 ± 20 Nm -':
Range('j31').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j33').Value = '' Then
MsgBox 'Manque Valeur - Couple Bolts Fixation Trunion - 530 ± 70 Nm -':
Range('j33').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j34').Value = '' Then
MsgBox 'Manque Valeur - Couple Bolts Fixation Plate - 530 ± 70 Nm -':
Range('j34').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

If Range('j35').Value = '' Then
MsgBox 'Manque Valeur - Couple Bolts Fixation Cover - 530 ± 70 Nm -':
Range('j35').Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else: End If

Selection.Copy
Range('J41').Select
ActiveSheet.Paste
Range('J41').Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range('J41:L41').Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Selection.Merge

ActiveSheet.Unprotect
Range('a41').Select
ActiveCell.FormulaR1C1 = '1'
Range('a42').Select
ActiveCell.FormulaR1C1 = '1'

Call listencoder
Call Macro1


ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.SaveAs Filename:= _
'c:\\5428\\datas\\980\\pont fini\\' & Range('i5') & Range('j5') & Range('m5') & Range('n5') & Range('i8') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False


ChDir 'C:\\5428\\Doc vierge'
Workbooks.Open Filename:='C:\\5428\\Doc vierge\\fini 5428-71-pc-980.xls'
Range('i5').Select

Workbooks(MonClasseur).Close False
End Sub

 

[Temjeh]

Bonjour Sioli

Je n'ai pas ta réponse mais si jamais tu as dans internet explorer l'option favoris elle est très utile pour faire une gestion des questions que tu poses.

A plusieurs occasion tu ne répond même pas a des idées que l'on te donne!! Ici ce n'est pas la facon de faire. Fait-toi un devoir de te faire une liste de tes questions et ptêtre (du moins dans mon cas) on aura envie de t'aider.

Lien supprimé

...sans rancune

Temjeh

 

[sioli]

bonjour et desoler si j'ai froisser quelqu'un

s'est vrais que je pose beaucoup de question et en retour je n'envois pas l'assenceur.

en faite toutes les reponse que l'on me dit , je l'ai met en pratique .

mais mon programme est t'element compleces que pour un debutent comme moi s'ai dejas bien.

et puis je rencontre d'autre dificulter que je mis per moi mème.
s'est pour celas que je pose beaucoup de question et rien en retour.
voilas un excemple: j'avis demander comment bloquer par un mot de passe pour ne pas que l'on vienne bidouller dans mon programme.

la reponsse ma été donnée , mais voilas que au moment de la sauvegarde de la feuille excel il me redemende le mot depasse .

je devrais sauver cette feuille sans passer par le mot de passe?

voilas a quois je suis confronter.

j'ai des ou une personne qui a trifouiller mon programme malgrais que j'ai mis certein bloquage ,mais pas de mot de passe.
cet ou ces pesonne mon foutus 6 mois de datas en l'air.

un autre probleme ces que mon programme prend beaucoup de plasse que je ne s'ai meme pas le compacter pour vous le montrer.

merci a tous seus qui mon aider et je le répète que ce forums est genial j'ai des reponsse qui ne von pas tourjous a ce que je recherche mais je l'ai adapte temp miau que mal.

 

[Mytå]

Salut le Forum

Temjeh je comprend ta frustration, j'ai
plusieurs Post ici ou sur d'autres
Forums ou je n'ai pas de retour à
une solution donnée.

Un jour le Merci sera surement de retour

Amicalement Mytå

 

[Temjeh]

Comme Mytå la frustration deviens grande parfois surtout que mes connaissances sont très limitées ...donc pour répondre ca me prend des efforts.

ZAK3FR, ESTERLE, STEPH, AMO, OSCAREX, DELERIUM, LOUIS, STEPHANE, YOYO, KYTSONE, WEST, STEVEN, PILOUPILOU, NMY, FANIC ....Tous des posts sans nouvelles que j'ai répond.

Soyons donc plus vigilent!

Merci

Temjeh