E
Eric
Guest
Bonjour tout le monde,
J ai une macro qui ouvrir un fivhier excel et qui me copie un range pour me le coller dans mon second fichier. Mais je veux que la macro me ferme le fichier source sans m afficher le message voulez vous enregistre les mmodif, 1 j ai pas fais de modif et 2 je veux le ferme sans cette boite qui s ouvre.
Sub Macro1()
ChDir 'C:\\Documents and Settings\\TRAD\\Desktop'
Workbooks.Open Filename:='C:\\Documents and Settings\\TRAD\\Desktop\\source.xls'
Range('E11:G17').Copy
Windows('~final2.xls').Activate
Range('Z5').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('Z5:ab11').Copy
Range('P6').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range('Z5:ab11').ClearContents
Windows('source.xls').Close
end sub
POuvez vous m aider please?
J ai une macro qui ouvrir un fivhier excel et qui me copie un range pour me le coller dans mon second fichier. Mais je veux que la macro me ferme le fichier source sans m afficher le message voulez vous enregistre les mmodif, 1 j ai pas fais de modif et 2 je veux le ferme sans cette boite qui s ouvre.
Sub Macro1()
ChDir 'C:\\Documents and Settings\\TRAD\\Desktop'
Workbooks.Open Filename:='C:\\Documents and Settings\\TRAD\\Desktop\\source.xls'
Range('E11:G17').Copy
Windows('~final2.xls').Activate
Range('Z5').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('Z5:ab11').Copy
Range('P6').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range('Z5:ab11').ClearContents
Windows('source.xls').Close
end sub
POuvez vous m aider please?