A voir également:
- Une macro dynamique pour plusieurs excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Tableau croisé dynamique - Guide
- Déplacer une colonne excel - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
2 réponses
g
Messages postés
1263
Date d'inscription
vendredi 23 avril 2004
Statut
Membre
Dernière intervention
15 mai 2017
572
15 avril 2011 à 08:55
15 avril 2011 à 08:55
Bonjour,
Pour cela il faut enregistrer la macro dans le fichier PERSO.XLS
Quant-à la seconde question, elle est probablement réalisable mais tu devrais fournir le code afin d'augmenter tes chances de réponses.
Bonne journée.
Je voulais savoir s'il existait un moyen de faire une macro non pas pour le fichier excel en cours mais pour tous nos fichiers excel (y compris ceux qui seront crées dans le futur)
Pour cela il faut enregistrer la macro dans le fichier PERSO.XLS
Quant-à la seconde question, elle est probablement réalisable mais tu devrais fournir le code afin d'augmenter tes chances de réponses.
Bonne journée.
Voici le code:
Sub Export()
Dim Destination As String
CheminA = "D:\Bureau\Emplacement"
'A MODIFIER
CheminB = "D:\Bureau\" & Destination
'A MODIFIER
If Dir(CheminA & "\" & "fichier.doc") <> "" Then
FileCopy CheminA & "\" & "fichier.doc", CheminB & "\" & "fichier.doc"
End If
MsgBox "Macro exécutée."
End Sub
Ce que je voudrais, c'est que la macro me demande quelle valeur je souhaiterais attribuer à Destination.
Comment faire ?
Si vous avez une réponse à cela, je suis prenant.
Sub Export()
Dim Destination As String
CheminA = "D:\Bureau\Emplacement"
'A MODIFIER
CheminB = "D:\Bureau\" & Destination
'A MODIFIER
If Dir(CheminA & "\" & "fichier.doc") <> "" Then
FileCopy CheminA & "\" & "fichier.doc", CheminB & "\" & "fichier.doc"
End If
MsgBox "Macro exécutée."
End Sub
Ce que je voudrais, c'est que la macro me demande quelle valeur je souhaiterais attribuer à Destination.
Comment faire ?
Si vous avez une réponse à cela, je suis prenant.