Discussion :

[ellewided]

Bonjour à tous,

je travaille avec deux fichiers excels :
ma macro est écrite dans le fichier 1: gestion, et elle me permet d'utiliser le fichier 1 pour remplir le fichier 2: fievide.

à la fin de cette manip , j'aimerai fermer gestion, sauvegarder une copie de fievide après les modifications apportées sous un nom qui serait un nom d'une variable dans le programme, sans pour autant modifier fievide original qui va etre fermé sans aucune modification.
tous les fichiers vont etre fermés à la fin.

voilà une partie de 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
 
 
Sub Test()
 
Dim imm As Long
Workbooks.Open "D:\Documents and Settings\wboudgui\Desktop\test17juillet\fievide.xls"
Workbooks("fievide.xls").Activate
Workbooks("gestion.xls").Activate
 
' manipulations faites: réussi...
 
' là j'aimerai faire les manip suivantes:
'fermer gestion
'enregistrer une copie de fievide sous un autre nom qui serait le nom d'une variable , IMM par exemple,  j'ai utilisé savecopyas mais je crois que j'applique pas la bonne syntaxe car ça engendre tjrs des erreurs
'fermer fievide original sans modification
 
End Sub

merci bien

[Krovax]

bonjour,
essaye pour enregistrer gestion

Code :

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

    Workbooks("fievide.xls").SaveAs Filename:= "c:\ton dossier\" & VariableNom

Pour fermer et enregistrer gestion

Code :

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

Workbooks("gestion.xls").close true

(false pour ne pas enregistrer les modifs)
Pour fermer fievide

Code :

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

Workbooks("fievide.xls").close false

Remarque
Si tu utilise le saveas fievide n'est plus ouvert il est remplacé par la nouvelle version.
Autre chose si tu ferme gestion la macro s'arrete (logique) donc fini par ca
dernière remarque faire 2 activate de suite ne sert a rien seul le dernier des deux est utile (cela fonctionne par récurrence pour 3,4,...)

[ellewided]

salut Krovax ,
merci bcp de la réponse
en fait j'ai essayé ce code , il me permet de créer un exemplaire du fichier fievide et de l'entregistrer sous le nom de la variable: nomvariable choisi (ici ma variable s'appelle nom )
mais à la fin de l'excécution du programme, ce nouveau fichier nom reste ouvert , j'ai essayé quelques codes pour le fermer mais ça ne marche pas
voici mon code

Code :

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

1
2
3
4
5
6
7
8
 
 
 Workbooks("fievide.xls").SaveAs Filename:="D:\Documents and Settings\wboudgui\Desktop\test17juillet\" & nom
 
 'Workbooks(& nom.xls).Close True : cette ligne ne marche pas, j'ai essayé  Workbooks & imm(".xls").Close True mais ça ne marche pas non plus
 
 Workbooks("gestion.xls").Close False
 Workbooks("fievide.xls").Close False

merci, @+

[Krovax]

tu n'as pas vraiment lut mes remarque non?

si tu ferme gestion la macro s'arrete (logique) donc fini par ca

le saveas fievide n'est plus ouvert il est remplacé par la nouvelle version.

Donc fait le save as
ferme en utilisant le nouveau nom
ferme gestion

[ellewided]

re
oui oui , en fait j'ai fait ça
t'as raison , c'était une faute de ma part de mettre

Code :

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

1
2
 
Workbooks("fievide.xls").Close False

car fievide est déjà remplacé par le nouv fichier
mais en fait , comme je débute je sais pas comment enregistrer le nouveau fichier, c'est au niveau de la syntaxe que ça cloche comme il s'agit d'une variable et non pas un nom de fichier constant et défini

Code :

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

1
2
3
4
5
6
 
Workbooks("fievide.xls").SaveAs Filename:="D:\Documents and Settings\wboudgui\Desktop\test17juillet\" & nom
 
 Workbooks ( & nom ".xls").Close True
 
 Workbooks("gestion.xls").Close False

la faute est dans la ligne :
Workbooks ( & nom ".xls").Close True

merci bien

[Krovax]

Petit démonstration sur la concaténation

Code :

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

1
2
3
4
5
6
7
8
9
10
dim a as string, b as string, c as integer
a="Mot 1"
b="Mot2"
 
msgbox a & b
msgbox a & "entre mot" & b
msgbox a & " entre mot " & b
c=15
msgbox "on peu aussi concaténer des valeur ici : " & c
msgbox "Voir meme des calculs 15+9*2=" & c+9*2 & "(en rajoutant un truc dérière si l'on veut)

Code :

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

1
2
3
4
5
Workbooks("fievide.xls").SaveAs Filename:="D:\Documents and Settings\wboudgui\Desktop\test17juillet\" & nom & ".xls"
 
 Workbooks ( nom & ".xls").Close True
 
 Workbooks("gestion.xls").Close False