Discussion :

[Nikoba79]

Bonjour,

j'aurai besoin d'un petit coup de main car je n'arrive pas à combiner les fonctions de sauvegarde.

j'ai un classeur qui comporte plusieurs feuilles dont la feuille BD, FT, PREV.

Les cellules de FT sont alimentées par des valeurs contenues dans un formulaire (avec des combobox) ex :
me.nom
me.forme

dans mon formulaire j'ai un bouton FT qui me permet d'alimenter la feuille et j'aimerai y ajouté une fonction d'enregistrement.

je souhaiterais que la feuille FT soit enregistrer :
1/ dans un dossier qui porte le nom de me.société dans mes documents
2/ au format excel dans un classeur différent avec comme nom de fichier : me.nom & me.forme & la date
3/ au format pdf dans ce meme dossier un fichier

j'ai commencé à travailler à la question dès que j'enregistre la feuille FT à part du classeur je ne peux plus utiliser les me.nom et me.forme ni même le chemin de fichier

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
 
 
Sheets("ft").Select
 
Dim Extension As String
Dim chemin As String, nomfichier As String, LaDate As String
 
'création de mon dossier
chemin = "C:\Users\NOB\Documents\" & Me.nom
MkDir (chemin)
 
'déclaration de mes variables
Extension = ".xlsm"
LaDate = Format(Date, "yyyy.mm.dd")
nomfichier = UserForm1.FORME.value & " _ " & UserForm1.NOM.Value & " _ " & "VDV "
 
'j'aimerai qu'il m'ouvre une fenêtre de dialogue enregistrer sous directement dans le dossier que j'ai créé et qu'il m'enregistre le fichier avec ce nomfichier
'mais comme j'ai mis la feuille en copie, il ne connait pas nomfichier et ne rempli pas la ligne "enregistrer sous" dans la boite de dialogue
 
Sheets("FT").Copy
Application.Dialogs(xlDialogSaveAs).Show nomfichier & LaDate & Extension
 
'si j'utilise le code ci-dessous je ne peux pas récupérer les valeurs de combobox
'With ActiveWorkbook
 '    Application.Dialogs(xlDialogSaveAs).Show 
     '.SaveAs Filename:="TEST" &  " _ " & Me.FORME & " _ "  & Me.NOM & " _ " & "VDV " & LaDate", FileFormat:=52
     '.Close SaveChanges:=False
'End With

Merci d'avance pour votre aide

[halaster08]

j'ai commencé à travailler à la question dès que j'enregistre la feuille FT à part du classeur je ne peux plus utiliser les me.nom et me.forme ni même le chemin de fichier

Bonjour,

Renseigne les dans des variables avant l'enregistrement

Code :

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

1
2
3
4
5
 
dim nom as string,forme as string,chemin as string
nom= me.nom
forme=me.forme
...

[Nikoba79]

Merci nickel