Discussion :

[nounours1952]

Bonjour à toutes et tous,

je sais c'est pas clair, ce qui ne facilite pas la recherche dans la FAQ !

Voici mon bout de code concernant l'enregistrement d'une feuille :

Code :

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

1
2
3
4
5
6
7
8
9
'Enregistre le fichier excel
    Application.DisplayAlerts = False 'désactive les alertes Excel
 
    ActiveSheet.SaveAs Filename:=Fichier & ".xls" 'enregistre le fichier
 
    Application.DisplayAlerts = True  'active les alertes Excel
 
    MsgBox "Le fichier a été créé ici : " & Chr(13) & Fichier _
    & Chr(13) & "Vous avez ainsi la possibilité de le modifier/compléter."

Le classeur actuellement ouvert se nomme "Test_6.xlm".
Le fichier qui sera créé par la macro se nommera "xyz.xls" (xls pour des raisons de compatibilité).
Une fois le fichier "xyz.xls" créé, il est automatiquement ouvert et remplace "Test_6.xlm", ce que je ne désire à aucun prix, puisque l'utilisateur voudra éventuellement continuer à utiliser l'application VBA liée au classeur "Test_6.xlm".

J'espère avoir été compréhensible.

Comment résoudre ce problème ?

Merci d'avance de toute aide.

Cordialement

[ptitcool]

Bonjour,

Je pense que ce que tu cherches c'est

Code :

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

1
2
 
ActiveSheet.SaveAs Filename:=ThisWorkbook.Path & "\xyz.xls"

Attention, il me semble que suivant la version d'Excel il n'y a pas forcément besoin du "\" avant xyz.xls.
Regarde à quoi est égal ThisWorkbook.Path & "\xyz.xls" avec un MsgBox pour voir si c'est ok, sinon dis nous ce que ça renvoie.

A+

[nounours1952]

Bonjour pticool,

quelle réactivité! Merci pour la piste, mais ce n'est pas ça.

ActiveSheet.SaveAs Filename:=ThisWorkbook.Path & "\xyz.xls"
nous renvoie
C:\Users\Pascal-PC\xyz.xls

et le classeur actif devient "xyz.xls" !

Cela ne résout donc pas le problème.

Je détaille un peu mieux la marche du programme.

L'enregistrement est déclenché par un bouton. Le nom du fichier (obligatoire) est entré dans une InputBox.
Ensuite, le programme demande où le fichier doit être enregistré.

Voici le code complet de la procédure.

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
'Demander où sauvegarder
    Dim Fichier As String

    Dim objShell, objFolder, Chemin As String

    Set objShell = CreateObject("Shell.Application")

    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)

    On Error Resume Next
   Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
     
    On Error GoTo 0
    
   Fichier = Chemin & "\" & Act

'Préparer le document pdf en format paysage
   ActiveSheet.PageSetup.Orientation = xlLandscape

'Enregistre le fichier excel
    Application.DisplayAlerts = False 'désactive les alertes Excel
    
    ActiveSheet.SaveAs Filename:=Fichier & ".xls" 'enregistre le fichier
    
    Application.DisplayAlerts = True  'active les alertes Excel
    
    MsgBox "Le fichier a été créé ici : " & Chr(13) & Fichier _
    & Chr(13) & "Vous avez ainsi la possibilité de le modifier/compléter."

    
'Enregistre la lettre en .PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fichier _
    & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=False

    MsgBox "Le PDF a été créé ici : " & Chr(13) & Fichier
           
'Effacer contenu feuille "Liste"

Mais je ne pense pas que cela change quelque chose. Sitôt l'enregistrement du "xyz.xls" effectué, ce classeur est ouvert à la place du "...xlsm" ouvert. Ce qui perturbera un utilisateur non averti, c-à-d la majorité du public visé.

Désolé.

Amicalement

[ptitcool]

Oh ok, je crois que j'avais rien compris :p

Si je comprends mieux, tu as le fichier Test_6.xlm qui lance une macro qui va créer une nouvelle feuille que tu veux enregistrer dans un nouveau fichier à l'endroit indiqué par l'utilisateur.
Je viens de faire le test et en effet le second fichier remplace le premier. Je n'ai pas de solution directe pour ça. Perso j'aurai directement créé un nouveau Workbook et non un Worksheet dans lequel j'aurai fait mes modif et que j'aurai enregistrer à la fin pour éviter le problème mais ça implique de modifier pas mal de chose dans ton code je suppose (mais pas sur).

[Menhir]

Je crois que ce que tu cherches, c'est la méthode SaveCopyAs de l'objet Workbook.

[ptitcool]

Ah oui en effet, ta solution marche et est bien plus rapide à mettre en place Menhir

[nounours1952]

Salut,

chapeau bas, c'est exactement ça. Mais comment vous faites ?

Merci, grâce à vous, j'ai moins peur de poser des questions idiotes émanant d'un ....
Va vraiment falloir que je surmonte mon handicap, mais ma devise étant "Aide-toi, Dieu t'aidera....".

Cordialement

[Menhir]

Mais comment vous faites ?

En lisant l'aide VBA.
Par exemple, la liste des membres de l'objet Workbook.
C'est très instructif.

ma devise étant "Aide-toi, Dieu t'aidera....".

Moi, ma devise c'est "Aide-toi et l'aide VBA t'aidera"