Discussion :

[Roms un]

Bonjour,

Ce programme crée un fichier Excel de synthèse qui est automatiquement envoyé par mail à l'intéressé.

Mais pour un souci de classement ce fichier Excel doit avoir un nom.

J'ai trouvé sur différents sites un moyen de le renommer simplement en l'enregistrant, mais justement j'aimerais éviter d'avoir à l'enregistrer.

Voila mon programme:

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
35
36
37
38
39
40
41
Sub Creation_fiche_xl()
 
'Masque les messages d'alerte
Application.DisplayAlerts = False
 
'Récupération du nom du premier fichier excel
nom_fichier1 = Windows(1).Caption
 
    'Masque les messages d'alerte
    Application.DisplayAlerts = False
 
'Création de la fiche boutique dans un nouveau fichier excel
    Workbooks.Add
    Application.WindowState = xlNormal
 
'Récupération du nom du deuxiéme fichier excel
    nom_fichier2 = Windows(1).Caption
 
'Copie de la feuille resultat
    Windows(nom_fichier1).Activate
    Sheets("Resultat").Select
    Cells.Select
    Selection.Copy
 
    Windows(nom_fichier2).Activate
    Sheets("Feuil1").Select
    Cells.Select
    ActiveSheet.Paste
 
'supression des feuilles dans ce ficchier excel
    Sheets("Feuil2").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Feuil3").Select
    ActiveWindow.SelectedSheets.Delete
 
'Envoi du mail à la boutique
    ActiveWorkbook.SendMail Recipients:=Range("A1").Value, _
    Subject:="Test envoi classeur", _
    ReturnReceipt:=True
 
End Sub

Merci par avance de votre aide!

[jfontaine]

Bonjour,

Qu'est ce qui t'empeche de l'enregistrer, l'envoyer puis le supprimer ?

[ouskel'n'or]

Bonjour,

Qu'est ce qui t'empeche de l'enregistrer, l'envoyer puis le supprimer ?

Je dirais même plus, mais puisque tu l'envoies, c'est qu'il est fermé, et s'il est fermé, tu peux le renommer

Code :

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

Name ancienNom as NouveauNom

regarde à Name, instruction dans l'aide en ligne

[CodeFacile]

Essayes ce code , ça parait plus light.

Code :

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

1
2
3
4
5
 
sub création_fichier
  workSheets ("résultat").Copy
 ActiveWindow.Caption = "fichier_renommé.xls"
end sub

[aalex_38]

Bonjour à tous,

Merci ouskel'n'or, je ne connaissais pas de l'utilisation de Name, c'est bien pratique. (par contre pas facile de touver l'aide dans l'editeur).

J'ai mis en pratique avec un classeur essai.xls :

Code :

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

1
2
3
4
5
Sub Renomme_Essai()
 
Name "C:\essai.xls" As "C:\essai2.xls"
 
End Sub

Ps : a adapter notamment avec la gestion d'erreur

[CodeFacile]

Tout bien réfléchi , il vaut mieux utiliser :

Code :

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

1
2
3
4
5
 
 
 workSheets ("résultat").Copy
 '   ActiveWindow.Caption = "fichier_renommé.xls"  ' pas d'avantage à l'utiliser
   ActiveWorkbook.SaveAs "fichier_renommé.xls"

La syntaxe ActiveWindow.Caption ne peut que compliquer car le fichier n'est pas renommé , il reste de la forme ClasseurXX.xls . Pour l'envoi , c'est pas terrible

[Roms un]

Bonjour,

Qu'est ce qui t'empeche de l'enregistrer, l'envoyer puis le supprimer ?

Bonjour,

Si je ne veux pas l'enregistrer c'est parce que ce n'est pas moi qui ferait tourner le programme. Et il va être utilisé par différentes personne sur différents postes info.
Je ne voyais donc pas où l'enregistrer et je ne pensais pas que l'on pouvait enregistrer sans spécifier de chemin d'accès.

Tout bien réfléchi , il vaut mieux utiliser :

Code :

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

1
2
3
4
5
 
 
 workSheets ("résultat").Copy
 '   ActiveWindow.Caption = "fichier_renommé.xls"  ' pas d'avantage à l'utiliser
   ActiveWorkbook.SaveAs "fichier_renommé.xls"

La syntaxe ActiveWindow.Caption ne peut que compliquer car le fichier n'est pas renommé , il reste de la forme ClasseurXX.xls . Pour l'envoi , c'est pas terrible

J'utilise ce code et ca fonctionne.

Mais le problème c'est que je ne vois pas comment supprimer le fichier après coups.
En effet le chemin d'accès pour cette dernière peut différer d'un poste à l'autre.

Pour ce qui est du Name c'est très pratique je ne connaissais pas mais je ne connais pas l'emplacement du fichier donc dans cette situation il ne me sert pas à grand chose
A moins qu'il existe un moyen de le retrouver!

Merci encor pour vos réponses

[ouskel'n'or]

ActiveWorkbook.SaveAs "fichier_renommé.xls"

enregistre le fichier dans le répertoire courant soit ActiveWorkbook.path, répertoire dont tu peux ainsi récupérer le nom une fois le fichier enregistré.

[Roms un]

Merci Beaucoup ca marche!

Merci pour vos reponses!