stephane.quinquis
XLDnaute Junior
Bonjour le Forum,
J'ai deux classeurs: enregistrement pertes et inventaire production exemple.
Je souhaite exporter des données de l'enregistrement pertes vers inventaire production.
J'ai une seule question: mon classeur enregistrement pertes aura toujours un nom différent et je ne sais pas lequel car il va changer suivant des ordres de fabrication.
Je voulais savoir comment était possible d'en tenir compte dans ma macro suivante sachant que l'inventaire production exemple lui gardera toujours le meme nom de classeur
Je vous joint deux classeurs exemples.
Merci
enregistrement pertes
Cijoint.fr - Service gratuit de dépôt de fichiers
J'ai deux classeurs: enregistrement pertes et inventaire production exemple.
Je souhaite exporter des données de l'enregistrement pertes vers inventaire production.
J'ai une seule question: mon classeur enregistrement pertes aura toujours un nom différent et je ne sais pas lequel car il va changer suivant des ordres de fabrication.
Je voulais savoir comment était possible d'en tenir compte dans ma macro suivante sachant que l'inventaire production exemple lui gardera toujours le meme nom de classeur
Code:
Sub testvalidation()
'
' testvalidation Macro
' Macro enregistrée le 12/05/2010 par quinquis
Windows("inventaire production exemple.xls").Activate
Rows("7:7").Select
Selection.Insert Shift:=xlDown
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Interior.ColorIndex = 2
Selection.Font.ColorIndex = 0
ActiveWindow.SmallScroll ToRight:=-4
Range("G7:EL7").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
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
End With
[B]Windows("enregistrement pertes.xls").Activate[/B]
Range("B7").Select
Selection.Copy
Windows("inventaire production exemple.xls").Activate
Range("A7").Select
ActiveSheet.Paste
[B]Windows("enregistrement pertes.xls").Activate[/B]
Range("C7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("inventaire production exemple.xls").Activate
Range("B7").Select
ActiveSheet.Paste
[B]Windows("enregistrement pertes.xls").Activate[/B]
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("inventaire production exemple.xls").Activate
Range("C7").Select
ActiveSheet.Paste
[B]Windows("enregistrement pertes.xls").Activate[/B]
Range("E7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("inventaire production exemple.xls").Activate
Range("D7").Select
ActiveSheet.Paste
[B]Windows("enregistrement pertes.xls").Activate[/B]
Range("F7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("inventaire production exemple.xls").Activate
Range("E7").Select
ActiveSheet.Paste
[B]Windows("enregistrement pertes.xls").Activate[/B]
Range("G7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("inventaire production exemple.xls").Activate
Range("F7").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWindow.SmallScroll ToRight:=-7
Range("B7:G7").Select
Selection.Interior.ColorIndex = 6
End Sub
Je vous joint deux classeurs exemples.
Merci
enregistrement pertes
Cijoint.fr - Service gratuit de dépôt de fichiers