Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes données,
aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporter mes
données, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes données,
aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporter mes
données, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes données,
aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporter mes
données, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" a écrit dans le messa ge denews: B30FB7F0-F57B-48AC-B038-3544163FF__BEGIN_MASK_n#9g02mG7!__...__E ND_MASK_i?a63jfAD$Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes don nées,
aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporte r mes
données, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" <veleki...@discussions.microsoft.com> a écrit dans le messa ge denews: B30FB7F0-F57B-48AC-B038-3544163FF__BEGIN_MASK_n#9g02mG7!__...__E ND_MASK_i?a63jfAD$z__@microsoft.com...
Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes don nées,
aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporte r mes
données, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" a écrit dans le messa ge denews: B30FB7F0-F57B-48AC-B038-3544163FF__BEGIN_MASK_n#9g02mG7!__...__E ND_MASK_i?a63jfAD$Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes don nées,
aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporte r mes
données, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" a écrit dans le message
denews:
Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes
données,
aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporter
mes
données, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" <veleki...@discussions.microsoft.com> a écrit dans le message
denews:
Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes
données,
aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporter
mes
données, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" a écrit dans le message
denews:
Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes
données,
aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporter
mes
données, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Bonjour,
Je viens de tester ... une petite correction :
Tu fais un copier/coller, tu changes NOM_FICHIER et cela fonctionne !!
Public Sub FeuilleDelete()
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x As Integer
Dim NOM_FICHIER As String
Dim NomFeuil As String
NOM_FICHIER = "C:DownloadF10.xls"
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 To 20
NomFeuil = CStr(x)
objExcel.Sheets(NomFeuil).Select
objExcel.Sheets(NomFeuil).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
End Sub
a écrit dans le message de news:
On 19 mai, 12:20, "Jacques" wrote:Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" a écrit dans le
message
denews:
B30FB7F0-F57B-48AC-B038-3544163FF__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a6
3jfAD$Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes
données,aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporter
mesdonnées, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Merci de ton aide, mais ca ne marche pas...
as tu une autre idée?
Bonjour,
Je viens de tester ... une petite correction :
Tu fais un copier/coller, tu changes NOM_FICHIER et cela fonctionne !!
Public Sub FeuilleDelete()
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x As Integer
Dim NOM_FICHIER As String
Dim NomFeuil As String
NOM_FICHIER = "C:DownloadF10.xls"
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 To 20
NomFeuil = CStr(x)
objExcel.Sheets(NomFeuil).Select
objExcel.Sheets(NomFeuil).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
End Sub
<ymer.hyseni@gmail.com> a écrit dans le message de news:
1179570451.524244.256200@p77g2000hsh.googlegroups.com...
On 19 mai, 12:20, "Jacques" <jac...@hotmail.com> wrote:
Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" <veleki...@discussions.microsoft.com> a écrit dans le
message
denews:
B30FB7F0-F57B-48AC-B038-3544163FF__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a6
3jfAD$z__@microsoft.com...
Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes
données,
aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporter
mes
données, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Merci de ton aide, mais ca ne marche pas...
as tu une autre idée?
Bonjour,
Je viens de tester ... une petite correction :
Tu fais un copier/coller, tu changes NOM_FICHIER et cela fonctionne !!
Public Sub FeuilleDelete()
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x As Integer
Dim NOM_FICHIER As String
Dim NomFeuil As String
NOM_FICHIER = "C:DownloadF10.xls"
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 To 20
NomFeuil = CStr(x)
objExcel.Sheets(NomFeuil).Select
objExcel.Sheets(NomFeuil).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
End Sub
a écrit dans le message de news:
On 19 mai, 12:20, "Jacques" wrote:Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" a écrit dans le
message
denews:
B30FB7F0-F57B-48AC-B038-3544163FF__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a6
3jfAD$Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes
données,aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exporter
mesdonnées, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Merci de ton aide, mais ca ne marche pas...
as tu une autre idée?
Re,
Ca à l'air de fonctionner ... tu ne réponds plus ! :-)
"Jacques" a écrit dans le message de news:
#Bonjour,
Je viens de tester ... une petite correction :
Tu fais un copier/coller, tu changes NOM_FICHIER et cela fonctionne !!
Public Sub FeuilleDelete()
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x As Integer
Dim NOM_FICHIER As String
Dim NomFeuil As String
NOM_FICHIER = "C:DownloadF10.xls"
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 To 20
NomFeuil = CStr(x)
objExcel.Sheets(NomFeuil).Select
objExcel.Sheets(NomFeuil).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
End Sub
a écrit dans le message de news:
On 19 mai, 12:20, "Jacques" wrote:Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" a écrit dans le
messagedenews:
B30FB7F0-F57B-48AC-B038-3544163FF__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i ?a63jfAD$Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes
données,aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exp orter
mesdonnées, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Merci de ton aide, mais ca ne marche pas...
as tu une autre idée?
Re,
Ca à l'air de fonctionner ... tu ne réponds plus ! :-)
"Jacques" <jac...@hotmail.com> a écrit dans le message de news:
#SyVtDgmHHA.1...@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je viens de tester ... une petite correction :
Tu fais un copier/coller, tu changes NOM_FICHIER et cela fonctionne !!
Public Sub FeuilleDelete()
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x As Integer
Dim NOM_FICHIER As String
Dim NomFeuil As String
NOM_FICHIER = "C:DownloadF10.xls"
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 To 20
NomFeuil = CStr(x)
objExcel.Sheets(NomFeuil).Select
objExcel.Sheets(NomFeuil).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
End Sub
<ymer.hys...@gmail.com> a écrit dans le message de news:
1179570451.524244.256...@p77g2000hsh.googlegroups.com...
On 19 mai, 12:20, "Jacques" <jac...@hotmail.com> wrote:
Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" <veleki...@discussions.microsoft.com> a écrit dans le
message
denews:
B30FB7F0-F57B-48AC-B038-3544163FF__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i ?a6
3jfAD$...@microsoft.com...
Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes
données,
aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exp orter
mes
données, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Merci de ton aide, mais ca ne marche pas...
as tu une autre idée?
Re,
Ca à l'air de fonctionner ... tu ne réponds plus ! :-)
"Jacques" a écrit dans le message de news:
#Bonjour,
Je viens de tester ... une petite correction :
Tu fais un copier/coller, tu changes NOM_FICHIER et cela fonctionne !!
Public Sub FeuilleDelete()
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x As Integer
Dim NOM_FICHIER As String
Dim NomFeuil As String
NOM_FICHIER = "C:DownloadF10.xls"
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 To 20
NomFeuil = CStr(x)
objExcel.Sheets(NomFeuil).Select
objExcel.Sheets(NomFeuil).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
End Sub
a écrit dans le message de news:
On 19 mai, 12:20, "Jacques" wrote:Bonjour
Voici une piste non testée !!
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim x as integer
Set objExcel = CreateObject("excel.application")
'rend l'application Excel visible
objExcel.Visible = True
'objExcel.Visible = False
'ouvre le fichier
Set objWorkbook = objExcel.Workbooks.Open(NOM_FICHIER)
For x = 2 to 20
objExcel.Sheets(x).Select
objExcel.Sheets(x).Delete
Next
objExcel.Quit
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Jacques(BE)
"velekinca" a écrit dans le
messagedenews:
B30FB7F0-F57B-48AC-B038-3544163FF__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i ?a63jfAD$Salut,
j'ai un fichier Excel Modèle, dans lequel tous les mois j'exporte des
données depuis Access, je voudrais en faite, avant d'exporter mes
données,aller dans Excel et supprimer les feuilles 2 à 20, et ensuite exp orter
mesdonnées, comment faire?
La suppression je la fait manuellement actuellement...
merci pour votre aide...
Merci de ton aide, mais ca ne marche pas...
as tu une autre idée?