Copie fichier Excel

**Eva06** · 09/08/2013, 10h31

Bonjour, je me permet de faire un seul post pour 2 problèmes :
En premier lieu, je remplie un fichier Excel avec des données d'un formulaire. Cependant, j'aimerai copier le fichier Excel encore vierge dans une autre feuille en nommant celle-ci avec la date du jour, et ce à chaque fois que l'utilisateur remplira le formulaire et clickera sur "valider". J'arrive a copier la premiere feuille sur la deuxieme mais il faudrait la nommée et copier la mise en page... et si possible, créer une nouvelle feuille à chaque fois et non pas remplacer les données. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
Private sub BTN_Valider.click()
MonFichier = "C:\Desktop\FDL.xlsx"
Set MonXL = CreateObject ("Excel.Application")
MonXL.Workbooks.Open MonFichier
MonXL.Visible = true
MonXL.Workbooks("FDL.xlsx").sheets("Sheet2").range("A1:AF86").value = MonXL.Workbooks("FDL.xlsx").Sheets("Sheet1").range("A1:AF86").Value
MonXL.range("Y8").Value = Forme![FDL_pré_remplie]![Fiche_liaison]
'Je copie ainsi toutes mes données
End sub

J'espère avoir tout bien expliquer, je vous remercie d'avance pour votre aide^^

**Dolphy35** · 09/08/2013, 12h20

Bonjour,

Il y a plus simple au niveau de la copie et cela permet la copie de la mise en forme en plus et de renommer les Feuilles.

il te suffit de changer le chemin du fichier Excel et le nom des onglets.

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
Sub CopyExcel()
    Dim xlExcel As Excel.Application
    Dim xlClasseur As Excel.Workbook
    Dim xlFeuil As Excel.Worksheet
 
    Set xlExcel = CreateObject("Excel.Application")
    Set xlClasseur = xlExcel.Workbooks.Open(CurrentProject.Path & "\Classeur1.xlsx")
    Set xlFeuil = xlClasseur.Worksheets("Test")
 
    xlExcel.Visible = False
 
    xlFeuil.Copy After:=Worksheets(xlFeuil.Name)
    xlClasseur.Worksheets(xlFeuil.Name & " (2)").Name = "Toto"
    xlClasseur.Save
 
    Set xlFeuil = Nothing
    xlClasseur.Close: Set xlClasseur = Nothing
    xlExcel.Quit: Set xlExcel = Nothing
End Sub

@++

**Eva06** · 09/08/2013, 17h52

Merci pour ta réponse, cependant j'ai des messages d'erreurs... Tout d'abord en ce qui concerne la déclaration des variables, je dois les déclarer en "Variant" sinon j'ai un message comme quoi le type n'est pas définit. De plus j'ai une erreur sur cette ligne là :

Code :

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

xlFeuil.Copy After:=Worksheets(xlFeuil.Name)

Il ne reconnait pas "Worksheets"

**Dolphy35** · 10/08/2013, 11h29

Bonjour,

Il te faut declarer la refrence : Microsoft Excel xx.x

http://access.developpez.com/faq/?page=ref#Reference

@++

**Eva06** · 10/08/2013, 16h45

Bonjour, effectivement ça marche mieux^^
Cela m'effectue bien la copie pile poil comme il faut, cependant j'ai un message d'erreur sur cette ligne :

Code :

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

xlClasseur.Worksheets(XLFeuil.Name & "(2)").Name = "Test2"

Il me dit que l'indice n'a pas été trouvé dans la sélection.
Merci à toi =)

**Eva06** · 10/08/2013, 17h24

J'ai tout simplement enlevé la ligne et c'est bon ça marche nickel.
Par contre, est-ce possible de faire en sorte qu'il créé une feuille à chaque fois et pas forcément après la première ? pcq du coup quand j'essaie de le faire une deuxième fois il plante.

**Dolphy35** · 10/08/2013, 19h51

Envoyé par Eva06

J'ai tout simplement enlevé la ligne et c'est bon ça marche nickel.

La ligne en question permet de renommer l'onglet copié.

Envoyé par Eva06

Par contre, est-ce possible de faire en sorte qu'il créé une feuille à chaque fois et pas forcément après la première ?

Je ne comprends pas, as-tu la maitrise des noms d'onglets ? Si tu créer beaucoup d'onglets cela peut rendre instable ton fichier.

Envoyé par Eva06

pcq du coup quand j'essaie de le faire une deuxième fois il plante.

Bizarre, je viens de voir qu'il restait une instance d'Excel ouverte après l’exécution du code alors qu'elle doit se fermer.

**Eva06** · 11/08/2013, 17h36

Bonjour,
sinon au lieu de créer des onglets à chaque fois, on peut créer d'autre fichier Excel en copiant la même chose ?

**Dolphy35** · 11/08/2013, 21h13

Bonjour,

si tu veux copier le fichier avant de le modifier, utilise FileCopy

Comment copier un fichier d'un répertoire à un autre ?

@++

**Dolphy35** · 12/08/2013, 19h20

re,

sinon modification du code qui permet de créer un nouvel onglet, il te suffit d'exporter dans le nouvel onglet une fois créée. L'instance qui restait dans le précédent code est résolu. Dans celui-ci Access libère bien Excel.

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
Sub CopyExcel()
    Dim xlExcel As Excel.Application
    Dim xlClasseur As Excel.Workbook
    Dim xlFeuil As Excel.Worksheet
 
    Set xlExcel = CreateObject("Excel.Application")
    Set xlClasseur = xlExcel.Workbooks.Open(CurrentProject.Path & "\Classeur1.xlsx")
    Set xlFeuil = xlClasseur.Worksheets.Add
 
    xlFeuil.Name = "Toto"
    xlClasseur.Save
 
    xlClasseur.Close: Set xlClasseur = Nothing
    xlExcel.Quit: Set xlExcel = Nothing
    Set xlFeuil = Nothing
    MsgBox "Fin"
End Sub

**Eva06** · 13/08/2013, 11h08

Bonjour,
Ton code renomme bien ma nouvelle feuille cependant j'ai toujours mon fichier Excel qui se ferme mal, a la limite ce n'est pas très grave.
Par contre, je souhaite renommer ma feuille avec la date du jour en plus. Cependant la date est nulle, je ne comprend pas trop pourquoi, sachant qu'elle retourne bien la date du jour sur d'autre formulaire.
Une idée?
Un grand merci en tout cas pour ton aide

**Dolphy35** · 13/08/2013, 11h35

bonjour,

comment ça la date est nulle ?

**Eva06** · 13/08/2013, 13h24

Et bien, j'utilise la fonction "date" pour avoir la date du jour, et lorsque j'exécute le code, la valeur de "date" est nulle. Du coup ça plante. J'ai essayé de passer par une variable, de mettre des crochets mais elle est toujours nulle.

**Eva06** · 13/08/2013, 13h51

Re,
c'est bon, en fait dans mon formulaire j'avais un champs nommé date et qui etait effectivement null^^
Ça marche bien du sauf cette histoire de fichier Excel qui se ferme mal, si jamais tu as une autre idée je suis preneuse sinon tant pis.
Encore merci pour ton aide

**Dolphy35** · 13/08/2013, 14h02

re,

avec le dernier code je n'ai plus de problème d'instance qui reste

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
Sub CopyExcel()
    Dim xlExcel As Excel.Application
    Dim xlClasseur As Excel.Workbook
    Dim xlFeuil As Excel.Worksheet
 
    Set xlExcel = CreateObject("Excel.Application")
    Set xlClasseur = xlExcel.Workbooks.Open(CurrentProject.Path & "\Classeur1.xlsx")
    Set xlFeuil = xlClasseur.Worksheets.Add
 
    xlFeuil.Name = "Toto"
    xlClasseur.Save
 
    xlClasseur.Close: Set xlClasseur = Nothing
    xlExcel.Quit: Set xlExcel = Nothing
    Set xlFeuil = Nothing
    MsgBox "Fin"
End Sub

Copie fichier Excel [AC-2010]

VBA Access

Discussions similaires

Partager

Partager