Problème enregistrement classeur Excel (+1 à chaque ouverture)
Bonjour à tous,
Ceci est mon premier message, je vais donc essayer d'être aussi clair que possible. Je me suis plongé avec bonheur dans le merveilleux monde des macros il y a plus d'un mois et jusqu'ici, tout allait pour le mieux, je ne bloquais jamais très longtemps sur un sujet (grâce à ce forum entre autres). Mais je bloque actuellement sur un sujet, j'ai beaucoup cherché sur les forums et je ne trouve rien de similaire.
Voici le problème:
Mon classeur à le nom suivant: "OutilRéception". Je l'enregistre sous puisque celui ci est ma dernière version.
Je le ferme et le re-ouvre instantanément. Le classeur qui s'ouvre maintenant a le nom "OutilRéception1". Je ne peux donc pas faire un enregistrement simple, je suis dans ce cas obligé d'enregistrer-sous ce classeur.
Si je ferme ce classeur et le rouvre encore une fois, il aura le nom "OutilRéception11". Et ainsi de suite.
Certains pourraient me demander où est le problème, je leur réponds: je veux simplement enregistrer le fichier sans devoir à chaque fois créer une copie. Ce classeur est destiné à des utilisateurs industriels, je ne veux pas qu'ils finissent avec 60 classeurs crées à la fin de la journée.
Je remercie ceux qui prendront le temps de lire ce SOS,
Gautier
Bonjour,
Quel extension à ton fichier "OutilRéception" ?
Bonjour,
Mon classeur à le nom suivant: "OutilRéception". Je l'enregistre sous puisque celui ci est ma dernière version.
Je le ferme et le re-ouvre instantanément.
Ceci est réalisé par macro ou manuellement ? Peux-tu transmettre le code VBA utilisé ?
Bonjour,
Mon classeur à le nom suivant: "OutilRéception". Je l'enregistre sous puisque celui ci est ma dernière version.
Je le ferme et le re-ouvre instantanément.
Ceci est réalisé par macro ou manuellement ? Peux-tu transmettre le code VBA utilisé ?
L'enregistrement est fait manuellement, aucune macro n'a pour but d'enregistrer
Peux-tu transmettre le code VBA utilisé ?
[/quote]
Dim NumCA As Variant, Nb_lignes As Integer, i As Integer, NumBL As Variant, ligneBRM As Variant, ligneetiq As Variant
Public ligne As Variant
Dim Datelivraison As Date
Sub Reception1()
'Proc?dure feuille R1'
'Boites de dialogue dans laquelle on rentre BL et CA'
NumCA = InputBox("Veuillez rentrer le n? de Commande d'Achat", "N? de Commande d'Achat", "Commande d'achat")
'Si on clique sur annuler, alors on sort de la proc?dure'
If NumCA = "" Then
Exit Sub
'Si on rentre un NumCA, alors la proc?dure continue'
ElseIf NumCA <> "" Then
NumBL = InputBox("Veuillez rentrer le n? de Bon de Livraison correspondant", "N? de Bon de Livraison", "Bon de livraison")
'Si on clique sur annuler, alors on sort de la proc?dure'
If NumBL = "" Then
Exit Sub
ElseIf NumBL <> "" Then
Worksheets("R2").Select
Range("C13:R330").EntireRow.Delete
'Condition : si on clique sur oui pour la validation, alors...'
If MsgBox("Num?ro de Commande d'Achat: " & NumCA & Chr(10) & "Num?ro de Bon de Livraison: " & NumBL & Chr(10) & Chr(10) & "Souhaitez-vous confirmer ces num?ros ?", vbYesNo, "Validation") = vbYes Then
'On efface le num BL en R2'
Sheets("R2").Range("B3").ClearContents
'On efface les donn?es ?crites dans R3'
Sheets("R3").Range("C13:Z300").EntireRow.Delete
'On efface le num de BL en R3'
Sheets("R3").Range("B3").ClearContents
'S?lection dans data des lignes demand?es'
Sheets("Data").Select
ActiveSheet.Range("$A$1:$AJ$14438").AutoFilter Field:=1, Criteria1:=NumCA
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A1:O14438").Select
Selection.Copy
'Collage dans R2'
Sheets("R2").Select
Range("C12").Select
ActiveSheet.Paste
'Mise en forme des cellules'
Columns("C:C").ColumnWidth = 10.73
Columns("D:D").ColumnWidth = 5.27
Columns("D:D").ColumnWidth = 4.36
Columns("F:F").ColumnWidth = 20.91
Columns("G:G").ColumnWidth = 13.73
Columns("G:G").ColumnWidth = 11.45
Columns("H:H").ColumnWidth = 8.09
Columns("G:G").ColumnWidth = 6.73
Columns("I:I").ColumnWidth = 8.09
Columns("D:D").ColumnWidth = 5.64
Columns("G:G").ColumnWidth = 10.36
Columns("G:G").ColumnWidth = 11.18
Columns("G:G").ColumnWidth = 12.09
Columns("H:H").ColumnWidth = 5.55
Columns("I:I").ColumnWidth = 9
Columns("I:I").ColumnWidth = 10
Columns("I:I").ColumnWidth = 10.64
Columns("J:J").ColumnWidth = 4.27
Columns("K:K").ColumnWidth = 11.91
Columns("M:M").ColumnWidth = 5.18
Columns("M:M").ColumnWidth = 7
Columns("M:M").ColumnWidth = 7.45
Columns("M:M").ColumnWidth = 8
Columns("P:P").ColumnWidth = 10.73
Columns("C:C").ColumnWidth = 9
With Range("C12:R12")
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'Mise en forme du tableau'
Range("C12").Select
Selection.CurrentRegion.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Range("C12").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("C10").Select
'Cacher colonnes inutiles'
With Sheets("R2")
Columns("G:G").Hidden = True
Columns("I:I").Hidden = True
Columns("M:M").Hidden = True
Columns("O:O").Hidden = True
End With
'2 options: la CA existe ou n'existe pas'
If IsEmpty(Sheets("R2").Range("C13").Value) Then
'Message d'alerte pour dire que la ca n'existe pas'
MsgBox "Aucun n? de CA ne correspond ? votre demande"
Sheets("R1").Select
Else
'Message d'alerte pour remplir les champs si la commande existe'
Sheets("R2").Select
MsgBox "Veuillez remplir les champs de Quantit? livr?e pour les lignes concern?es." & Chr(10) & _
Chr(10) & " Cette ?tape permettra de masquer les lignes dont la quantit? livr?e est ?gale ? 0 !", vbOKOnly, "Remplissage des champs"
Sheets("R2").Range("B3").Value = NumBL
End If
Else
'Si l'utilisateur clique sur non, alors les variables se remettent ? 0'
NumCA = 0
NumBL = 0
Sheets("R1").Select
MsgBox ("Annulation des donn?es ?crites" & Chr(10) & "Num?ro de Commande d'Achat: " & NumCA & Chr(10) & "Num?ro de Bon de Livraison: " & NumCA & Chr(10) & Chr(10) & "Vous pouvez recommencer la saisie en cliquant sur le bouton 'Reception1' ")
End If
End If
End If
End Sub
Sub Reception2()
'Proc?dure feuille R2'
If MsgBox("Etes vous s?r ? Cette op?ration va masquer les lignes sur lesquelles vous n'avez pas rentr? de quantit?", vbYesNo, "Valider1") = vbYes Then
'On supprime les lignes avec quantit?s vides'
Sheets("R2").Range("$C$12:$R$250").AutoFilter Field:=16, Criteria1:="="
Range("C13:R167").Select
Selection.EntireRow.Delete
ActiveSheet.Range("$C$12:$R$15").AutoFilter Field:=16
'Suppression des donn?es d?j? ?crites dans R3'
Sheets("R3").Range("C13:Z250").EntireRow.Delete
'Copie des donn?es de R2'
Sheets("R2").Range("C13:Z200").Copy
'Collage des donn?es dans R3'
Sheets("R3").Select
Range("C13").Select
ActiveSheet.Paste
'Effacer les bordures prc?dentes'
Range("C13:W13").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
'Mise en bordures des cellules'
Sheets("R3").Range("C13:W13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
Range("C12").Select
'Affiche du BL en R3'
Sheets("R3").Range("B3").Value = NumBL
'Masque les colonnes inutiles'
With Sheets("R3")
Columns("G:G").Hidden = True
Columns("I:I").Hidden = True
Columns("M:M").Hidden = True
Columns("O:O").Hidden = True
End With
'Recherche V s?rialis? ou pas'
Sheets("R3").Range("S13").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-14]<>"""",VLOOKUP(RC[-14],FA!R[-9]C[-16]:R[193427]C[-14],3,FALSE),"""")"
Range("S13").Select
Selection.AutoFill Destination:=Range("S13:S200"), Type:=xlFillDefault
Range("S13:S200").Select
Range("S196").Select
lignevide = Sheets("R3").Range("C12").End(xlDown).Row + 1
Range("A" & lignevide & ":A200").EntireRow.Delete
MsgBox "Veuillez remplir les champs 'Date de livraison', 'Type de contr?le', 'Emplacement' et 'R?ceptionnaire' pour les lignes concern?es" & Chr(10) & Chr(10) & "Format de date: JJ/MM/AAAA", vbOKOnly, "Remplissage des champs"
Sheets("R3").Range("T13").Select
Else
MsgBox "V?rifier vos informations avant de recliquer sur R?ception2", , "Annulation"
End If
End Sub
Sub Reception3()
'Proc?dure feuille R2'
'Suppression BL en R4'
Sheets("R4").Range("B3").ClearContents
'Affichage BL en R4'
Sheets("R4").Range("B3").Value = NumBL
'Suppression des donn?es d?j? ?crites dans R4'
Sheets("R4").Range("C13:AM200").EntireRow.Delete
'Copie des donn?es de R3'
Sheets("R3").Range("C13:W200").Copy
'Collage des donn?es dans R4'
Sheets("R4").Select
Range("C13").Select
ActiveSheet.Paste
'Mise du BL pour les lignes'
Dim numero2 As Integer
numero2 = 13
Do While numero2 < 200
If Sheets("R4").Range("C" & numero2).Value <> "" Then
Sheets("R4").Range("B" & numero2) = NumBL
Else
End If
numero2 = numero2 + 1
Loop
'Mise en bordures des cellules'
Sheets("R4").Range("B13:Y13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
Range("C12").Select
'Masque les colonnes inutiles'
With Sheets("R4")
Columns("G:G").Hidden = True
Columns("I:I").Hidden = True
Columns("M:M").Hidden = True
Columns("O:O").Hidden = True
Columns("T:W").Hidden = True
End With
MsgBox "Veuillez remplir les num?ros de s?rie ou les num?ros de lot. Une fois cette ?tape r?alis?e, veuillez cliquer sur le bouton Reception4 au dessus du tableau." & Chr(10) & Chr(10) & Chr(10) & "S'il n'y a pas de s?rialisation ou de lotissement, alors vous pouvez directement cliquer sur R?ception4", vbOKOnly, "N?s?ries ou N? lots"
End Sub
Sub Reception4()
Dim lg_vide As Integer, i As Integer, num As Integer, j As Integer
'Copie des donn?es stock?es en R4'
Sheets("R4").Select
i = Cells(Rows.Count, 3).End(3).Row
Range("B13:Y" & i).Copy
'Collage en der ligne'
Sheets("R5").Select
lg_vide = Cells(Rows.Count, 4).End(3).Row + 1
Cells(lg_vide, 2).Select
ActiveSheet.Paste
'Manquant ou pas'
Range("Z13").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-21],Mqt!C[-25]:C[-24],2,FALSE)),"""",""Manquant"")"
Range("Z13").Select
Selection.AutoFill Destination:=Range("Z13:Z922"), Type:=xlFillDefault
Range("Z13:Z922").Select
Range("P5").Select
'MAJ taille cellules'
Columns("C:AB").EntireColumn.AutoFit
'Supprime le contenu des feuilles R2, R3, R4'
Sheets("R2").Range("C13:Z200").EntireRow.Delete
Sheets("R3").Range("C13:Z200").EntireRow.Delete
Sheets("R4").Range("B13:Z200").EntireRow.Delete
End Sub
Sub Reception5()
'Procedure feuille R5'
ligne = InputBox("Rentrez le num?ro de ligne en R5 que vous avez contr?l?", "Num?ro ligne")
If ligne = "" Then
Exit Sub
Else
If Sheets("R5").Cells(ligne, 21).Value = "IQ" Or Sheets("R5").Cells(ligne, 21).Value = "CT" Then
Sheets("R5").Select
Range("B" & ligne & ":Y" & ligne).Copy
Sheets("IQ").Select
Range("C13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("E:E").Hidden = True
Columns("W:W").Hidden = True
Columns("U:U").Hidden = True
Columns("H:J").Hidden = True
Columns("L:R").Hidden = True
Sheets("R5").Range("B" & ligne & ":X" & ligne).EntireRow.Delete
ElseIf Sheets("R5").Cells(ligne, 21).Value = "NC" Then
'Copie des donn?es de R5'
Sheets("R5").Select
Range("B" & ligne & ":Y" & ligne).Copy
'Collage dans Stock'
Dim lg_vide3 As Integer
Sheets("Stock").Select
lg_vide3 = Cells(Rows.Count, 3).End(3).Row + 1
Cells(lg_vide3, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("R5").Range("B" & ligne & ":Y" & ligne).EntireRow.Delete
ElseIf Sheets("R5").Cells(ligne, 21).Value = "DD" Then
'Copie des donn?es de R5'
Sheets("R5").Select
Range("B" & ligne & ":Y" & ligne).Copy
'Collage dans DD'
Dim lg_vide1 As Integer
Sheets("DD").Select
lg_vide1 = Cells(Rows.Count, 3).End(3).Row + 1
Cells(lg_vide1, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("R5").Range("B" & ligne & ":Y" & ligne).EntireRow.Delete
'On cache certaines colonnes inutiles dans DD'
Sheets("DD").Columns("H:H").Hidden = True
Sheets("DD").Columns("J:J").Hidden = True
Sheets("DD").Columns("N:Q").Hidden = True
'Mise en forme cellules'
Sheets("DD").Range("C13:Z13").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThick
End With
Range("C10").Select
End If
End If
End Sub
Sub Controle1()
'Procedure IQAM'
Dim lg_vide2 As Integer, lg_vide3 As Integer
Sheets("IQ").Range("C13:AQ13").Copy
If Range("V13").Value = "IQ" Then
Sheets("Stock").Select
lg_vide2 = Cells(Rows.Count, 3).End(3).Row + 1
Cells(lg_vide2, 3).Select
ActiveSheet.Paste
Sheets("IQ").Range("C13:AQ13").ClearContents
ElseIf Range("V13").Value = "CT" Then
Sheets("CTStock").Select
lg_vide3 = Cells(Rows.Count, 3).End(3).Row + 1
Cells(lg_vide3, 3).Select
ActiveSheet.Paste
Sheets("IQ").Range("C13:AQ13").ClearContents
Sheets("CTStock").Columns("E:E").Hidden = True
Sheets("CTStock").Columns("H:H").Hidden = True
Sheets("CTStock").Columns("J:J").Hidden = True
Sheets("CTStock").Columns("N:R").Hidden = True
Sheets("CTStock").Columns("W:X").Hidden = True
Else
End If
End Sub
Sub BRM()
Sheets("BRM").Range("D5:D41").ClearContents
ligneBRM = InputBox("Rentrez le num?ro de ligne en R5 que vous voulez ?diter en BRM", "Num?ro ligne")
If ligneBRM = "" Then
Exit Sub
Else
'Le'
Sheets("R5").Range("T" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D5")
'R?alis? par'
Sheets("R5").Range("W" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D7")
'Article'
Sheets("R5").Range("E" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D10")
Sheets("R5").Range("F" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D11")
Sheets("R5").Range("L" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D12")
'Quantitee receptionnee'
Sheets("R5").Range("R" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D15")
'Destination'
Sheets("R5").Range("V" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D19")
'Achat'
Sheets("R5").Range("C" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D22")
Sheets("R5").Range("B" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D23")
Sheets("R5").Range("K" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D24")
Sheets("R5").Range("T" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D25")
'Controle'
Sheets("R5").Range("U" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D29")
'NumS?rie'
Sheets("R5").Range("X" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D32")
Sheets("R5").Range("Y" & ligneBRM).Copy Destination:=Sheets("BRM").Range("D33")
'Centrage des valeurs dans BRM'
Range("D5:D41").Select
With Selection
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Sheets("BRM").Activate
End If
End Sub
Sub ImprimerBRM()
Sheets("BRM").Range("B2:E42").Select
ActiveSheet.PageSetup.PrintArea = "$B$2:$E$42"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Sub effacerbrm()
Sheets("BRM").Range("D5:D41").Select
Selection.ClearContents
Range("G11").Select
End Sub
Sub etiquette()
Sheets("Etiq1").Range("D2:D42").ClearContents
ligneetiq = InputBox("Rentrez le num?ro de ligne en R5 que vous voulez ?diter en Etiquette", "Num?ro ligne")
If ligneetiq = "" Then
Exit Sub
Else
Sheets("R5").Range("C" & ligneetiq).Copy Destination:=Sheets("Etiq1").Range("D5") 'num ca
Sheets("R5").Range("D" & ligneetiq).Copy Destination:=Sheets("Etiq1").Range("D7") 'ligne
Sheets("R5").Range("F" & ligneetiq).Copy Destination:=Sheets("Etiq1").Range("D9") 'description
Sheets("R5").Range("E" & ligneetiq).Copy Destination:=Sheets("Etiq1").Range("D11") 'article
Sheets("R5").Range("J" & ligneetiq).Copy Destination:=Sheets("Etiq1").Range("D13") 'unit?
Sheets("R5").Range("L" & ligneetiq).Copy Destination:=Sheets("Etiq1").Range("D15") 'fournisseur
Sheets("R5").Range("V" & ligneetiq).Copy Destination:=Sheets("Etiq1").Range("D17") 'article
Sheets("R5").Range("U" & ligneetiq).Copy Destination:=Sheets("Etiq1").Range("D19") 'unit?
Sheets("R5").Range("W" & ligneetiq).Copy Destination:=Sheets("Etiq1").Range("D21") 'fournisseur
Sheets("Etiq1").Activate
End If
End Sub
Sub effaceretiq()
Sheets("Etiq1").Range("D3").Select
Selection.ClearContents
Range("G11").Select
End Sub
Sub Imprimeretiq()
Sheets("Etiq1").Range("B2:E22").Select
ActiveSheet.PageSetup.PrintArea = "$B$2:$E$22"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Sub Retouretiq()
Sheets("R5").Activate
End Sub
Mon classeur à le nom suivant: "OutilRéception". Je l'enregistre sous puisque celui ci est ma dernière version.
Je le ferme et le re-ouvre instantanément. Le classeur qui s'ouvre maintenant a le nom "OutilRéception1". Je ne peux donc pas faire un enregistrement simple, je suis dans ce cas obligé d'enregistrer-sous ce classeur.
Si je ferme ce classeur et le rouvre encore une fois, il aura le nom "OutilRéception11". Et ainsi de suite.
Je pense avoir résolu le problème. Je n'en suis pas persuadé mais depuis que je n'utilise plus la fonction =AUJOURD'HUI(), je n'ai plus le problème et je peux enregistrer sans devoir forcément passer par un enregistrer sous.
Mon classeur à le nom suivant: "OutilRéception". Je l'enregistre sous puisque celui ci est ma dernière version.
Je le ferme et le re-ouvre instantanément. Le classeur qui s'ouvre maintenant a le nom "OutilRéception1". Je ne peux donc pas faire un enregistrement simple, je suis dans ce cas obligé d'enregistrer-sous ce classeur.
Si je ferme ce classeur et le rouvre encore une fois, il aura le nom "OutilRéception11". Et ainsi de suite.
Je pense avoir résolu le problème. Je n'en suis pas persuadé mais depuis que je n'utilise plus la fonction =AUJOURD'HUI(), je n'ai plus le problème et je peux enregistrer sans devoir forcément passer par un enregistrer sous.
Finalement problème non résolu, si quelqu'un a une idée please