Comment Enregistrer Un Fichier Exel Vers Plusieurs Destination En Un Clic

[xavius77]

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

 

[THE CAT 2007]

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

;-)

 

[fred65200]

Re : Comment Enregistrer Un Fichier Exel Vers Plusieurs Destination En Un Clic

bonjour,

tu peux aussi utiliser un tableau

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

 

[xavius77]

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é

 

[fred65200]

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.

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

 

[xavius77]

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

 

[tactic6]

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

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

 

[fred65200]

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