Bonsoir Zon et le forum
Je te remrcie pour ta réponse mais je ne comprend pas très bien, je suis
désolé
(.
Je n'arrive pas à faire fonctionner la procédure.
Donc, si j'ai bien compris:
A) Je créé un module avec le code suivant:
sub OuvrirFichier(NomC$,NomSauv$)
dim C as workbook
on error resume next
set c= Workbooks.Open (Nomc)
on error goto 0
with C
.saveas Nomsauv
macrokiller .name
.close 1
end with
end sub
B) Ensuite, je créé un autre module avec le code suivant:
Sub MacroKiller(NomC$)
Dim VBC As Object, Wbk As Workbook
Set Wbk = Workbooks(NomC)
With Wbk.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
End Sub
C) Dans le code du usf je remplace les lignes suivantes:
If Response = vbYes Then
MyString = "Oui"
Workbooks.Open Filename:="C:\Laiterie Michel\Historique Cartierville.xls"
Workbooks("Historique Cartierville.xls").SaveAs ("C:\Laiterie Michel\backup 2004\" & ChoixMois & " Historique Cartierville")
Workbooks.Open Filename:="C:\Laiterie Michel\Historique Ste-Rose.xls"
Workbooks("Historique Ste-Rose.xls").SaveAs ("C:\Laiterie Michel\backup 2004\" & ChoixMois & " Historique Ste-Rose")
Workbooks("Compilation mensuelle.xls").SaveAs ("C:\Laiterie Michel\backup 2004\" & ChoixMois & " Compilation mensuelle")
Unload Me
Workbooks(ChoixMois & " Historique Cartierville.xls").Close SaveChanges:=True
Workbooks(ChoixMois & " Historique Ste-Rose.xls").Close SaveChanges:=True
Workbooks(ChoixMois & " Compilation mensuelle.xls").Close SaveChanges:=True
par celle-ci:
If Response = vbYes Then
MyString = "Oui"
ouvrirfichier "C:\Laiterie Michel\Historique Cartierville.xls","C:\Laiterie Michel\backup 2004\" & ChoixMois & " Historique Cartierville"
ouvrirfichier "C:\Laiterie Michel\Historique Ste-Rose.xls","C:\Laiterie Michel\backup 2004\" & ChoixMois & " Historique Ste-Rose"
ouvrirfichier Activeworkbook.name, ("C:\Laiterie Michel\backup 2004\" & ChoixMois & " Compilation mensuelle")
D) Question: quand est-ce que tu appelles (call) les deux nouvelles procédures?
Je te remercie pour ton aide.
Jean P.