Un problème avec VBA

aqcic à dit:

Je ne suis pas bon en VBA, mais j'essaie de réparer un fichier et je souhaite avoir l’aide des forumistes.
Dans le fichier ci-joint, les 2 boutons de la 1ere feuille ne marchent pas. Le nom de fichier est bon, mais dans le VBA ça bloque la dessus. 🙁
Merci d’avance.

Cliquez pour agrandir...

Sub iso_suivant2()
' iso_suivant2 Macro

ActiveSheet.Unprotect
Sheets("Listing").Select
Rows("12:15").EntireRow.Hidden = False
Rows("13:13").Copy
Rows("15:15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Rows("13:14").EntireRow.Hidden = True
Sheets("Bordereau PF tuyauterie").Select
Sheets("Bordereau PF tuyauterie").Copy After:=Workbooks( _
    "5-Feuilles tuyauterie.xls").Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("5-tuyauterie.xls").Activate
Range("D9:L9").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
MsgBox "renommer l'onglet dans feuilles tuyauterie"
End Sub

Robert à dit:

Sub iso_suivant2()
' iso_suivant2 Macro

ActiveSheet.Unprotect
Sheets("Listing").Select
Rows("12:15").EntireRow.Hidden = False
Rows("13:13").Copy
Rows("15:15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Rows("13:14").EntireRow.Hidden = True
Sheets("Bordereau PF tuyauterie").Select
Sheets("Bordereau PF tuyauterie").Copy After:=Workbooks( _
"5-Feuilles tuyauterie.xls").Sheets(1)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Windows("5-tuyauterie.xls").Activate
Range("D9:L9").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
MsgBox "renommer l'onglet dans feuilles tuyauterie"
End Sub

Cliquez pour agrandir...

Application.screenUpdating = false
en début de macro
Application.screenUpdating = true
en fin de macro

Cliquez pour agrandir...

Robert à dit:

Bonjour le fil, bonjour le forum,

Si ça plante sur cette ligne c'est, je pense, que le fichier 5-Feuilles tuyauterie.xls n'est pas ouvert ou que le nom du fichier ouvert n'est pas strictement identique (vérifier les espaces, les tirets, etc...)

Cliquez pour agrandir...