Discussion :

[Christophe93250]

bonjour,

voila j'ai réussi a exporter mon fichier excel pour en créer un autre sur les conseils de muad'hib et caféine, merci a vous
voici les codes que j'ai utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub fichier_suivi_BIGENET_click()
On Error GoTo Err_fichier_suivi_BIGENET_Click
 
Dim Excelsheet As Object
 
DoCmd.OutputTo acOutputQuery, "Suivi-donnees-Bigenet", acFormatXLS, "C:\commun\Donnees_Bigenet_a_partir_de_2005\Fichier suivi données\Suivi-donnees-Bigenet.xls", True
 
Set Excelsheet = GetObject("C:\commun\Donnees_Bigenet_a_partir_de_2005\Fichier suivi données\Suivi-donnees-Bigenet.xls")
Excelsheet.Application.Visible = True
Excelsheet.Windows("Suivi-donnees-Bigenet.xls").Visible = True
Excelsheet.Sheets("Suivi-donnees-Bigenet").Range("A:L").AutoFilter
Excelsheet.SaveAs ("C:\commun\Donnees_Bigenet_a_partir_de_2005\Fichier suivi données\Tempor\Suivi-donnees-Bigenet.xls")
Set Excelsheet = Nothing
 
Exit_fichier_suivi_BIGENET_Click:
    Exit Sub
 
Err_fichier_suivi_BIGENET_Click:
    MsgBox Err.Description
    Resume Exit_fichier_suivi_BIGENET_Click
End Sub

maintenant j'aimerais savoir si il est possible de lui dire lorsqu'il ouvre le fichier qu'il selectionne une feuille au préalable, de manière a ce que je puisse mettre un TCD sur la seconde feuille pour qu'il l'incrémente de manière automatique en insérant ou modifiant qques lignes a mon code?
merci d'avance

[Frank]

Toujours Cafeine...


Bonne lecture,

[Christophe93250]

ok en relisant je viens de comprendre mon erreur, ce n'était pas une automation que je devais faire, merci