Discussion :

[rvtoulon]

bonjour, stephadm, L'Albatros,
je me permet de donner ma petite contribution car si j'ai bien compris en fait tu veux juste pour le moment copier la feuille annuaire dans un nouveau classeur.

Sur la base du code que tu as fournis et en supprimant ce qui ne servait à rien voici un code qui copie toutes les cellules de la feuille annuaire dans la feuil1 d'un nouveau classeur. On sauvegarde le nouveau classeur dans le chemin dest et avec le nom dest, et on ferme ce classeur. On affiche un msgbox.

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
22
23
24
25
26
27
28
29
30
31
Sub SauvCli()
Dim MaDate As String, CheminDir As String, NomDest As String
Dim stHeureExport As String
Dim wksource As Workbook, wkdest As Workbook
 
 
MaDate = Format(Now, "DD-MM-YYYY")
CheminDir = "D:\Gestion\Sauvegarde\2012"
stHeureExport = "_" & Format(Hour(Time), "00") & "" & Format(Minute(Time), "00") & "" & Format(Second(Time), "00")
NomDest = "Annuaire " & MaDate & " " & stHeureExport & ".xls"
 
 'classeur source
 Set wksource = ThisWorkbook
 'copie les cellules de la feuille annuaire
 Sheets("Annuaire").Cells.Copy
 
 'classeur de destination
 Set wkdest = Workbooks.Add
    'colle les cellules de la feuille annuaire dans feuil1
    'du classeur destination
    wkdest.Sheets(1).Paste
 
    'sauvegarde le classeur destination avec le nomdest
    wkdest.SaveAs CheminDir & NomDest
    'ferme le classeur destination
    wkdest.Close
 
 Application.CutCopyMode = False
 
 MsgBox "le fichier a été enregistré sous le nom : " & vbCrLf & NomDest
End Sub

Pour faire ceci il n'y a pas besoin d'activer une référence particulière.
Le code fonctionne avec le classeur que tu as mis en test.

[L'Albatros]

Votre code bug chez moi donc j'en ai changé un bout et maintenant c'est OK:

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
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub SauvCli()
Dim MaDate As String, CheminDir As String, NomDest As String
Dim stHeureExport As String
Dim wksource As Workbook, wkdest As Workbook
 
 
MaDate = Format(Now, "DD-MM-YYYY")
CheminDir = "D:\Essai"
stHeureExport = "_" & Format(Hour(Time), "00") & "" & Format(Minute(Time), "00") & "" & Format(Second(Time), "00")
NomDest = "Annuaire " & MaDate & " " & stHeureExport & ".xls"
 
 'classeur source
 Set wksource = ThisWorkbook
 'copie les cellules de la feuille annuaire
 Windows("ClasseurTest.xls").Activate
 Sheets("Annuaire").Select
 Cells.Select
 Selection.Copy
 
 'classeur de destination
 Set wkdest = Workbooks.Add
    'colle les cellules de la feuille annuaire dans feuil1
    'du classeur destination
    wkdest.Sheets(1).Paste
 
    'sauvegarde le classeur destination avec le nomdest
    wkdest.SaveAs CheminDir & NomDest
    'ferme le classeur destination
    wkdest.Close
 
 Application.CutCopyMode = False
 
 MsgBox "le fichier a été enregistré sous le nom : " & vbCrLf & NomDest
End Sub

stephadm, merci de voter nos messages (les pouces verts en bas à droite de chaque post) et de cliquer sur "Résolu"

[rvtoulon]

Bizarre parce que après l'avoir tester à de nombreuses reprises tout fonctionne bien. (on se tutoie) Peux-tu me dire ou sa coince chez toi?

[L'Albatros]

Ceci:

Code :

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

Sheets("Annuaire").Cells.Copy

Du coup j'ai pas réféchis, j'ai splitté la ligne...

[rvtoulon]

Re, du fait qu'elle démarre la macro en appuyant sur le bouton du classeur source ceci n'est pas nécessaire:

Code :

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

1
2
'copie les cellules de la feuille annuaire
 Windows("ClasseurTest.xls").Activate

puisqu'on est déjà dans le classeurtest.

du coup on peux essayer en mettant ceci: (cela fonctionne aussi):

Code :

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

1
2
3
4
'classeur source
 Set wksource = ThisWorkbook
 'copie les cellules de la feuille annuaire
 wksource.Sheets("Annuaire").Cells.Copy

l'avantage c'est que tu ne passes pas par les select.

de plus ou pourrait encore simplifier le code en remplaçant ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Dim MaDate As String, CheminDir As String, NomDest As String
Dim stHeureExport As String
Dim wksource As Workbook, wkdest As Workbook
 
 
MaDate = Format(Now, "DD-MM-YYYY")
CheminDir = "D:\Essai"
stHeureExport = "_" & Format(Hour(Time), "00") & "" & Format(Minute(Time), "00") & "" & Format(Second(Time), "00")
NomDest = "Annuaire " & MaDate & " " & stHeureExport & ".xls"

par :

Code :

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

1
2
3
4
5
6
Dim MaDate As String, CheminDir As String, NomDest As String
Dim wksource As Workbook, wkdest As Workbook
 
MaDate = Format(Now, "DD-MM-YY") & "_" & Format(Now, "hmmss")
CheminDir = "D:\Gestion\Sauvegarde\2012"
NomDest = "Annuaire " & MaDate & ".xls"

merci pour ta remarque

[stephadm]

bonsoir L'Albatros, rvtoulon et au forum

J'ai essayé et presque bonne nouvelle plus d'erreur mais je ne trouve pas le fichier enregistrer
Resumé du code

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
22
23
24
25
26
Dim MaDate As String, CheminDir As String, NomDest As String
Dim wksource As Workbook, wkdest As Workbook
 
MaDate = Format(Now, "DD-MM-YY") & "_" & Format(Now, "hmmss")
CheminDir = "D:\Gestion\Sauvegarde\2012"
NomDest = "Annuaire " & MaDate & ".xls"
 
 'classeur source
 Set wksource = ThisWorkbook
 'copie les cellules de la feuille annuaire
 wksource.Sheets("Annuaire").Cells.Copy
 
 'classeur de destination
 Set wkdest = Workbooks.Add
    'colle les cellules de la feuille annuaire dans feuil1
    'du classeur destination
    wkdest.Sheets(1).Paste
 
    'sauvegarde le classeur destination avec le nomdest
    wkdest.SaveAs CheminDir & NomDest
    'ferme le classeur destination
    wkdest.Close
 
 Application.CutCopyMode = False
 
 MsgBox "Le fichier a été enregistré sous le nom : " & vbCrLf & NomDest

je sollicite encore votre aide,

ou est passe le fichier ?

Je n'ai pas vu de copie ou quoi que se soit durant le déroulement de la macro et j'ai trouve l'exécution de cette dernière plutot rapide (c'est pas plus mal, mais...)

Merci

Stephanie

[L'Albatros]

Euh comme chez nous ça fonctionne...
Bon, commence par raffraîchir ton dossier (F5).
Si tu ne le vois toujours pas apparaître, remplace cette ligne:

Code :

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

CheminDir = "D:\Gestion\Sauvegarde\2012"

Par

Code :

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

CheminDir = "D:\Gestion\Sauvegarde\2012\"

Et recommence

[rvtoulon]

Bonjour,
je n'avais pas vérifié mais en faisant un test je me suis aperçu qu'en mettant ceci :

Code :

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

CheminDir = "D:\Gestion\Sauvegarde\2012"

il va en fait enregistrer le fichier dans le dossier "sauvegarde" et non pas "2012" et en plus ton fichier devrais avoir un nom qui ressemble a ceci:

2012Annuaire 20-04-12_110338.xls

du moins c'est ce qu'il s'est passé lorsque je l'ai testé. Dans mes test précédent j'enregistrais directement sur mon "C:\" donc...

comme te la suggéré L'Albatros si tu met ceci :

Code :

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

CheminDir = "D:\Gestion\Sauvegarde\2012\"

cela doit être bon. Il t'enregistreras le fichier avec le nom voulus et dans le dossier voulus à savoir "2012".

[stephadm]

bonjour L'Albatros, rvtoulon et au forum

J'ai fait tout ce que vous avez écrit et rien y change.Déroulement correcte mais pas de fichier "Annuaire..."

Le but final est de pouvoir faire une sauvegarde de "Annuaire", "Articles et "Param" indépendamment ou en une seule fois ce qui fait quatre boutons. Mais aussi pouvoir faire l'inverse, restaurer à partir des sauvegardes effectuées.

Avec toute l'amabilité, pouvez-vous me renvoyer la pièce jointe ci-dessus avec les modifications qui fonctionne chez vous, cela me permettrais de voir si je n'ai pas un problème ailleurs ?

Merci

Stephanie

[rvtoulon]

Bonjour tu trouveras ton classeur ici

mais vérifie bien le chemin de destination. Fait une recherche du fichier enregistré avec l'outil de recherche de windows.(sous xp: Démarrer => Rechercher).

[stephadm]

bonjour rvtoulon et au forum

J'ai télécharger le fichier et je l'ai enregistré dans D:\Gestion\

J'ouvre le fichier, je clique sur le bouton Sauvegarde et
bien je suis désolée de vous importuner mais le problème est toujours présent

Code :

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

wkdest.Sheets(1).Paste

encadré en jaune

J'ai vérifié au niveau de l'arborescence de mes répertoires, c'est OK, tout correspond

Bizarre, vous ne trouvez pas !

Stephanie

[rvtoulon]

Manifestement il y a un problème avec ton fichier.
Jusqu'à présent je faisais les essais sur Excel 2010 et je n'ai rencontré aucun problème.

Mais effectivement j'en rencontre sur Excel 2007 et ton fichier me bloque même Excel. J'ai refait vite fait un petit classeur de test sous excel 2007 et j'ai légèrement modifié le code et je te confirme qu'il fonctionne voici le code :

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
22
23
24
25
Sub copie_coller()
Dim madate As String, chemindir As String, nomdest As String
Dim wksrc As Workbook, wkdest As Workbook
 
madate = Format(Now, "DD-MM-YY") & "_" & Format(Now, "hmmss")
chemindir = "D:\Gestion\Sauvegarde\2012\"
nomdest = "Annuaire " & madate & ".xls"
 
'classeur source
Set wksrc = ThisWorkbook
 
'classeur destination
Set wkdest = Workbooks.Add
 
'copier coller
wksrc.Sheets("Annuaire").Cells.Copy wkdest.Sheets("Feuil1").[A1]
 
'sauvegarde fichier
wkdest.SaveAs chemindir & nomdest
 
'fermeture classeur destination
wkdest.Close
 
MsgBox "Le fichier a été enregistré sous le nom: " & vbCrLf & nomdest
End Sub

Ci-dessous le classeur exemple qui ne contient rien d'autre que ce code un bouton sur la feuille 1 et un tableau sur la feuille "Annuaire".

[stephadm]

re bonjour rvtoulon et au forum,

rctoulon, j'ai installé Office 2010 depuis ça fonctionne. Pourquoi ?

Ceci dit, c'est résolu

Merci à vous

Stephanie