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

Amélioration d'une macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion topo
  • 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
T

topo

Guest
Bnjour à tous !

Toujours dans ma recherche de Macro-isation de mon mode de travail, je voudrais améliorer une macro:
Cette macro duplique un fichier excel en fonction d'une liste et lui donne le nom que je souhaite : (date + nom sur liste)

PHP: 
Sub duplicata()

derlig = Range("a65536").End(xlUp).Row
For i = 1 To derlig
chemin = ActiveWorkbook.Path
If Right(chemin, 1) <> "\" Then chemin = chemin & "\"
nomfich = ("31-03-09") & "_" & Cells(i, 1).Value & ".xls"

ActiveWorkbook.SaveAs Filename:=chemin & nomfich
Next

End Sub

Avant d'enregistrer, je voudrais faire une autre modificication dans le fichier Excel : copier le nom sur la liste dans une cellule dans un autre onglet.
Je voulais faire ça :

PHP: 
Range(Cells(i,1)).select
selection.copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("autres").Select
selection.paste

mais cela ne fonctionne pas.

Merci de votre aide
 
Trier par date Trier par votes
Re : Amélioration d'une macro

Bonjour Topo 🙂,
Ne peux-tu pas simplement utiliser ?
Code: 
Sheets("Feuil1").Cells(i, 1).Copy (Sheets("autres").Range("A1"))
Feuil1 est a remplacer par ta feuille d'origine. Ton défilement d'onglet ne sert à rien, et le Paste non plus.
Bonne journée 😎
 
Vote positif 0 Vote négatif
Re : Amélioration d'une macro

Effectivement, c'est beaucoup plus simple !!!!!! Merci beaucoup JNP

Petite Question Bonus, Est-il possible, via la même macro de remplacer toutes les valeurs X de la feuille "autres" par la valeur copiée.
j'ai cette macro mais je ne sais pas comment la terminer :
PHP: 
      Dim MotRech As String, MotRempl As String
      MotRech = "X"
      MotRempl = Range('A1').Value
     'Remplacer le mot dans chaque cellule de la feuille
???? => replace workbook?

Merci beaucoup
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Amélioration d'une macro

Bonjour Topo, JNP

regarde le code ci-dessous, si cela peut t'aider :

Code: 
Sheets("autres").Cells.Replace "X", Range("A1").Value, xlWhole, , False

remplace x dans la feuille "autres" par la valeur contenue dans la cellule A1 de la feuille active.

bon après midi
@+
 
Vote positif 0 Vote négatif
Re : Amélioration d'une macro

Bonjour Pierrot93,

le code ne fonctionne pas, je ne sais pas ce qu'il fait, mais il a aucune incidence sur le fichier Excel.

Mon "X" se trouve dans des liaisons:ie : la cellule F6 = c:\mes docs\fichiers\X-date.xls
peut-être que ça joue, je ne sais pas ...

Merci beaucoup
 
Vote positif 0 Vote négatif
Re : Amélioration d'une macro

Re

oui c'est plus la même chose, si dans une formule, essaye peut être ainsi alors, plage de données à adapter :

Code: 
Sub test()
Dim c As Range
For Each c In Sheets("autres").Range("a1:a100")
    c.FormulaLocal = Replace(c.FormulaLocal, "x", Sheets("autres").Range("C1").Value)
Next c
End Sub

bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : Amélioration d'une macro

Bonjour,

J'ai essayé de grouper les deux macros, mais j'ai un problème dans l'ordre de création:
il me crée le fichier, me copie colle la cellule demandé, mais il ne remplace pas "deutschland" par la cellule demandée; il ne le fait que la première fois ...

ex: j'ai trois fichiers à changer : China, Czech, US
dans ma liste, il a ses trois noms (sur deux colonnes car j'en ai besoin de deux)
je lance la macro, elle me rentre correctement les noms des fichiers 31-03-09_China, elle copie colle china en 'P & L\A3' et elle me remplace les deutschland par China. Ok parfait.
Pour Czech et US, elle va uniquement me faire bien les deux premières étapes, mais elle va me changer deutschland par China et pas par Czech ou Us comme je lui ai normalement demandé (enfin je pense).
Que dois-je modifier?

PHP: 
Sub duplicata()

derlig = Range("a65536").End(xlUp).Row
For i = 1 To derlig
chemin = ActiveWorkbook.Path
If Right(chemin, 1) <> "\" Then chemin = chemin & "\"
nomfich = ("31-03-09") & "_" & Cells(i, 1).Value & ".xls"

Sheets("Datas").Cells(i, 2).Copy (Sheets("P & L").Range("A3"))

Dim c As Range
For Each c In Sheets("P & L").Range("I6:M170")
    c.FormulaLocal = Replace(c.FormulaLocal, "deutschland", Sheets("P & L").Range("A3").Value)
Next c

Dim b As Range
For Each b In Sheets("B & S").Range("E4:E55,E70,E72:E123")
    b.FormulaLocal = Replace(b.FormulaLocal, "deutschland", Sheets("P & L").Range("A3").Value)
Next b

ActiveWorkbook.SaveAs Filename:=chemin & nomfich

Next

End Sub

Merci

PS, j'ai essayé de changer le next de place, mais cela ne fait qu'inversé le problème.
 
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

N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
B
  • Question Question
Autres excel vba --> sauvegarder le dessin d'une feuille sur le disque dur
Réponses
2
Affichages
272
bernard_metz
B
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
764
un internaute
U
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
964
Simon 1234
S
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
571
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
784
Nounours4173
N
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
641
spike29
S
N
  • Question Question
Microsoft 365 Aide adaptation d'une macro
Réponses
2
Affichages
470
netparty
N
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
840
crazy
C
J
  • Question Question
Microsoft 365 Mini macro en VBA
Réponses
1
Affichages
314
jderoque
J
F
  • Question Question
XL 2013 Pouvez vous m'aider à ajouter la sélection de la racine à la macro d'examen d'arborescence
Réponses
10
Affichages
792
fb62840
F
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
655
JJ69
J
V
  • Résolu(e)
XL 2016 Facturier : Retour à la ligne sur la facture
2
Réponses
19
Affichages
2 K
Vermithor
V
A
  • Question Question
XL 2016 Macro et rajout d'un chiffre au nom d'un Shape
Réponses
9
Affichages
803
alain.raphael
A
M
  • Question Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
693
marie3107
M
R
  • Résolu(e)
XL 2019 amélioration d'une macro (actualisation auto et automatisation)
Réponses
11
Affichages
864
rh.finances
R
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…