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

Ma macro ne fonctionne pas!!

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

Ice

Guest
Hello le forum


Voici ma macro mais elle ne fonctionnepas correctement. Quelqu un pourrait il m aider.

Mon but est de copier seulement les feuille du classeur 'miseajour' dans le classeur 'Copie de EVS' mais uniquement celle qui porte le meme nom.



Sub CopyFeuilles()
Dim i As Byte
Dim j As Byte
Application.DisplayAlerts = True
For j = 1 To ActiveWorkbook.Worksheets.Count
If ActiveWorkbook.Sheets(j).Name = Workbooks('Copie de Evs.xls').Sheets(j).Name Then
Windows('Copie de EVS.xls').Activate
Sheets(j).Delete
Windows('miseajour.xls').Activate
Sheets(j).Copy Before:=Workbooks('Copie de EVS.xls').Sheets('1_agent')
Windows('miseajour.xls').Activate
End If
Next j
End Sub


Merci pour votre aide


Fabrice
 
Trier par date Trier par votes
Bonjour

dans ta macro en fait telle que tu l'as écrite il faut que tes feuilles qui portent le même nom aient également la même position ou le même numéro.

Essaies peut-être ceci

Sub CopyFeuilles()
Dim i As Byte
Dim j As Byte, z as Byte
Application.DisplayAlerts = True
For j = 1 To ActiveWorkbook.Worksheets.Count
for z = 1 to Workbooks('Copie de Evs.xls').Worksheets.Count
If ActiveWorkbook.Sheets(j).Name = Workbooks('Copie de Evs.xls').Sheets(z).Name Then
Windows('Copie de EVS.xls').Activate
Sheets(z).Delete
Windows('miseajour.xls').Activate
Sheets(j).Copy Before:=Workbooks('Copie de EVS.xls').Sheets('1_agent')
Windows('miseajour.xls').Activate
exit for
End If
Next z
Next j
End Sub

Bon courage
 
Vote positif 0 Vote négatif
essaie comme ceci, ça devrait aller mieux :

Sub CopyFeuilles()
'Ti
Dim CopieWbk As Workbook
Dim WsS As Worksheet, WsC As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
Set CopieWbk = Workbooks('Copie de Evs.xls')
'mieux vaut être prudent !
If ActiveWorkbook.Name = CopieWbk.Name Then Exit Sub
For Each WsS In ActiveWorkbook.Worksheets
Set WsC = Nothing
Set WsC = CopieWbk.Worksheets(WsS.Name)
If Not WsC Is Nothing Then
WsC.Delete
WsS.Copy Before:=CopieWbk.Sheets('1_agent')
End If
Next WsS
Application.DisplayAlerts = True
End Sub
 
Vote positif 0 Vote négatif
Hello Ti

Merci pour ta correction!

Je ne suis pas un pro comme tu as pu le voir ! :whistle:

Juste une question ! faut ilque les feuille soit dans la meme position dans les deux classeurs comme tu me l as fait remarquer precedement ?


merci encore

Fabrice
 
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

M
  • Question Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
685
marie3107
M
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
586
Francky79
F
B
  • Résolu(e)
XL 2019 Tri onglets en fonction du contenu d'une cellule VBA
Réponses
9
Affichages
863
babie971
B
  • Résolu(e)
Microsoft 365 Save qu'une feuille d'un classeur
Réponses
4
Affichages
883
Electron24
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
878
M@xu3L
M
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
G
  • Question Question
Microsoft 365 Réduire la taille de la macro ?
Réponses
9
Affichages
1 K
Staple1600
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
  • 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
  • Question Question
XL 2019 Difficulté avec FileDialog
Réponses
11
Affichages
847
patricktoulon
L
  • Question Question
XL 2019 Besoins d'aide pour corriger une macro qui ne fonctionne pas - svp
Réponses
2
Affichages
987
ThierryP
T
  • Résolu(e)
Microsoft 365 Macro Excel qui n'arrive pas à enregistrer un doc Word
Réponses
10
Affichages
2 K
xUpsilon
A
  • Question Question
Microsoft 365 VBA: importer dans un dossier avec un nom variable
Réponses
4
Affichages
1 K
A-F
A
  • Résolu(e)
XL 2013 un dossier qui ne veut pas etre supprimer avant la fermeture du fichier
2
Réponses
18
Affichages
2 K
patricktoulon
S
  • Question Question
XL 2019 modifications macro svp
Réponses
3
Affichages
1 K
Bernard_XLD
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
A
  • Résolu(e)
XL 2019 Comment empêcher l'ouverture d'un fichier Excel, si les macros ne sont pas activés sur le pc
Réponses
7
Affichages
2 K
abi_71@
A
  • Résolu(e)
XL 2016 Un "call" de macro ne fonctionne pas
Réponses
11
Affichages
2 K
R1-
F
  • Question Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
788
job75
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…