Discussion :

[vbword]

Salut à tous ...

J'ai un fichier word avec une macro ... dans le cadre de l'enregistrment de ce fichier, j'ai un bouton de commande enregistré qui a les fonctions suivantes :
- créer le fichier
- l'enregistrer sous le nom mentionné dans une zone de texte
- fermeture automatique du fichier

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdEnregistrer_Click()
 
'function Remplace
Remplace
 
'fonction enregistrement
Desti = ThisDocument.Path & "\" & frmUserForm1.txtnom.Text & ".doc"
ThisDocument.SaveAs (Desti)
Application.Quit savechanges:=wdDoNotSaveChanges
 
End Sub

Ce que je souhaiterait aujourd'hui, c'est qu'en cliquant sur le bouton Enregistrer s'ouvre la pop-up Enregistrer sous ...

Ou alors que celà génère une recherche sur l'ensemble des disques et qu'il enregistre le fichier selon une information saisie dans le fichier et que dans les disques il existe un dossier portant le même nom, donc il l'enregistre dans ce dossier ...

En espérant être clair ...
Si besoin d'explications plus pointues, n'hésitez pas ...

Merci d'avance ...

[Heureux-oli]

Je vais te donner un lien, essaie de voir ce que donne le tuto en question.

http://warin.developpez.com/access/fichiers/

[vbword]

Humm merci mais pas trouvé ce que je cherche ...

[Heureux-oli]

Essaie de détailler plus clairement tes besoins, parce que j'ai pas tout compris.

Le tuto t'explique comment en VBA utiliser le système de fichiers.
Et le système de fichiers comprend les disques, les répertoires et les fichiers.

[vbword]

Ayè ... j'ai trouvé

Avec la fonction de fermeture automatique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cmdEnregistrer_Click()
 
'fonction remplace
Remplace
 
'ouverture boite de dialogue Enregistrer sous ...
Dialogs(wdDialogFileSaveAs).Show
 
'fonction fermeture automatique
Application.Quit savechanges:=wdDoNotSaveChanges
 
End Sub

Merci quand même pour votre aide et le lien va peut-être me servir pour d'autres choses