Je dispose d'un fichier excel nommé: FACTURE qui dispose d'un onglet nommé
TOTAL...
J'aimerais une macro qui me prends l'ONGLET TOTAL et qui me le
copie(uniquement sans le déplacer) dans un nouveau fichier nommé relance qui
se trouverais dans le même répertoire que le fichier FACTURE.
PS: si le fichier RELANCE existe alors il l'écrase sans demander de
confimation..
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Essaie :
Sub test() Dim Chemin As String Chemin = ActiveWorkbook.Path & "" Sheets("TOTAL").Copy On Error Resume Next Kill Chemin & "RELANCE.xls" On Error GoTo 0 ActiveWorkbook.SaveAs Chemin & "RELANCE.xls" End Sub
Daniel
Bonjour,
J'ai un petit soucis...
Je dispose d'un fichier excel nommé: FACTURE qui dispose d'un onglet nommé TOTAL...
J'aimerais une macro qui me prends l'ONGLET TOTAL et qui me le copie(uniquement sans le déplacer) dans un nouveau fichier nommé relance qui se trouverais dans le même répertoire que le fichier FACTURE.
PS: si le fichier RELANCE existe alors il l'écrase sans demander de confimation..
Est ce possible?
merci d'avance
Bonjour.
Essaie :
Sub test()
Dim Chemin As String
Chemin = ActiveWorkbook.Path & ""
Sheets("TOTAL").Copy
On Error Resume Next
Kill Chemin & "RELANCE.xls"
On Error GoTo 0
ActiveWorkbook.SaveAs Chemin & "RELANCE.xls"
End Sub
Daniel
Bonjour,
J'ai un petit soucis...
Je dispose d'un fichier excel nommé: FACTURE qui dispose d'un onglet nommé
TOTAL...
J'aimerais une macro qui me prends l'ONGLET TOTAL et qui me le
copie(uniquement sans le déplacer) dans un nouveau fichier nommé relance qui
se trouverais dans le même répertoire que le fichier FACTURE.
PS: si le fichier RELANCE existe alors il l'écrase sans demander de
confimation..
Sub test() Dim Chemin As String Chemin = ActiveWorkbook.Path & "" Sheets("TOTAL").Copy On Error Resume Next Kill Chemin & "RELANCE.xls" On Error GoTo 0 ActiveWorkbook.SaveAs Chemin & "RELANCE.xls" End Sub
Daniel
Bonjour,
J'ai un petit soucis...
Je dispose d'un fichier excel nommé: FACTURE qui dispose d'un onglet nommé TOTAL...
J'aimerais une macro qui me prends l'ONGLET TOTAL et qui me le copie(uniquement sans le déplacer) dans un nouveau fichier nommé relance qui se trouverais dans le même répertoire que le fichier FACTURE.
PS: si le fichier RELANCE existe alors il l'écrase sans demander de confimation..
Est ce possible?
merci d'avance
Jacky
Bonjour, Ceci peut-être.... '----------- Sub jj() Sheets("Total").Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="Relance.xls" ActiveWorkbook.Close End Sub '-----------
-- Salutations JJ
"steph b" a écrit dans le message de news: 4b6be48a$0$938$
Bonjour,
J'ai un petit soucis...
Je dispose d'un fichier excel nommé: FACTURE qui dispose d'un onglet nommé TOTAL...
J'aimerais une macro qui me prends l'ONGLET TOTAL et qui me le copie(uniquement sans le déplacer) dans un nouveau fichier nommé relance qui se trouverais dans le même répertoire que le fichier FACTURE.
PS: si le fichier RELANCE existe alors il l'écrase sans demander de confimation..
Est ce possible?
merci d'avance
Bonjour,
Ceci peut-être....
'-----------
Sub jj()
Sheets("Total").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="Relance.xls"
ActiveWorkbook.Close
End Sub
'-----------
--
Salutations
JJ
"steph b" <stephol@prodiag.fr> a écrit dans le message de news: 4b6be48a$0$938$ba4acef3@news.orange.fr...
Bonjour,
J'ai un petit soucis...
Je dispose d'un fichier excel nommé: FACTURE qui dispose d'un onglet nommé TOTAL...
J'aimerais une macro qui me prends l'ONGLET TOTAL et qui me le copie(uniquement sans le déplacer) dans un
nouveau fichier nommé relance qui se trouverais dans le même répertoire que le fichier FACTURE.
PS: si le fichier RELANCE existe alors il l'écrase sans demander de confimation..
Bonjour, Ceci peut-être.... '----------- Sub jj() Sheets("Total").Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="Relance.xls" ActiveWorkbook.Close End Sub '-----------
-- Salutations JJ
"steph b" a écrit dans le message de news: 4b6be48a$0$938$
Bonjour,
J'ai un petit soucis...
Je dispose d'un fichier excel nommé: FACTURE qui dispose d'un onglet nommé TOTAL...
J'aimerais une macro qui me prends l'ONGLET TOTAL et qui me le copie(uniquement sans le déplacer) dans un nouveau fichier nommé relance qui se trouverais dans le même répertoire que le fichier FACTURE.
PS: si le fichier RELANCE existe alors il l'écrase sans demander de confimation..
Est ce possible?
merci d'avance
FdeCourt
Salut,
Une autre option, qui permet d'éviter toute erreur si le fichier existe ou est ouvert :
Sub CopieFeuilleNouveauWorkbook() Dim monTotal As Workbook Dim NomFichier As String Set oFSO = CreateObject("Scripting.FileSystemObject") Application.DisplayAlerts = False NomFichier = "RELANCE.xls" MaRelance = ThisWorkbook.Path & "" & NomFichier If fichierOuvert(NomFichier) = True Then Workbooks(NomFichier).Close False If oFSO.FileExists(MaRelance) Then oFSO.DeleteFile (MaRelance) End If
Set monTotal = Workbooks.Add With monTotal ThisWorkbook.Sheets("TOTAL").Copy Before:=.Sheets(1) .Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Delete monTotal.SaveAs Filename:=MaRelance .Close End With Application.DisplayAlerts = True End Sub Function fichierOuvert(monFichier As String) As Boolean Dim s As Workbook On Error GoTo err_handler Set s = Workbooks(monFichier) fichierOuvert = True On Error GoTo 0 Exit Function err_handler: fichierOuvert = False End Function
Cordialement,
F.
Salut,
Une autre option, qui permet d'éviter toute erreur si le fichier
existe ou est ouvert :
Sub CopieFeuilleNouveauWorkbook()
Dim monTotal As Workbook
Dim NomFichier As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
Application.DisplayAlerts = False
NomFichier = "RELANCE.xls"
MaRelance = ThisWorkbook.Path & "" & NomFichier
If fichierOuvert(NomFichier) = True Then
Workbooks(NomFichier).Close False
If oFSO.FileExists(MaRelance) Then
oFSO.DeleteFile (MaRelance)
End If
Set monTotal = Workbooks.Add
With monTotal
ThisWorkbook.Sheets("TOTAL").Copy Before:=.Sheets(1)
.Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Delete
monTotal.SaveAs Filename:=MaRelance
.Close
End With
Application.DisplayAlerts = True
End Sub
Function fichierOuvert(monFichier As String) As Boolean
Dim s As Workbook
On Error GoTo err_handler
Set s = Workbooks(monFichier)
fichierOuvert = True
On Error GoTo 0
Exit Function
err_handler:
fichierOuvert = False
End Function
Une autre option, qui permet d'éviter toute erreur si le fichier existe ou est ouvert :
Sub CopieFeuilleNouveauWorkbook() Dim monTotal As Workbook Dim NomFichier As String Set oFSO = CreateObject("Scripting.FileSystemObject") Application.DisplayAlerts = False NomFichier = "RELANCE.xls" MaRelance = ThisWorkbook.Path & "" & NomFichier If fichierOuvert(NomFichier) = True Then Workbooks(NomFichier).Close False If oFSO.FileExists(MaRelance) Then oFSO.DeleteFile (MaRelance) End If
Set monTotal = Workbooks.Add With monTotal ThisWorkbook.Sheets("TOTAL").Copy Before:=.Sheets(1) .Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Delete monTotal.SaveAs Filename:=MaRelance .Close End With Application.DisplayAlerts = True End Sub Function fichierOuvert(monFichier As String) As Boolean Dim s As Workbook On Error GoTo err_handler Set s = Workbooks(monFichier) fichierOuvert = True On Error GoTo 0 Exit Function err_handler: fichierOuvert = False End Function
Une autre option, qui permet d'éviter toute erreur si le fichier existe ou est ouvert :
Sub CopieFeuilleNouveauWorkbook() Dim monTotal As Workbook Dim NomFichier As String Set oFSO = CreateObject("Scripting.FileSystemObject") Application.DisplayAlerts = False NomFichier = "RELANCE.xls" MaRelance = ThisWorkbook.Path & "" & NomFichier If fichierOuvert(NomFichier) = True Then Workbooks(NomFichier).Close False If oFSO.FileExists(MaRelance) Then oFSO.DeleteFile (MaRelance) End If
Set monTotal = Workbooks.Add With monTotal ThisWorkbook.Sheets("TOTAL").Copy Before:=.Sheets(1) .Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Delete monTotal.SaveAs Filename:=MaRelance .Close End With Application.DisplayAlerts = True End Sub Function fichierOuvert(monFichier As String) As Boolean Dim s As Workbook On Error GoTo err_handler Set s = Workbooks(monFichier) fichierOuvert = True On Error GoTo 0 Exit Function err_handler: fichierOuvert = False End Function
Cordialement,
F.
MERCI A VOUS CA MARCHE NIKEL CHROME
MERCI ENCORE
"FdeCourt" <fdecourt@gmail.com> a écrit dans le message de news:
5b333005-b965-496e-ae75-b7235d507da4@q4g2000yqm.googlegroups.com...
Salut,
Une autre option, qui permet d'éviter toute erreur si le fichier
existe ou est ouvert :
Sub CopieFeuilleNouveauWorkbook()
Dim monTotal As Workbook
Dim NomFichier As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
Application.DisplayAlerts = False
NomFichier = "RELANCE.xls"
MaRelance = ThisWorkbook.Path & "" & NomFichier
If fichierOuvert(NomFichier) = True Then
Workbooks(NomFichier).Close False
If oFSO.FileExists(MaRelance) Then
oFSO.DeleteFile (MaRelance)
End If
Set monTotal = Workbooks.Add
With monTotal
ThisWorkbook.Sheets("TOTAL").Copy Before:=.Sheets(1)
.Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Delete
monTotal.SaveAs Filename:=MaRelance
.Close
End With
Application.DisplayAlerts = True
End Sub
Function fichierOuvert(monFichier As String) As Boolean
Dim s As Workbook
On Error GoTo err_handler
Set s = Workbooks(monFichier)
fichierOuvert = True
On Error GoTo 0
Exit Function
err_handler:
fichierOuvert = False
End Function
Une autre option, qui permet d'éviter toute erreur si le fichier existe ou est ouvert :
Sub CopieFeuilleNouveauWorkbook() Dim monTotal As Workbook Dim NomFichier As String Set oFSO = CreateObject("Scripting.FileSystemObject") Application.DisplayAlerts = False NomFichier = "RELANCE.xls" MaRelance = ThisWorkbook.Path & "" & NomFichier If fichierOuvert(NomFichier) = True Then Workbooks(NomFichier).Close False If oFSO.FileExists(MaRelance) Then oFSO.DeleteFile (MaRelance) End If
Set monTotal = Workbooks.Add With monTotal ThisWorkbook.Sheets("TOTAL").Copy Before:=.Sheets(1) .Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Delete monTotal.SaveAs Filename:=MaRelance .Close End With Application.DisplayAlerts = True End Sub Function fichierOuvert(monFichier As String) As Boolean Dim s As Workbook On Error GoTo err_handler Set s = Workbooks(monFichier) fichierOuvert = True On Error GoTo 0 Exit Function err_handler: fichierOuvert = False End Function