comportement macro différent selon excel 07 PME ou famille

Le
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*********

On Error Resume Next
Worksheets("Fabrication").Select
If Err <> 0 Then Worksheets.Add(before:=Sheets(1)).Name = "Fabrication" _
: [A1] = "N° Lot": [B1] = "Nom Matières ingrédients": [C1] = "Lot
Matières ingrédients" _
: [D1] = "Quantité": [E1] = "Onglet": [F1] = "Semaine": [G1] = "mise en
baratte" _
: Range("A1:G1").Select: Selection.Font.Bold = True:
Selection.HorizontalAlignment = xlCenter
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #18518361
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"
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*********

On Error Resume Next
Worksheets("Fabrication").Select
If Err <> 0 Then Worksheets.Add(before:=Sheets(1)).Name = "Fabrication" _
: [A1] = "N° Lot": [B1] = "Nom Matières ingrédients": [C1] = "Lot
Matières ingrédients" _
: [D1] = "Quantité": [E1] = "Onglet": [F1] = "Semaine": [G1] = "mise en
baratte" _
: Range("A1:G1").Select: Selection.Font.Bold = True:
Selection.HorizontalAlignment = xlCenter
ptck
Le #18527911
je vais essayer
merci



"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" 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*********

On Error Resume Next
Worksheets("Fabrication").Select
If Err <> 0 Then Worksheets.Add(before:=Sheets(1)).Name = "Fabrication"
_
: [A1] = "N° Lot": [B1] = "Nom Matières ingrédients": [C1] = "Lot
Matières ingrédients" _
: [D1] = "Quantité": [E1] = "Onglet": [F1] = "Semaine": [G1] = "mise en
baratte" _
: Range("A1:G1").Select: Selection.Font.Bold = True:
Selection.HorizontalAlignment = xlCenter





Publicité
Poster une réponse
Anonyme