[VBA-E] fermeture + ouverture

**zouille** · 21/12/2005, 07h23

salut a vous

Voila , jaimerais a la fin de mon projet fermer mon classeur de travail et ouvrir le resultat du devis .
En fait mon projet ecrit un devis qu'il enregistre ensuite dans le dossier ou il se trouve sous le nom du client selon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Enregistrer()
Dim stRep As String
     Sheets("devis").Copy
       stRep = ThisWorkbook.Path & "\Devis\"
     For Each s In ActiveSheet.Shapes 
     If s.Type = msoFormControl Then
       s.Delete
     End If
Next
     ActiveWorkbook.SaveAs stRep & Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
     ActiveWorkbook.Close savechanges:=False
End Sub

Par contre a la fin du projet ( sur mon bouton quitter) j'ai ecrit ca :

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
ThisWorkbook.Close savechanges = False
Workbooks.Open "chemin_nom_classeur.xls"
End Sub

le probleme et que je ne sais pas coment ecrire le chemin et nom du classeur a ouvrir qui est fonction du client ( voir 1er code)

donc comment integrer : "ActiveWorkbook.SaveAs stRep & Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy")" dans mon code d'ouverture

merci a vous

**SfJ5Rpw8** · 21/12/2005, 07h37

Et qourquoi tu le ferme le classeur si tu dois le réouvir ?

sinon ..

Code :

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

1
2
3
4
5
6
7
 
 
Private Sub CommandButton1_Click()
 
Workbooks.Open ThisWorkbook.Path & "\Devis\" & Replace(sheets("Devis").Range("G4"), " ", "-") & Format(Now, "-ddmmyy") 
ThisWorkbook.Close savechanges = False
End Sub

**zouille** · 21/12/2005, 08h29

Cool , merci a toi

en fait le classeur de travail contient tous les onglets : client - articles - model et tous les codes vba , c'est pour cela que je le ferme dés le dernier article entré pour eviter toutes fausses manip des utilisateurs car la copie ne contient que l'onglet devis.

Voila , et merci a toi

**zouille** · 21/12/2005, 08h38

Encore moi , il y a un prob , ca n'ouvre pas mon projet : voici le code

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
Private Sub Quitter_Click()
Dim stRep As String
     Sheets("devis").Copy
     '
         stRep = ThisWorkbook.Path & "\Devis\"
     For Each s In ActiveSheet.Shapes 
     If s.Type = msoFormControl Then
       s.Delete
     End If
Next
     ActiveWorkbook.SaveAs stRep & Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
     ActiveWorkbook.Close savechanges:=False
 
ThisWorkbook.Close savechanges = False
Workbooks.Open ThisWorkbook.Path & "\Devis\" & Replace(Sheets("Devis").Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
Unload Me
End Sub

est il possible d'ajouter ce code ( si il est juste , avant la fermeture)

Code :

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

MsgBox " Devis & (Range("G4"), " ", "-") & Format(Now, "-ddmmyy") enregistré" vbExclamation

**SfJ5Rpw8** · 21/12/2005, 09h10

et il est ou ce code ... ?

Sinon comme je te l'ai dis plus huat c'est pas la peine de fermer ton classeur si tu dois l'ouvrir de suite aprés...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Quitter_Click()
Dim stRep As String
     Sheets("devis").Copy
     '
         stRep = ThisWorkbook.Path & "\Devis\"
     For Each s In ActiveSheet.Shapes
     If s.Type = msoFormControl Then
       s.Delete
     End If
Next
     ActiveWorkbook.SaveAs stRep & Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
 
 ThisWorkbook.Close savechanges:=False
End Sub

**ouskel'n'or** · 21/12/2005, 09h11

Hello,

Je croyais que ton devis de trouvait dans le répertoire "Devis"

Si tel est bien le cas, pourquoi à la place de

Code :

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

Workbooks.Open ThisWorkbook.Path & "\Devis\" & Replace(Sheets("Devis").Range("G4"), " ", "-") & Format(Now, "-ddmmyy")

ne mets-tu pas

Code :

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

Workbooks.Open stRep & "\Devis\" & Replace(Sheets("Devis").Range("G4"), " ", "-") & Format(Now, "-ddmmyy")

Ou alors j'ai mal compris ce que tu fais...

A+

**zouille** · 21/12/2005, 09h55

bon
j'ai du mal m'expliquer

Mon classeur de travail contient tout mes onglets de travail ainsi que code vba)
Qd j'ai fini de remplir mon devis ( par userform) le bouton "terminer" effectue une copie de l'onglet devis vers un nouveau classeur portant le nom client + date

ce que je veux en meme temps que la creation du classeur nom+date , c'est qu'il s'ouvre et ferme le classeur de travail (pour eviter les erreurs des utilisateurs)

j'ai bien essayer ca : (mon classeur de travail se trouve dans un dossier contenant un sous-dossier "devis" ou j'enregistre mes devis)

Hello,

Je croyais que ton devis de trouvait dans le répertoire "Devis"

Si tel est bien le cas, pourquoi à la place de

Code :

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

1
2
 
Workbooks.Open ThisWorkbook.Path & "\Devis\" & Replace(Sheets("Devis").Range("G4"), " ", "-") & Format(Now, "-ddmmyy")

ne mets-tu pas

Code :

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

1
2
 
Workbooks.Open stRep & "\Devis\" & Replace(Sheets("Devis").Range("G4"), " ", "-") & Format(Now, "-ddmmyy")

mais ca ne marche pas non plus , le classeur de travail se ferme bien , mais le nouveau ne s'ouvre pas , est ce par ce qu'il est en train de se creer en meme temps que je demande l'ouverture ? [/code]

**SfJ5Rpw8** · 21/12/2005, 10h00

Envoyé par zouille

bon
j'ai du mal m'expliquer
ce que je veux en meme temps que la creation du classeur nom+date , c'est qu'il s'ouvre et ferme le classeur de travail (pour eviter les erreurs des utilisateurs)

? en fait tu ve que le classeur contenant la macro ce ferme et se ré-ouvre tous seul ?

**zouille** · 21/12/2005, 10h20

Envoyé par bbil

Envoyé par zouille

bon
j'ai du mal m'expliquer
ce que je veux en meme temps que la creation du classeur nom+date , c'est qu'il s'ouvre et ferme le classeur de travail (pour eviter les erreurs des utilisateurs)

? en fait tu ve que le classeur contenant la macro ce ferme et se ré-ouvre tous seul ?

Alors mon classeur de travail contient 5 onglets ( accueil-model-clients-articles et devis ( la ou se mettent les infos entrees a partir du userform))

le bouton "terminer" de mon dernier userform, copie l'onglet devis dans un classeur nommé : nom-prenom-date ( le tout dans un sous-repertoir "devis ")

ce que je veux , c'est fermer le classeur de travail (celui avec 5 onglet) et ouvrir le nouveau cree juste avant pour voir le resultat.

Il est vrai que le resultat est visible dans le classeur de travail , mais je ne veux pas d'intervention maladroite des utilisateur dedans d'ou ma demande.

Voila , j'espere avoir été clair sur mon idées

Invité · 21/12/2005, 10h58

Il te reste une autre possibilité aussi (si fermer ton classeur pour en ouvrir nouveau est trop lent ou trop instable): cacher les onglets à protéger avec la commande

ThisWorkbook.Sheets(index).Visible = False

En tout cas ça te fait économiser des resources...

A+

**zouille** · 21/12/2005, 13h37

je suis d'accord avec toi , mais j'aimerais qd meme ouvrire ce fichier , pourquoi le code ne fonctionne 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
Private Sub Quitter_Click()
Dim stRep As String
     Sheets("devis").Copy
     stRep = ThisWorkbook.Path & "\Devis\"
     For Each s In ActiveSheet.Shapes 
     If s.Type = msoFormControl Then
       s.Delete
     End If
Next
     ActiveWorkbook.SaveAs stRep & Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
     ActiveWorkbook.Close savechanges:=False
    ThisWorkbook.Close savechanges = False
    Workbooks.Open stRep & "\Devis\" & Replace(Sheets("Devis").Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
 
Unload Me
End Sub

est ce parce que le code d'ouverture du fichier fait appel a un onglet devis du classeur que je ferme juste avant ? Sinon comment faire , est il possible de stocké le nom du fichier dans une "memoire"

merci

**SfJ5Rpw8** · 21/12/2005, 13h47

je me répéte mais supprime cette ligne ..

Code :

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

ActiveWorkbook.Close savechanges:=False

ainsi tu ne feme pas le fichier et donc ta pas besoin de le réouvrir !!!

**zouille** · 21/12/2005, 13h49

alors , je viens d'essayer ca et ca marche :

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
Private Sub Quitter_Click()
Dim stRep As String
     Sheets("devis").Copy
     '
     ' .. Voir s'il faut rajouter le réperoire de sauvegarde
     ' en activant la ligne suivante :
     stRep = ThisWorkbook.Path & "\Devis\"
     For Each s In ActiveSheet.Shapes 'Efface tous les boutons de la feuille
     If s.Type = msoFormControl Then
       s.Delete
     End If
Next
     ActiveWorkbook.SaveAs stRep & Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
     ThisWorkbook.Close savechanges:=False
    Workbooks.Open stRep & "\" & Replace(Sheets("Devis").Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
 
Unload Me

ca vous semble correcte ( modif au niveau du repertoire de destination)

**SfJ5Rpw8** · 21/12/2005, 13h51

cette ligne ne sert à rien ... le fichier et déjà ouvert ..!

Code :

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

Workbooks.Open stRep & "\" & Replace(Sheets("Devis").Range("G4"), " ", "-") & Format(Now, "-ddmmyy")

**zouille** · 21/12/2005, 14h04

ok
je comprend ce que tu veux dire , mais ce qui est ouvert c'est pas ce fichier , c'est le classeur de travail, ce que je veux c'est juste le devis , sans les autres onglets et ca , c'est le fichier portant le nom : client+date que j'enregistre avec la ligne juste avant ( ils sont differents : j'utilise l'onglet devis pour cree un autre classeur independant)

regarde , c'est ca que je veux faire ( mef ,faut un sous dossier devis) DEVIS

sinon , au passage , comment faire pour n'avoir que le pied de page sur la derniere feuille ( si devis fait plus d'une page) ? Car j'avais pas fait attention mais a la fin, j'ai mon texte de loie + signature et si le devis est un peu trop long l'ecriture en separe sur 2 feuille , je pensaisalors le mettre en pied de page
[/url]

**SfJ5Rpw8** · 21/12/2005, 14h16

Envoyé par zouille

ok
je comprend ce que tu veux dire , mais ce qui est ouvert c'est pas ce fichier , c'est le classeur de travail, ce que je veux c'est juste le devis , sans les autres onglets et ca , c'est le fichier portant le nom : client+date que j'enregistre avec la ligne juste avant ( ils sont differents : j'utilise l'onglet devis pour cree un autre classeur independant)

Code :

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

1
2
3
 ActiveWorkbook.SaveAs stRep & Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
     ThisWorkbook.Close savechanges:=False
    Workbooks.Open stRep & "\" & Replace(Sheets("Devis").Range("G4"), " ", "-") & Format(Now, "-ddmmyy")

je persiste la derniére de ces 3 lignes ne sert a rien, le fichier n'as pas à être ouvert car il n'est pas fermé il est juste Sauver sur la premiére ligne.!

**zouille** · 21/12/2005, 14h35

Envoyé par bbil

Envoyé par zouille

ok
je comprend ce que tu veux dire , mais ce qui est ouvert c'est pas ce fichier , c'est le classeur de travail, ce que je veux c'est juste le devis , sans les autres onglets et ca , c'est le fichier portant le nom : client+date que j'enregistre avec la ligne juste avant ( ils sont differents : j'utilise l'onglet devis pour cree un autre classeur independant)

Code :

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

1
2
3
 ActiveWorkbook.SaveAs stRep & Replace(Range("G4"), " ", "-") & Format(Now, "-ddmmyy")
     ThisWorkbook.Close savechanges:=False
    Workbooks.Open stRep & "\" & Replace(Sheets("Devis").Range("G4"), " ", "-") & Format(Now, "-ddmmyy")

je persiste la derniére de ces 3 lignes ne sert a rien, le fichier n'as pas à être ouvert car il n'est pas fermé il est juste Sauver sur la premiére ligne.!

je suis d'acord avec toi mais comment l'afficher autrement car le seul classeur ouvert ( et visible) c'est celui du depart (mon projet) avec tout les onglets.

si je comprend bien le code :
il y a copie de l'onglet "devis" dans un nouveau classeur (portant le nom du client + date) puis sauvegarde. ( a ce niveau , pour moi , le fichier n'est pas ouvert : il n'y a eu que copie et sauvegarde)

désolé mais j'essaie de comprendre

**SfJ5Rpw8** · 21/12/2005, 14h51

Envoyé par zouille

il y a copie de l'onglet "devis" dans un nouveau classeur (portant le nom du client + date) puis sauvegarde. ( a ce niveau , pour moi , le fichier n'est pas ouvert : il n'y a eu que copie et sauvegarde)

Et le classeur résultat de la copie tu pense qu'il n'est pas ouvert ? il et quoi alors ?

**zouille** · 21/12/2005, 15h50

Envoyé par bbil

Envoyé par zouille

il y a copie de l'onglet "devis" dans un nouveau classeur (portant le nom du client + date) puis sauvegarde. ( a ce niveau , pour moi , le fichier n'est pas ouvert : il n'y a eu que copie et sauvegarde)

Et le classeur résultat de la copie tu pense qu'il n'est pas ouvert ? il et quoi alors ?

ok
je suis d'accord avec toi mais comment l'appeler , si je met juste workbooks ("nom-date)show , ca serait corecte alors ?