Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Bonjour,
On ne peut exécuter une macro sans d'abord ouvrir le classeur. Une fois
que le classeur est ouvert, on peut lui faire exécuter une/des macro(s)
automatiquement, comme d'autres te l'ont déjà expliqué, plus haut/plus
bas.
"Fred" a écrit dans le message de
news: e6jl2i$gs0$Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Bonjour,
On ne peut exécuter une macro sans d'abord ouvrir le classeur. Une fois
que le classeur est ouvert, on peut lui faire exécuter une/des macro(s)
automatiquement, comme d'autres te l'ont déjà expliqué, plus haut/plus
bas.
"Fred" <nospam_fcouturier@partner.auchan.fr> a écrit dans le message de
news: e6jl2i$gs0$1@reader1.imaginet.fr...
Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Bonjour,
On ne peut exécuter une macro sans d'abord ouvrir le classeur. Une fois
que le classeur est ouvert, on peut lui faire exécuter une/des macro(s)
automatiquement, comme d'autres te l'ont déjà expliqué, plus haut/plus
bas.
"Fred" a écrit dans le message de
news: e6jl2i$gs0$Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Ok, donc si je comprends bien, une fois le classeur ouvert une première
fois, on peut faire en sorte qu'à la prochaine ouverture, la macro se
déclenche toute seule ?
Donc ou dois-je mettre ce
Private Sub Workbook_Open()
Call test01
End Sub
sachant que la macro actuelle est celle-ci :
Sub analyse01()
'
'
'
ChDir "C:temp"
Workbooks.OpenText Filename:="C:tempANALYSE.TXT", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:=True,
Comma:úlse _
, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 1),
Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 5), Array(7, 2),
Array(8, 1), Array(9, 1)), _
TrailingMinusNumbers:=True
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Site"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Num Pack"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Job"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Libellé"
Range("E1").Select
ActiveCell.FormulaR1C1 = "CR"
Range("F1").Select
ActiveCell.FormulaR1C1 = "Date Soum."
Range("G1").Select
ActiveCell.FormulaR1C1 = "Heure"
Range("H1").Select
ActiveCell.FormulaR1C1 = "Durée"
Range("I1").Select
ActiveCell.FormulaR1C1 = "Projet"
Rows("1:1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Bold = True
Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit
Columns("B:B").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveWindow.SmallScroll Down:=-9
Range("A1:I1").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Columns("A:I").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
ActiveWorkbook.SaveAs Filename:="C:tempANALYSE.htm",
FileFormat:=xlHtml, _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
--
Cordialement,
Frédéric Couturier
--------------------------------------------------------------
Direction Technique Informatique
Département Gestion de l'Infrastructure
Administration, Exploitation, Assistance
--------------------------------------------------------------
"Clément Marcotte" a écrit dans le message
de news:Bonjour,
On ne peut exécuter une macro sans d'abord ouvrir le classeur. Une fois
que le classeur est ouvert, on peut lui faire exécuter une/des macro(s)
automatiquement, comme d'autres te l'ont déjà expliqué, plus haut/plus
bas.
"Fred" a écrit dans le message de
news: e6jl2i$gs0$Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Ok, donc si je comprends bien, une fois le classeur ouvert une première
fois, on peut faire en sorte qu'à la prochaine ouverture, la macro se
déclenche toute seule ?
Donc ou dois-je mettre ce
Private Sub Workbook_Open()
Call test01
End Sub
sachant que la macro actuelle est celle-ci :
Sub analyse01()
'
'
'
ChDir "C:temp"
Workbooks.OpenText Filename:="C:tempANALYSE.TXT", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:=True,
Comma:úlse _
, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 1),
Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 5), Array(7, 2),
Array(8, 1), Array(9, 1)), _
TrailingMinusNumbers:=True
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Site"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Num Pack"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Job"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Libellé"
Range("E1").Select
ActiveCell.FormulaR1C1 = "CR"
Range("F1").Select
ActiveCell.FormulaR1C1 = "Date Soum."
Range("G1").Select
ActiveCell.FormulaR1C1 = "Heure"
Range("H1").Select
ActiveCell.FormulaR1C1 = "Durée"
Range("I1").Select
ActiveCell.FormulaR1C1 = "Projet"
Rows("1:1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Bold = True
Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit
Columns("B:B").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveWindow.SmallScroll Down:=-9
Range("A1:I1").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Columns("A:I").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
ActiveWorkbook.SaveAs Filename:="C:tempANALYSE.htm",
FileFormat:=xlHtml, _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
--
Cordialement,
Frédéric Couturier
--------------------------------------------------------------
Direction Technique Informatique
Département Gestion de l'Infrastructure
Administration, Exploitation, Assistance
--------------------------------------------------------------
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: OY2TSgijGHA.3496@TK2MSFTNGP02.phx.gbl...
Bonjour,
On ne peut exécuter une macro sans d'abord ouvrir le classeur. Une fois
que le classeur est ouvert, on peut lui faire exécuter une/des macro(s)
automatiquement, comme d'autres te l'ont déjà expliqué, plus haut/plus
bas.
"Fred" <nospam_fcouturier@partner.auchan.fr> a écrit dans le message de
news: e6jl2i$gs0$1@reader1.imaginet.fr...
Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Ok, donc si je comprends bien, une fois le classeur ouvert une première
fois, on peut faire en sorte qu'à la prochaine ouverture, la macro se
déclenche toute seule ?
Donc ou dois-je mettre ce
Private Sub Workbook_Open()
Call test01
End Sub
sachant que la macro actuelle est celle-ci :
Sub analyse01()
'
'
'
ChDir "C:temp"
Workbooks.OpenText Filename:="C:tempANALYSE.TXT", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:úlse, Tab:úlse, Semicolon:=True,
Comma:úlse _
, Space:úlse, Other:úlse, FieldInfo:=Array(Array(1, 1),
Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 5), Array(7, 2),
Array(8, 1), Array(9, 1)), _
TrailingMinusNumbers:=True
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Site"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Num Pack"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Job"
Range("D1").Select
ActiveCell.FormulaR1C1 = "Libellé"
Range("E1").Select
ActiveCell.FormulaR1C1 = "CR"
Range("F1").Select
ActiveCell.FormulaR1C1 = "Date Soum."
Range("G1").Select
ActiveCell.FormulaR1C1 = "Heure"
Range("H1").Select
ActiveCell.FormulaR1C1 = "Durée"
Range("I1").Select
ActiveCell.FormulaR1C1 = "Projet"
Rows("1:1").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Font.Bold = True
Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit
Columns("B:B").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveWindow.SmallScroll Down:=-9
Range("A1:I1").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Columns("A:I").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
ActiveWorkbook.SaveAs Filename:="C:tempANALYSE.htm",
FileFormat:=xlHtml, _
ReadOnlyRecommended:úlse, CreateBackup:úlse
End Sub
--
Cordialement,
Frédéric Couturier
--------------------------------------------------------------
Direction Technique Informatique
Département Gestion de l'Infrastructure
Administration, Exploitation, Assistance
--------------------------------------------------------------
"Clément Marcotte" a écrit dans le message
de news:Bonjour,
On ne peut exécuter une macro sans d'abord ouvrir le classeur. Une fois
que le classeur est ouvert, on peut lui faire exécuter une/des macro(s)
automatiquement, comme d'autres te l'ont déjà expliqué, plus haut/plus
bas.
"Fred" a écrit dans le message de
news: e6jl2i$gs0$Bonjour,
Sachant que j'ai un fichier excel Classeur1.xls contenant une macro
test01, comment faire pour éxecuter la macro directement à partir du dos
???
C'est dans le but de l'inclure dans un CL as400.
Merci
Fred
Bonjour,
Si la macro s'appelle analyse01, il faut appeler l'appeler dans le
Workbook_open.
Private sub Workbook_open
analyse01
end sub
Le Call n'est pas vraiment nécessaire sauf en cas de passage de
paramètres. La macro analyse01 va s'exécuter à chaque fois que le classeur
sera ouvert.
Si on veut la réutiliser une fois que le classeur est déjà ouvert, on peut
l'appeler d'un bouton; l'un n'empêche pas l'autre.
Quant à savoir si le mainframe peut ouvrir Excel, là ça dépasse mes
compétences.
Bonjour,
Si la macro s'appelle analyse01, il faut appeler l'appeler dans le
Workbook_open.
Private sub Workbook_open
analyse01
end sub
Le Call n'est pas vraiment nécessaire sauf en cas de passage de
paramètres. La macro analyse01 va s'exécuter à chaque fois que le classeur
sera ouvert.
Si on veut la réutiliser une fois que le classeur est déjà ouvert, on peut
l'appeler d'un bouton; l'un n'empêche pas l'autre.
Quant à savoir si le mainframe peut ouvrir Excel, là ça dépasse mes
compétences.
Bonjour,
Si la macro s'appelle analyse01, il faut appeler l'appeler dans le
Workbook_open.
Private sub Workbook_open
analyse01
end sub
Le Call n'est pas vraiment nécessaire sauf en cas de passage de
paramètres. La macro analyse01 va s'exécuter à chaque fois que le classeur
sera ouvert.
Si on veut la réutiliser une fois que le classeur est déjà ouvert, on peut
l'appeler d'un bouton; l'un n'empêche pas l'autre.
Quant à savoir si le mainframe peut ouvrir Excel, là ça dépasse mes
compétences.
Bonjour,
Si la macro s'appelle analyse01, il faut appeler l'appeler dans le
Workbook_open.
Private sub Workbook_open
analyse01
end sub
Le Call n'est pas vraiment nécessaire sauf en cas de passage de
paramètres. La macro analyse01 va s'exécuter à chaque fois que le
classeur sera ouvert.
Si on veut la réutiliser une fois que le classeur est déjà ouvert, on
peut l'appeler d'un bouton; l'un n'empêche pas l'autre.
Quant à savoir si le mainframe peut ouvrir Excel, là ça dépasse mes
compétences.
Re-bonjour
Fred, j'ai l'impression que tu n'as pas lu le lien que je t'ai donné.
Il t'indique où tu dois placer la macro. Je le remets ici:
http://www.excelabo.net/xl/macros.php#macrocréation
Clément soulève toutefois un point intéressant, à savoir: le serveur
est-il capable d'ouvrir le fichier Excel ?
Je pense que, pour cela, il est nécessaire qu'Excel soit installé sur ce
dernier, si possible avec la même version que celle installée sur les
postes de travail.
Bonne continuation
Bonjour,
Si la macro s'appelle analyse01, il faut appeler l'appeler dans le
Workbook_open.
Private sub Workbook_open
analyse01
end sub
Le Call n'est pas vraiment nécessaire sauf en cas de passage de
paramètres. La macro analyse01 va s'exécuter à chaque fois que le
classeur sera ouvert.
Si on veut la réutiliser une fois que le classeur est déjà ouvert, on
peut l'appeler d'un bouton; l'un n'empêche pas l'autre.
Quant à savoir si le mainframe peut ouvrir Excel, là ça dépasse mes
compétences.
Re-bonjour
Fred, j'ai l'impression que tu n'as pas lu le lien que je t'ai donné.
Il t'indique où tu dois placer la macro. Je le remets ici:
http://www.excelabo.net/xl/macros.php#macrocréation
Clément soulève toutefois un point intéressant, à savoir: le serveur
est-il capable d'ouvrir le fichier Excel ?
Je pense que, pour cela, il est nécessaire qu'Excel soit installé sur ce
dernier, si possible avec la même version que celle installée sur les
postes de travail.
Bonne continuation
Bonjour,
Si la macro s'appelle analyse01, il faut appeler l'appeler dans le
Workbook_open.
Private sub Workbook_open
analyse01
end sub
Le Call n'est pas vraiment nécessaire sauf en cas de passage de
paramètres. La macro analyse01 va s'exécuter à chaque fois que le
classeur sera ouvert.
Si on veut la réutiliser une fois que le classeur est déjà ouvert, on
peut l'appeler d'un bouton; l'un n'empêche pas l'autre.
Quant à savoir si le mainframe peut ouvrir Excel, là ça dépasse mes
compétences.
Re-bonjour
Fred, j'ai l'impression que tu n'as pas lu le lien que je t'ai donné.
Il t'indique où tu dois placer la macro. Je le remets ici:
http://www.excelabo.net/xl/macros.php#macrocréation
Clément soulève toutefois un point intéressant, à savoir: le serveur
est-il capable d'ouvrir le fichier Excel ?
Je pense que, pour cela, il est nécessaire qu'Excel soit installé sur ce
dernier, si possible avec la même version que celle installée sur les
postes de travail.
Bonne continuation
