comportement macro différent selon excel 07 PME ou famille
2 réponses
ptck
Bonsoir
j'ai ce bout de code dans une macro
elle marche bien sur excel 2007 office famille mais pas avec excel 2007 PME
une feuille (1) est créée alors que l'onglet fabrication existe.
si vous avez une idée
merci
ptck
'*******création de la feuille Fabrication si elle n'existe pas*********
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Essaie ceci : '------------------------------------------ Sub test() Dim Sh As Worksheet, Feuille As String Feuille = ActiveSheet.Name Application.ScreenUpdating = False On Error Resume Next Set Sh = Worksheets("Fabrication") If Err <> 0 Then Err.Clear Worksheets.Add(before:=Sheets(1)).Name = "Fabrication" With ActiveSheet .Name = "Fabrication" .Range("A1") = "N° Lot" .Range("B1") = "Nom Matières ingrédients" .Range("C1") = "Lot Matières ingrédients" .Range("D1") = "Quantité" .Range("E1") = "Onglet" .Range("F1") = "Semaine" .Range("G1") = "mise en baratte" .Range("A1:G1").Font.Bold = True .Range("A1:G1").EntireColumn.AutoFit .HorizontalAlignment = xlCenter End With Sheets(Feuille).Activate End If End Sub '------------------------------------------
"ptck" a écrit dans le message de groupe de discussion :
Bonsoir
j'ai ce bout de code dans une macro elle marche bien sur excel 2007 office famille mais pas avec excel 2007 PME une feuille (1) est créée alors que l'onglet fabrication existe.
si vous avez une idée
merci ptck
'*******création de la feuille Fabrication si elle n'existe pas*********
Essaie ceci :
'------------------------------------------
Sub test()
Dim Sh As Worksheet, Feuille As String
Feuille = ActiveSheet.Name
Application.ScreenUpdating = False
On Error Resume Next
Set Sh = Worksheets("Fabrication")
If Err <> 0 Then
Err.Clear
Worksheets.Add(before:=Sheets(1)).Name = "Fabrication"
With ActiveSheet
.Name = "Fabrication"
.Range("A1") = "N° Lot"
.Range("B1") = "Nom Matières ingrédients"
.Range("C1") = "Lot Matières ingrédients"
.Range("D1") = "Quantité"
.Range("E1") = "Onglet"
.Range("F1") = "Semaine"
.Range("G1") = "mise en baratte"
.Range("A1:G1").Font.Bold = True
.Range("A1:G1").EntireColumn.AutoFit
.HorizontalAlignment = xlCenter
End With
Sheets(Feuille).Activate
End If
End Sub
'------------------------------------------
"ptck" <nospampatrickaubert@neuf.fr> a écrit dans le message de groupe de discussion :
OcxPCIZgJHA.5572@TK2MSFTNGP02.phx.gbl...
Bonsoir
j'ai ce bout de code dans une macro
elle marche bien sur excel 2007 office famille mais pas avec excel 2007 PME
une feuille (1) est créée alors que l'onglet fabrication existe.
si vous avez une idée
merci
ptck
'*******création de la feuille Fabrication si elle n'existe pas*********
Essaie ceci : '------------------------------------------ Sub test() Dim Sh As Worksheet, Feuille As String Feuille = ActiveSheet.Name Application.ScreenUpdating = False On Error Resume Next Set Sh = Worksheets("Fabrication") If Err <> 0 Then Err.Clear Worksheets.Add(before:=Sheets(1)).Name = "Fabrication" With ActiveSheet .Name = "Fabrication" .Range("A1") = "N° Lot" .Range("B1") = "Nom Matières ingrédients" .Range("C1") = "Lot Matières ingrédients" .Range("D1") = "Quantité" .Range("E1") = "Onglet" .Range("F1") = "Semaine" .Range("G1") = "mise en baratte" .Range("A1:G1").Font.Bold = True .Range("A1:G1").EntireColumn.AutoFit .HorizontalAlignment = xlCenter End With Sheets(Feuille).Activate End If End Sub '------------------------------------------
"ptck" a écrit dans le message de groupe de discussion :
Bonsoir
j'ai ce bout de code dans une macro elle marche bien sur excel 2007 office famille mais pas avec excel 2007 PME une feuille (1) est créée alors que l'onglet fabrication existe.
si vous avez une idée
merci ptck
'*******création de la feuille Fabrication si elle n'existe pas*********
Essaie ceci : '------------------------------------------ Sub test() Dim Sh As Worksheet, Feuille As String Feuille = ActiveSheet.Name Application.ScreenUpdating = False On Error Resume Next Set Sh = Worksheets("Fabrication") If Err <> 0 Then Err.Clear Worksheets.Add(before:=Sheets(1)).Name = "Fabrication" With ActiveSheet .Name = "Fabrication" .Range("A1") = "N° Lot" .Range("B1") = "Nom Matières ingrédients" .Range("C1") = "Lot Matières ingrédients" .Range("D1") = "Quantité" .Range("E1") = "Onglet" .Range("F1") = "Semaine" .Range("G1") = "mise en baratte" .Range("A1:G1").Font.Bold = True .Range("A1:G1").EntireColumn.AutoFit .HorizontalAlignment = xlCenter End With Sheets(Feuille).Activate End If End Sub '------------------------------------------
"ptck" a écrit dans le message de groupe de discussion :
Bonsoir
j'ai ce bout de code dans une macro elle marche bien sur excel 2007 office famille mais pas avec excel 2007 PME une feuille (1) est créée alors que l'onglet fabrication existe.
si vous avez une idée
merci ptck
'*******création de la feuille Fabrication si elle n'existe pas*********
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
D9C6648E-AF7E-45CB-AC91-7A671DF34C6B@microsoft.com...
Essaie ceci :
'------------------------------------------
Sub test()
Dim Sh As Worksheet, Feuille As String
Feuille = ActiveSheet.Name
Application.ScreenUpdating = False
On Error Resume Next
Set Sh = Worksheets("Fabrication")
If Err <> 0 Then
Err.Clear
Worksheets.Add(before:=Sheets(1)).Name = "Fabrication"
With ActiveSheet
.Name = "Fabrication"
.Range("A1") = "N° Lot"
.Range("B1") = "Nom Matières ingrédients"
.Range("C1") = "Lot Matières ingrédients"
.Range("D1") = "Quantité"
.Range("E1") = "Onglet"
.Range("F1") = "Semaine"
.Range("G1") = "mise en baratte"
.Range("A1:G1").Font.Bold = True
.Range("A1:G1").EntireColumn.AutoFit
.HorizontalAlignment = xlCenter
End With
Sheets(Feuille).Activate
End If
End Sub
'------------------------------------------
"ptck" <nospampatrickaubert@neuf.fr> a écrit dans le message de groupe de
discussion :
OcxPCIZgJHA.5572@TK2MSFTNGP02.phx.gbl...
Bonsoir
j'ai ce bout de code dans une macro
elle marche bien sur excel 2007 office famille mais pas avec excel 2007
PME
une feuille (1) est créée alors que l'onglet fabrication existe.
si vous avez une idée
merci
ptck
'*******création de la feuille Fabrication si elle n'existe pas*********
Essaie ceci : '------------------------------------------ Sub test() Dim Sh As Worksheet, Feuille As String Feuille = ActiveSheet.Name Application.ScreenUpdating = False On Error Resume Next Set Sh = Worksheets("Fabrication") If Err <> 0 Then Err.Clear Worksheets.Add(before:=Sheets(1)).Name = "Fabrication" With ActiveSheet .Name = "Fabrication" .Range("A1") = "N° Lot" .Range("B1") = "Nom Matières ingrédients" .Range("C1") = "Lot Matières ingrédients" .Range("D1") = "Quantité" .Range("E1") = "Onglet" .Range("F1") = "Semaine" .Range("G1") = "mise en baratte" .Range("A1:G1").Font.Bold = True .Range("A1:G1").EntireColumn.AutoFit .HorizontalAlignment = xlCenter End With Sheets(Feuille).Activate End If End Sub '------------------------------------------
"ptck" a écrit dans le message de groupe de discussion :
Bonsoir
j'ai ce bout de code dans une macro elle marche bien sur excel 2007 office famille mais pas avec excel 2007 PME une feuille (1) est créée alors que l'onglet fabrication existe.
si vous avez une idée
merci ptck
'*******création de la feuille Fabrication si elle n'existe pas*********