Exporter un classeur Excel

Version imprimable

05/04/2013, 09h19
bob456

Exporter un classeur Excel

Bonjour,

Je Débute en VBA et je suis en train d'apprendre sur Excel 2003.

J'aimerais savoir comment faire pour, lorsque l'on clique sur un bouton, cela enregistre le classeur dans un dossier spécifique.
Pour le moment j'ai seulement réussie à faire "Enregistrer sous". Mais ce que j'aimerais c'est exporter le classeur et non l' "Enregistrer sous" (pour ne pas écraser le fichiers en cours)

De plus, est t-il possible sous excel d'avoir une version comme sous Power Point lorsque l'on enregistre en .pps. C'est à dire de n'avoir plus qu'une fenêtre sans être dans le logiciel (avec toutes les options de d'édition et de modification)
En gros que l'on ai que la partie visibles des tables.

Enfin, peut on charger des informations d'un autre classeur sans que celui-ci s'ouvre (pour ne pas que l'utilisateur le voit)

Si vous n'avez rien compris demandez moi plus d'informations et je vous en fournirez

Merci :)
05/04/2013, 13h59
Denis la Malice

Premières pistes

Bonjour,

si tu n'as qu'une feuille dans ton classeur, alors tu peux utiliser la copie d'une feuille vers un nouveau classeur que tu enregistres et fermes. Je n'ai jamais essayé avec plusieurs feuilles, mais dans ce cas tu peux copier la première feuille vers un nouveau classeur puis boucler sur les autres feuilles que tu ajoutes à la première, puis tu enregistres et fermes.

Pour PowerPoint, je ne vois pas.

Accéder à des classeurs fermés, il y a plein de tutos. Personnellement j'aime bien celui-ci :
http://itknowledgeexchange.techtarge...o-querytables/
Mais il y a surtout cet incontournable :
http://silkyroad.developpez.com/VBA/ClasseursFermes/
08/04/2013, 08h34
bob456

Merci pour ton aide, je vais tester tout ça.

PS: Quand tu dis, enregistrer sur un nouveau classeur, l'ouvrir puis le fermer. Le code ressemblerait à quoi ?
Merci

Code pour enregistrer une copie de la feuille active

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub EnregistrerUneCopie()
    Dim Maitre As Workbook
    Dim RepertoireSpecifique As String
 
    RepertoireSpecifique = ActiveWorkbook.Path & Application.PathSeparator & "RepertoireSpecifique" & Application.PathSeparator
 
    Set Maitre = ActiveWorkbook
    ' Mémorisation du classeur courant pour être sûr d'y revenir après
    ActiveSheet.Copy
    ' Le classeur actif devient la copie du classeur courant (uniquement la feuille active)
    Application.DisplayAlerts = False
    ' Si le fichier existe, on l'écrase sans avertissement.
    ActiveWorkbook.Close savechanges:=True, Filename:=RepertoireSpecifique & "NomDuFichier"
    ' On ferme la copie en la sauvegardant dans le répertoire spécifique
    Application.DisplayAlerts = True
 
    Maitre.Activate
    ' On revient au classeur initial
End Sub

10/04/2013, 09h09
bob456

Merci :)