ferleture d'une page

[sioli]

bonjour a tous j'ai un gros probleme avec la programation vb dans excel.

j'ouvre un doc.excel qui a un nom x par la vois normal excel.
j'ai une macro qui une fois le doc. x remplis me sauvegarde de doc. qui devient y par une procedure automatic , mais le y peux devenir n'importe quel lettre de l'aphabet puis ma macro rappelle le doc. x vierge .

le probleme je me drouve avec 2 doc. dans l'excel

et je voudrais garder que le x vierge puisque le y ou autre nom a ete sauver donc je voudrais quiter le doc y ou autre via une programmaton vb sans noter le doc y ou autre dans mon prog.puisque le nom de la premiere feuille change

j'ai dejas ecceller de le faire mais le probleme s'est le vb memorise le nom du premier doc.

 

[PascalXLD]

Bonjour

Tu mettrais ton code ce serait plus facile pour voir ce que tu fais et où il faut ajouter pour fermer le classeur

 

[sioli]

Re:fermeture d'une page

salut merci de me repondre

de quel code parle tu?

 

[sioli]

ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\725\\' & Range('f5') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False


ChDir 'C:\\5428\\Doc vierge'
Workbooks.Open Filename:='C:\\5428\\Doc vierge\\725 5428-5 vierge.xls'
Range('A1').Select

le premier sauvegarde le doc.x qui a ete modifier an y ou autre

le deuxieme rapelle du doc x vierge.

et je voudrais fermer le premier de la meme facon que je le sauvegarde

merci

 

[PascalXLD]

RE

Si tu veux le fermer de suite tu ajoutes

activeworkbook.close après la sauvegarde

 

[sioli]

j'ai copier ta commande le probleme s'est quel ferme tous les fichier or je voudrais garder le fichier x vierge et fermer le y ou autre modifier

 

[PascalXLD]

RE

Attends le nom de ton classeur tu le connais puisque tu l'enregistres ainsi

ActiveWorkbook.SaveAs Filename:= _
'C:5428datas725' & Range('f5') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False



Donc tu peux mettre dans une variable ton nom de classeur du genre MonClasseur=Range('f5') & '.xls'

et ensuite à la fin de ton code après réouverture de ton classeur vierge tu fais

workbooks(MonClasseur).close

 

[sioli]

merci pour la reponse , mais je ne suis pas encore appitue aux variable .
pourais tu me dire comment ?

merci

 

[PascalXLD]

Re

En fait tu declares en début de procedure

Sub toto()

MonClasseur as string

puis tu as ton code

à un moment donné tu sais quel nom va avoir ton classeur cela est lié à la cellule F5 mais comme il n'y a pas les \\\\\\\\ dans ton code c'est durt de voir

donc tu fais

MonClasseur = range('F5') & '.xls'

Tu adaptes ce code si tu as quelque chose dans ton nom de plus avant le nom saisi en F5.

Ensuite après ton code

ChDir 'C:5428Doc vierge'
Workbooks.Open Filename:='C:5428Doc vierge725 5428-5 vierge.xls'
Range('A1').Select

tu peux ajouter

worbooks(monclasseur).close

Bon courage

 

[sioli]

Sub savedoc()
'
' savedoc Macro
' Macro recorded 15/12/2005 by Daniel Cock
'

MonClasseur As String
MonClasseur = Range('i7') & '.xls'
If Range('f3').Value = '725' Then

ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\725\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If

If Range('f3').Value = '730' Then

ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\730\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If
If Range('f3').Value = '735' Then

ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\735\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If

If Range('f3').Value = '740' Then

ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\740\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If

If Range('f3').Value = '980G' Then

ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\980G\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If

' ChDir 'C:\\5428\\Doc vierge'
' Workbooks.Open Filename:='C:\\5428\\Doc vierge\\shims 5428-8 vierge.xls'
' Range('A1').Select

MonClasseur = Range('i7') & '.xls'
ChDir 'C:5428Doc vierge'
Workbooks.Open Filename:='C:\\5428\\Doc vierge\\shims 5428-8 vierge.xls'
Range('A1').Select

worbooks(MonClasseur).Close



End Sub

j'ai une erreur de ce type:

erreur de compilation
instruction incorrecte à l'exterieur d'un bloc de type

??????

 

[PascalXLD]

Re

j'ai fait une faute de frappe

c'est Workbooks(Monclasseur).close

 

[sioli]

merci pour ta reponsse

mais j'ai tous la même erreur ces cette ligne qu'il montre

MonClasseur As String

 

[PascalXLD]

Re

Une déclaration se fait par dim

Dim MonClasseur as Straing

 

[sioli]

desoler d'etre caspied mais ou doige mettre ce dim

Dim MonClasseur As Straing

je l'est mis juste en dessous de

Sub savedoc()
'
' savedoc Macro
' Macro recorded 15/12/2005 by Daniel Cock
'

'
Dim MonClasseur As Straing
MonClasseur As String

MonClasseur = Range('i7') & '.xls'

If Range('f3').Value = '725' Then

ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\725\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:

End If

If Range('f3').Value = '730' Then

ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\730\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If
If Range('f3').Value = '735' Then

ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\735\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If

If Range('f3').Value = '740' Then

ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\740\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If

If Range('f3').Value = '980G' Then

ActiveWorkbook.SaveAs Filename:= _
'C:\\5428\\datas\\980G\\shims\\' & Range('i7') & '.xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
Else:
End If

' ChDir 'C:\\5428\\Doc vierge'
' Workbooks.Open Filename:='C:\\5428\\Doc vierge\\shims 5428-8 vierge.xls'
' Range('A1').Select
ChDir 'C:5428Doc vierge'
Workbooks.Open Filename:='C:\\5428\\Doc vierge\\shims 5428-8 vierge.xls'
Range('A1').Select

Workbooks(MonClasseur).Close



End Sub

quand je l'enssent la macro par la fenètre non je plaisante , il me renvois toujour la mème erreur

erreur de compilation
instruction incorrecte à l'exterieur d'un bloc de type

 

[PascalXLD]

RE

Tu l'a mis au bon endroit mais il faut retirer l'autre ligne

MonClasseur as string

Car Dim MonClasseur as String remplaçait cette ligne