Discussion :

[bob456]

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

[Denis la Malice]

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/

[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

[Denis la Malice]

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
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

[bob456]

Merci