Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comment Enregistrer Un Fichier Exel Vers Plusieurs Destination En Un Clic

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion xavius77
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
X

xavius77

Guest
Bonjour a tous

Merci d avance pour le temp que vous allez me consacrer.

Je fais ma compta avec exel .
Pour etre sur de ne pas perdre mes donnés je suis obligé de faire plusieurs enregistrement vers disque reseau clee usb etc.

est il possible de lancer plusieurs destinations d enregistrement en un clic.

Merci et bonne journée
 
Trier par date Trier par votes
Re : Comment Enregistrer Un Fichier Exel Vers Plusieurs Destination En Un Clic

Bonjour,

Oui, c possible : 1 exemple avec 2 destinations :

Sub Macro2()

ChDir "C:\Documents and Settings\utilisateur\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\utilisateur\Bureau\Classeur1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

ChDir "F:\"
ActiveWorkbook.SaveAs Filename:= _
"F:\Classeur1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub


1 ) recopier autant de fois qu'il faut la partie en fuchia

2 ) modifer la partie en bleu dans chaque copie

3 ) créer un bouton sur une feuille et y associer la macro2

;-)
 
Vote positif 0 Vote négatif
Re : Comment Enregistrer Un Fichier Exel Vers Plusieurs Destination En Un Clic

bonjour,

tu peux aussi utiliser un tableau

Code: 
dim tableau as variant
dim i as integer
tableau = array("Chemin 1", "Chemin 2",...."Dernier chemin")

For  i = lbound(tableau) to ubound(tableau)

[COLOR=Magenta][COLOR=Black]This[/COLOR]Workbook.SaveAs Filename:= _
[COLOR=Black]tableau(i)[/COLOR], FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False[/COLOR]
next i

cordialement
 
Vote positif 0 Vote négatif
Re : Comment Enregistrer Un Fichier Exel Vers Plusieurs Destination En Un Clic

bonsoir a tous

Merci pour vos reponses mais cela me semble bien tros compliqué pour moi
et il possible de me créer un exemple que je pourrai copier en changeant les distination
merci
encors merci pour le tempque vous me consacré
 
Vote positif 0 Vote négatif
Re : Comment Enregistrer Un Fichier Exel Vers Plusieurs Destination En Un Clic

bonjour,

dans nos deux exemples, tu n'as qu' a remplacer les chemins donnés par les tiens.

Code: 
tableau = array("Chemin 1", "Chemin 2",...."Dernier chemin")
Chemin 1 est de la forme
"C:\Documents and Settings\utilisateur\Bureau\Classeur1.xls"

comme dans l'exemple de THE CAT 2007

cordialement
 
Vote positif 0 Vote négatif
Re : Comment Enregistrer Un Fichier Exel Vers Plusieurs Destination En Un Clic

Bonjour

ok pour la copie de c est ligne de commende le tous et de savoir ou et comment je dois les copier.

Pour le premiere exemple faut il créer une macro et pour le deuxieme qu es qu un tableau

MERCI ET BONNE JOURNEE
 
Vote positif 0 Vote négatif
Re : Comment Enregistrer Un Fichier Exel Vers Plusieurs Destination En Un Clic

Bonjour,
je suis pas le dieu de la macro mais il me semble que c'est assez simple

le deuxieme exemple est comme le premier mais avec une methode differente donc pour l'utiliser tu crée une macro du genre
Code: 
Sub Sauvegarde_Compta()
dim tableau as variant
dim i as integer
tableau = array( "C:\Documents and Settings\utilisateur\Bureau\Classeur1.xls", "D:\Sauvegarde Compta\...",...."Dernier chemin")

For  i = lbound(tableau) to ubound(tableau)

ThisWorkbook.SaveAs Filename:= _
tableau(i), FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
next i
End Sub

Corrigez moi si je me trompe
 
Vote positif 0 Vote négatif
Re : Comment Enregistrer Un Fichier Exel Vers Plusieurs Destination En Un Clic

bonjour à tous,

Merci tactic6 pour cet exemple complet,
Je ne crois pas qu'on puisse faire plus.

Pour faire fonctionner cette macro, tu crées un bouton sur ta feuille ou ailleurs et tu affecte une des macro proposé à ce bouton.
Pour la définition d'un tableau, regarde "Array" dans l'aide. Touche F1.

cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
P
  • Question Question
XL 2010 Comment copier tous les fichiers d'un répertoire et de ses sous-répertoires vers un dossier unique ?
2
Réponses
22
Affichages
9 K
Staple1600
S
  • Question Question
enregistrer une seule feuille d un classeur vers un dossier
Réponses
14
Affichages
1 K
submarine22
S
E
  • Question Question
[RESOLU] VBA Copies de plusieurs cellules en ligne vers autre feuille
Réponses
3
Affichages
2 K
Emmanuel_3005
E
A
  • Question Question
Enregistrer sous dans un dossier le même fichier plusieurs fois en changeant son nom
Réponses
3
Affichages
13 K
RENAUDER
C
  • Question Question
macro dans userform pour copier une ligne de UF vers un autre classeur ouvert
Réponses
5
Affichages
2 K
chatroc
C
Z
  • Question Question
Importation de données depuis Intranet avec Password Javascript 1.1
Réponses
0
Affichages
2 K
zephirsoul
Z
M
[REF] Wiki Page 10 de MichelXld
Réponses
0
Affichages
31 K
MichelXld
M
X
  • Question Question
comment cree un menu deroulant sur une feuille exe
Réponses
3
Affichages
2 K
xavier vid
X
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
52 K
MichelXld
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…