bonjour,
Je n'arrive pas à faire tourner la boucle sur le fichier original après avoir avoir créer et sauvegarder et traiter (copier , coller, masquer un onglet ) un fichier .
J'arrive à rebasculer sur le fichier original, mais la macro s'arrête là sur un autre module!
quelqu'un peut il m'aider?
Sub CreateForm()
'
' Création des formulaire budget
Dim ClasseurSource As String, Chemin As String, Extension As String, nomfichier As String
Dim WbFF As String
Dim RCur As Range
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Extension = ".xlsm"
nomfichier = CC.Range("AB2")
Chemin = data.Range("Rep")
Wbname = ThisWorkbook.Name
ClasseurSource = ActiveWorkbook.Name
repertoire = [Rep] & "\"
With ActiveWorkbook
For Each RCur In Worksheets("data").Range("B2:B78")
.SaveAs Filename:=Chemin & nomfichier & Extension
extraction = ActiveWorkbook.Name
CC.Range("E1:L170").Copy
CC.Range("E1:L170").PasteSpecial Paste:=xlPasteValues
.Sheets("base").Delete
Sheets("data").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("CC").Select
Workbooks.Open ClasseurSource
Application.DisplayAlerts = False
Application.CutCopyMode = False
Windows(extraction).Close True
Next RCur
End With
End Sub
Je n'arrive pas à faire tourner la boucle sur le fichier original après avoir avoir créer et sauvegarder et traiter (copier , coller, masquer un onglet ) un fichier .
J'arrive à rebasculer sur le fichier original, mais la macro s'arrête là sur un autre module!
quelqu'un peut il m'aider?
Sub CreateForm()
'
' Création des formulaire budget
Dim ClasseurSource As String, Chemin As String, Extension As String, nomfichier As String
Dim WbFF As String
Dim RCur As Range
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
Extension = ".xlsm"
nomfichier = CC.Range("AB2")
Chemin = data.Range("Rep")
Wbname = ThisWorkbook.Name
ClasseurSource = ActiveWorkbook.Name
repertoire = [Rep] & "\"
With ActiveWorkbook
For Each RCur In Worksheets("data").Range("B2:B78")
.SaveAs Filename:=Chemin & nomfichier & Extension
extraction = ActiveWorkbook.Name
CC.Range("E1:L170").Copy
CC.Range("E1:L170").PasteSpecial Paste:=xlPasteValues
.Sheets("base").Delete
Sheets("data").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("CC").Select
Workbooks.Open ClasseurSource
Application.DisplayAlerts = False
Application.CutCopyMode = False
Windows(extraction).Close True
Next RCur
End With
End Sub