Discussion :

[Gerard6969]

Bonjour tout le monde,

Voilà, j’ai une application VB qui à été développé via le module Visual basic d’Excel (Excel 2003 soit la version 11). Dans cette application j’ai une feuille d’excel (Un devis) que je voudrais exporter/enregistrer dans un fichier excel. Pour permettre a mes clients de modifier ce devis si ils veulent rajouter des références ou autre. Dans cette feuille Excel il y a bien sur des formules, des objets graphiques, des colonnes qui ont des tailles différentes.

Je voudrais donc exporter cette feuille avec ça mise en pages, ces objets graphies et avec ses valeurs (Donc je ne veux pas conserver les formules mais uniquement les valeurs).


Ce qu’il faut s’avoir c’est que dans cette Application Visual Basic – Exel, il ne peut pas y avoir d’autre classeur Excel dans la même session (J’ai du mettre en place quelque que ligne de code pour permettre a mon application de s’exécuter seul dans une session unique d’Excel pour des raisons pratiques). Il est donc impossible de faire un simple copié collé de la feuille Excel en question, entre deux classeurs, puisqu’il n’y a aucun lien possible entre mon classeur Excel ou tourne mon application et éventuellement un autre classeur que l’on aurait ouvert pour copier la feuille Excel (ces deux classeurs ne pourront jamais être dans la même session).

J’ai des solutions mais qui me semble être plus du bidouillage que qu’elle que chose de propre. Je fais donc appel a vos lumières si vous avez des améliorations voir des méthodes différentes celles-ci sont les bienvenues

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
29
30
31
32
33
34
35
36
37
38
39
 
Sub Save()
Dim ApplicationName As String
Dim ExcelVersion As Integer
Dim ApplicationVersion As Integer
ApplicationName = ThisWorkbook.Name
 
'je nettoie la feuille tampon qui va recevoir une copie de la feuille devis que je veux exporter
Sheets("TempSheet").Select
ActiveSheet.Shapes.SelectAll
Selection.Delete
ActiveSheet.Cells.Clear
 
'Je copie la la feuille qui contient mon devis
Sheets("CHART-OFFER").Range("A1:H63").Copy
Sheets("Tempsheet").Range("A1").Select
 
'Je test la version excel du client car la méthode paste special fonctionne differement celon la version d'excel
'Je copie d'abord la taille des colonnes de mon devis vers la feuille tampon
If ApplicationVersion > ExcelVersion Then
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
Selection.PasteSpecial Paste:=8, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
 
'Ensuite je copie entierement mon devis vers la feuille tampon, ce qui me permet de copier mes objects graphique, mais les formules sont aussi copier, je vais donc les remplacer par leur valeurs grace a la ligne suivante
Sheets("TempSheet").Paste Range("A1")
 
'Ensuite j'ecrase les formules precedement copier sur ma feuille tampon par les valeures de ma feuille devis
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'Je copie cette feuille tampon pour pouvoir l'exporter
Sheets("TempSheet").Copy
'J'utilise la methode Save'as qui me permettra de choisir le nom du nouveau classeur excel qui contiendra ma feuille devis
Application.Dialogs(xlDialogSaveAs).Show
 
'Je retourne sur mon application
Windows(ApplicationName).Activate
End sub

J’avais pensé à une autre méthode : Imprimer dans un fichier
J’ai testé mais le fichier que j’obtiens en sortie je ne sais pas avec quoi l’ouvrir, donc ça ne me parait pas être une bopnne méthode mais je vous la mets quand même ça peut donner des idées

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
 
 
A) in Excel 97 :
Sub prinTofile()
Dim fileName As String
fileName = "MyPint.prn"
 
ChDrive "C"
ChDir "C:\My Documents"
If Dir(curdir & "\" & fileName) <> "" Then kill curdir & "\" & fileName
SendKeys fileName & "{enter}"
thisworkbook.Worksheets("Sheet1").PrintOut PrintToFile:=True
End Sub
 
B) in Excel 2000 :
Time to switch over to Excel2000 where you can specify the filename as follows :
thisworkbook.Worksheets("Sheet1").PrintOut PrintToFile:=True, Prtofilename:="C:\MyTest.prn"

[ouskel'n'or]

Ce qui serait bien serait que tu nous expliques pourquoi tu ne peux pas ouvrir deux classeurs en même temps...
Ceci dit, j'ai vu passé, il y a pas mal de temps, un post sur l'écriture dans un fichier Excel fermé. Je cherche et je te dirai si je trouve

[ouskel'n'or]

J'ai cherché et j'ai trouvé avec "fichier fermé" comme mots clés
http://www.developpez.net/forums/sho...327#post618327
Tu dis

[Gerard6969]

Je peux avoir deux classeurs d'ouvert, seulement ils ne seront pas dans la même session ou instance d'Excel pour des raisons pratique envers mes clients.

Pourquoi j'ai fait ca ?

Car lorsqu'une macro ou application visual basic (je le rappel dans mon cas l'application visual basic a été développé via le module d'Excel) est lancé, et que dans un deuxieme temps tu decide d'ouvrir un fichier excel, celui-ci va s'ouvrir dans la même session que ton application et par la même sera inacessible tant que l'application Visual Basic est lancé, ce qui est vraiment peut pratique. La méthode c'est d'aller ouvrir un deuxiéme Excel et avec celui-ci ouvrir le fichier que tu souhaite consulter

J'ai donc mis en place un bout de code qui permet d'automatiser le lancement d'une deuxieme session excel (lorsque mon application visual basic est lancée) et permettre a mes clients de visualiser un document excel en même temps que l'application visual basic tourne (c'est transparent pour eux). Sinon il devrait manuellement lancer un deuxieme fichier excel et via cette deuxieme instance d'excel aller ouvrir le fichier excel qu'il souhaite consulter.

[Gerard6969]

Sinon j'ai brièvement regardé le lien que tu ma mis, mais celui-ci ne semble pas en rapport avec ce que je veux faire.

Pour rappel je veux simplement sauvegarder une feuille excel qui est présente dans le classeur de mon Application visual basic vers un classeurs quelconque, on pourrait voir sa comme un export ou une sauvegarde.

[ouskel'n'or]

Ok, on va voir si j'ai bien compris...
Tu veux pouvoir consulter une feuille et pour ça, tu veux pouvoir passer d'une feuille à l'autre sur simple demande...
Deux questions :
- Au départ, la feuille que le client souhaitera consulter est-elle dans le même classeur ?
- Dans ton module VBA, as-tu un userform ouvert ?
A+

[Gerard6969]

Heu non non, je passe par une feuille tampon car je doit transformer les formules de mon devis par leurs valeurs respectives. Ceci me permet par la suite de sauvegarder(/exporter) ma feuille tampon(qui est donc une copie de ma feuille devi) avec des valeurs et non pas avec des formules qui pointeraient sur mon application, ce qui serait un peu embettent

Mais je suis pas sure que t'es compris ce que je voulais faire, enfait je veux pouvoir enregistrer une feuille excel (En l'occurence un devis) vers un fichier seul (en gros séparer cette feuille devis de mon application), qui permettra a mes clients de pouvoir modifier ce devis à leur guise comme rajouter des accessoires ou autres.. et moi ca me permet de par leur laisser accès a mon programme.

Et Pour finir dans mon premier poste j ai deposer le code qui réalise deja cette fonction (oui mon problème est déjà résolu...), sauf que je le trouve plus que moyen, c'est que de la bidouille et donc peu fiable. Enfait je voulais savoir si une personne pouvait me l'ameliorer ou carrement me le remplacer !

voili voilou

[Gerard6969]

Bonjour tout le monde, décidement je pose beaucoup de question ces temps si.

Alors voilà je me posais une question, je ne sais pas du tout si c'est possible et donc j'attend vos réponses

Est-il possible de sauvegarder uniquement une feuille spécifique parmis tout un classeur ?

En gros on a un classeur X avec une feuille 1, 2 et 3

Ces 3 feuilles ont subi des changements, est il possible de sauvegarder uniquement les changements occasionné sur la feuille 1 par exemple ?

Et donc si c'est possible n'hésitez pas a poster le code

Merci tout le monde

[conconbrr]

Ben je peux te proposer un truc. Tu transféres ta feuille1 vers un nouveau classeur que tu sauvegarde et tu fermes ton premier classeur sans le sauvegarder. Ne reste plus qu'à ouvrir les deux et réunir les pages (ce qui nécessite une étape manuelle)

Transfert de page :

Code :

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

1
2
worksheets(1).move
activeworkbook.saveas TonChemin

Puis fermer les classeurs :

Code :

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

1
2
application.displayalerts=true
application.quit

T'avoues que j'ai pas trop réfléchi, y a sûrement mieux mais bon dans un premier temps ça peut le faire

[Gerard6969]

Ca pourrait être une solution, mais dans mon cas celle-ci ne marcherais pas, dû fait que mon application VB (développé via la module Visual Basic d’Excel) tourne (ou se lance) dans une session unique d’Excel, ce qui interdit tout copier/coller/déplacement entre le classeur de mon application et un autre.

Donc si quelqu’un à une autre solution je suis preneur, en tout cas je te remercie d’y avoir réfléchi.

[ouskel'n'or]

Oui, j'avais compris ça mais j'avais simplement donné le principe alors que tu donnais la solution, solution que tu cherches à améliorer...
Tu n'es pas obligé de lancer une nouvelle instance d'Excel pour créer la copie d'un devis dans un nouveau classeur, copie ne contenant que les valeurs et non les formules, j'avais compris.
Tu as l'instruction Add qui te permet de créer un nouveau classeur.
Tu as l'instruction copy pour copier une feuille dans ce nouveau classeur
Tu as l'instruction PasteSpecial pour ne coller que les valeurs
Ce qui donne

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
Sub CopierFeuilleDansNouveauClasseur()
'1 - on copie la feuille dans un nouveau classeur afin d'avoir le même format
    NomFichCopié = ActiveWorkbook.Name     'Le fichier contenant tes macros
    Workbooks.Add                'création d'un nouveau fichier
    NomFichNouveau = ActiveWorkbook.Name 'On relève son nom provisoire
    'On colle la feuille dans le nouveau classeur
    Workbooks(NomFichCopié).Sheets("FeuilCopiée").Copy _
         Before:=Workbooks(NomFichNouveau).Sheets(1)
 
'2 - On fait une copie des données de la feuille déjà copiée
    Application.CutCopyMode = False
    Workbooks(NomFichCopié).Sheets("FeuilCopiée").Cells.Copy  'Copie des données
    Range("A1").Select           'On est toujours dans le nouveau classeur
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False   'On ne colle que les valeurs
    Workbooks(NomFichNouveau).SaveAs FileName:="NomQueTuVeux.xls"
    Workbooks("NomQueTuVeux.xls").Close
End Sub

En copiant la feuille d'abord, puis les valeurs, tu as un nouveau classeur avec les valeurs et le format de ton devis
Tu dis si je me suis trompé

NB - Tu peux définir le nombre de feuilles de ton nouveau classeur (je n'ai plus le code en tête mais je peux le retrouver)

Edit
Tu n'es pas obligé de mettre les paramètres par défaut lors du collage. Il suffit de mettre

Code :

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

    Selection.PasteSpecial Paste:=xlValues

[Gerard6969]

Ca pourrait être une solution, mais mon application tourne dans une section unique Excel, donc il m'est impossible de faire des copier/coller ou déplacement entre le classeur de mon application et un tout autre classeur. C'est pouquoi j'utilise la methode saveas sur la feuille tampon.

Deuxièment avec ton code je fixe dés le début le nom du fichier Exel ou sera sauvegarder(ou exporter) la feuille devis, ce qui risque de poser problème a mes clients puisqu'ils risques d'écraser leurs anciennes sauvegardes, ce qui peut être embétant. D'ou l'utilisation encore une fois de la methode saveas qui permet a mes client de leur laisser libre choix quant au nom du fichier Excel de sauvegarde.

Merci de te pencher sur mon cas en tout cas

[ouskel'n'or]

Je réponds à ton "Deuxièment"
Si tu inclus un élément de date, d'heure ou que tu incrémentes le nom du fichier, tu n'auras pas de doublon.
Pour ton premièrement, je ne comprends pas "mon application tourne dans une section unique Excel"
Qu'entends-tu pas là ? Je connais pas tout, loin s'en faut
A+

[Gerard6969]

Quand je parle de session unique, c'est à dire que dans une instance unique d'excel il'nypeut avoir qu'un seul classeur, tout autre classeur lancer sera obligatoirement ouvert dans une nouvel instance d'excel, et non pas celle qui est deja lancer (en l'occurence celle ou mon application tourne)

Ce qui veux dire qu'il ne peut y avoir aucun lien entre ces deux classeurs, puisqu 'il sont dans des instances d'Excel differentes

Pour en revenir à la méthode saveas, j'aimerais bien laisser la possibilités à mes clients de choisir le nom du fichier de sortie, cest pour ca que je n'utilise pas ta méthode de la date et heure pour avoir un nom de fichier unique.

[Gerard6969]

c'est deux postes différent, d'un coté je veux exporter une feuille, de l'autre je veux sauvegarder uniquement une feuille specifique de mon classeur et non pas tout mon classeur

[ouskel'n'or]

Saveas :
Si tu crains les doublons dans les noms de fichiers, tu peux faire ça dans une boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
msg = "Saisir le nom du fichier "
Do
     on error resume next
          NomFich = inputbox(msg,"Nom du Fichier") 
          ActiveWorkbook.saveas filename:= "NomFich"
          ok = err = 0
          err.clear
     On error goto 0
     msg = "Fichier existant" & vbcrlf & msg
loop while not ok

Juste pour l'idée...
Une simple gestion d'erreur permettrait de pallier le problème

[Gerard6969]

Oui c'est une bonne idée, pourrait tu réouvrir mon autre topic qui n'était pas en rapport avec celui la, sa serait sympa

mais bon sa resoud toujours pas ma méthode de sauvegarde que je trouve longue et fastidieuse, mais bon je pense rester comme ca, avec l ajout de ton bout de code pour les doublons de fichiers

merci

[conconbrr]

Honnêtement je n'ai pas pigé le coup de l'ouverture d'une autre instance d'Excel.

J'ai créé un projet dans lequel j'exporte des feuilles vers un classeur conçu à cette occasion puis je l'enregistre et le ferme en utilisant

Code :

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

 activeworkbook.close

, ce qui me ramène automatiquement vers mon premier classeur que tu peux ensuite automatiquement fermé en réutilisant

Code :

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

 activeworkbook.close

.

Je ne vois vraiment pas où est le problème??

Pour les doublons j'ai extrait un bout de mes procédures d'enregistrement qui devrait t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
    stTestFichier = stCheminClasseur & "\" & stNomFichier
    Select Case Tester_ExistenceFichier(stTestFichier)
        Case True
            vaEcrasementFichier = MsgBox("Le nom de fichier est déjà utilisé, voulez-vous écraser l'ancien fichier?", vbYesNo + vbCritical, "Ecraser fichier")
            If vaEcrasementFichier = vbNo Then Exit Sub
            Application.DisplayAlerts = False
            ActiveWorkbook.SaveAs stCheminClasseur & "\" & stNomFichier
            Application.DisplayAlerts = True
        Case False: ActiveWorkbook.SaveAs stCheminClasseur & "\" & stNomFichier
    End Select

et

Code :

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

1
2
3
4
5
6
7
8
9
Function Tester_ExistenceFichier(CheminFichier As String) As Boolean
 
    If Dir(CheminFichier, vbNormal) <> "" Then
        Tester_ExistenceFichier = True
    Else
        Tester_ExistenceFichier = False
    End If
 
End Function

Tu l'auras bien compris tu dois complété stCheminClasseur et déclaré les variables

[ouskel'n'or]

d'un coté je veux exporter une feuille, de l'autre je veux sauvegarder uniquement une feuille specifique de mon classeur et non pas tout mon classeur

Non, ce n'est pas une autre question car tu peux utiliser la même solution dans les deux cas
Dans le classeur principal tu supprimes les feuilles que tu ne veux pas garder et tu l'enregistres "sous" puis tu rouvres le classeur principal.
Pour que ta feuille contiennes les valeurs seules, tu copies les cellules et tu colles les valeurs avant de supprimer les feuilles indésirables et d'enregistrer ton fichier sous un autre nom
Enfin, si besoin est, tu rouvres ton fichier principal
Tu dis

[Gerard6969]

Je peut pas être plus claire pour expliquer mon histoire de session unique ou privée, mais en tout cas merci d'avoir passer du temps pour m'aidé, c'est vraiment agréable d'avoir des personnes qui sont toujours prêtes a répondre a nos questions

encore merci