nico62370
XLDnaute Nouveau
Bonjour,
J'ai enregistré et modifié le code VBA ci-dessous.
La macro permet de copier et d'enregistrer sous un autre nom une feuille excel.
A chaque lancement le message suivant apparait :
Mémoire Insuffisante.
Le fichier s'enregistre bien, sous le bon nom, dans le bon répertoire.
J'ai essayé quelques pistes laissées sur le forum mais sans succès.
Merci de votre aide.
Voici le code :
Sub copiefacture()
' copiefacture Macro
' Macro enregistrée le 02/05/2007 par nicolas
bill = Sheets("facture").Range("g4").Value
nom = Sheets("facture").Range("e8").Value
ChDir "D:\facture"
Workbooks.Open Filename:="D:\facture\classeur1.xls"
Windows("FACTURATION.xls").Activate
Range("a1:h64").Select
Selection.Copy
Windows("classeur1.xls").Activate
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.ActivateNext
Range("G4").Select
Selection.Copy
ActiveWindow.ActivateNext
Range("G4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="D:\facture\archivage\" & nom & "_" & bill & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.CutCopyMode = False
ActiveWorkbook.Close
Range("A1").Select
End Sub
J'ai enregistré et modifié le code VBA ci-dessous.
La macro permet de copier et d'enregistrer sous un autre nom une feuille excel.
A chaque lancement le message suivant apparait :
Mémoire Insuffisante.
Le fichier s'enregistre bien, sous le bon nom, dans le bon répertoire.
J'ai essayé quelques pistes laissées sur le forum mais sans succès.
Merci de votre aide.
Voici le code :
Sub copiefacture()
' copiefacture Macro
' Macro enregistrée le 02/05/2007 par nicolas
bill = Sheets("facture").Range("g4").Value
nom = Sheets("facture").Range("e8").Value
ChDir "D:\facture"
Workbooks.Open Filename:="D:\facture\classeur1.xls"
Windows("FACTURATION.xls").Activate
Range("a1:h64").Select
Selection.Copy
Windows("classeur1.xls").Activate
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.ActivateNext
Range("G4").Select
Selection.Copy
ActiveWindow.ActivateNext
Range("G4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="D:\facture\archivage\" & nom & "_" & bill & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.CutCopyMode = False
ActiveWorkbook.Close
Range("A1").Select
End Sub