Discussion :

[alex830001]

Bonjour,

Je souhaiterais ratacher à un bouton un code qui ouvre une boite de dialogue enregistrer sous et qui enregistre non pas le fichier entier mais uniquement l'onglet Feuil1.

Je n'arrive meme pas à ouvrir la boite de dialog enregistrer sous.

J'ai un code qui me permet d'ouvrir la boite de dialogue ouvrir un fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim fichier As Variant
ChDrive "H"
ChDir ("H:\DATA\")
fichier = Application.GetOpenFilename
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
If fichier = False Then
Application.DisplayAlerts = True
Exit Sub
End If

J'ai essayé de remplacer Getopenfilename par Getsavefilename mais ce n'est visiblement pas aussi simple..... :s



Merci pour votre aide.

[ucfoutu]

Bonjour,

Je souhaiterais ratacher à un bouton un code qui ouvre une boite de dialogue enregistrer sous et qui enregistre non pas le fichier entier mais uniquement l'onglet Feuil1.

Il te faut simplement :
-créer un nouveau classeur
- y coller ta seule Feuil1
- sauvegarder ce seul classeur.

EDIT : et tu aurais le code tout cuit en te servant simplement de l'enregistreur de macro (outils ===>> enregistrer nouvelle macro ===>> faire tes gestes == ouvrir ton classeur ===>> fichier ==>> nouveau ===>> créer un autre classeur ===>>> fenêtre ===>> revenir au 1er classeur ===>>> ton onglet ===>>> edition ===>>> sélectionner tout ===>>> copier ===>>> fenêtre ===>>> 2ème classeur ===>>> coller ===>>> arrêter la macro
Tu ouvres ensuite la macro ainsi enregistrée et tu en lis le code ...

[alex830001]

Salut,

oui je sais faire cela ms ce nouveau dossier contenant juste la feuil1 je sais l'enregistrer sous un nom défini dans le code par exemple et à un emplacement aussi défini dans le code.

Or ce que je voudrais c'est avoir la boite de dialogue enregistrer qui s'ouvre pour pouvoir choisir le nom du fichier et son emplacement.

[ucfoutu]

Rien ne t'empêche de faire ce que tu veux UNE FOIS ton classeur créé comme déjà indiqué et ta copie faite de ta seule Feuil1 !!!!
Je ne vois personnellement pas où est le problème ...

[drakkar_agfa]

Bonjour,

tu peux utiliser

Code :

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

Application.SaveWorkspace

Tu peux changer le nom par défaut si tu veux!

[alex830001]

j'arrive à ouvrir la boite dialogue "enregistrer sous":

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
Sub Bouton32_QuandClic()
 
Dim fichier As Variant, wbk As Workbook
ChDrive "H"
ChDir ("C:\DATA")
fichier = Application.GetSaveAsFilename
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
If fichier = False Then
Application.DisplayAlerts = True
Exit Sub
End If
 
 
End Sub

J'ai donc maintenant 2 possibilités:

1. Ouvrir l'invit enregistrer sous et enregistrer le fichier entier sous un nom et un emplacement que je choisis dans la boite de dialogue

2. Copier l'onglet Feuil1 et l'enregistrer dans un nouveau fichier sous un nom prédéfini et à un emplacement prédéfini.


Il faut maintenant que j'arrive à la possibilité 3:

3. Ouvrir l'invit enregistrer sous et enregistrer un fichier contenant la Feuil1 sous un nom et un emplacement que je choisis dans la boite de dialogue.

[drakkar_agfa]

Utilises le message d'ucfoutu pour faire un nouveau fichier, copier la feuille dans le nouveau fichier,
ensuite tu utlises le code pour obtenir la boite de dialogue Save (avec le nouveau fichier bien sur) et voila.

Ton nouveau fichier est enregistré avec la feuille dedans.

[alex830001]

J'ai rajouté une ligne.
J'ai un nouveau workbook qui s'ouvre avec comme contenue uniquement la feuil1.

La boite de dialogue enregistrer s'ouvre ensuite mais qd j'essai de sauver ce fichier, ça ne marche pas. Acun message d'erreur ms le fichier ne se sauvegarde pas.

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 Bouton32_QuandClic()
 
Dim fichier As Variant, wbk As Workbook
 
Sheets("Feuil1").Copy
 
fichier = Application.GetSaveAsFilename
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
If fichier = False Then
Application.DisplayAlerts = True
Exit Sub
End If
 
 
End Sub

[alex830001]

J'ai reussi!!!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton32_QuandClic()
 
Dim fichier As Variant
 
ChDrive "C"
ChDir ("C:\PRIX")
 
Sheets("EXTRACTION SAP").Copy
fichier = Application.GetSaveAsFilename(fileFilter:="Classeur Excel (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=fichier, FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close
 
End Sub