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

copier coller d un classeur avec le nom qui change

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

noon

XLDnaute Junior
bonjour
ci-dessous
ma macro me permet d ouvrir un fichier excel
sans connaitre le nom (vu que ce n est jamais le meme nom il faut que j aille le chercher moi meme d ou ma premiere ligne qui m ouvre l explorateur de fichier)
ensuite je fais un copier coller

mais voila j ai besoin de refaire un copier coller de ce meme fichier
mais etant donner que je l ai ouvert avec l explorateur de fichier
il n a pas de nom
alors comment le reouvrir sans que je passe encore
par 'Application.Dialogs(xlDialogOpen).Show' au miliey de ma macro

merci

Application.Dialogs(xlDialogOpen).Show
Sheets('Week End').Select
Range('A1:C56').Select
Selection.Copy
Windows('CantineNo.xls').Activate
Sheets('Week End').Select
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('A1').Select
Sheets('cantine').Select
Range('Z5').Select
Application.Dialogs(xlDialogOpen).Show
Sheets('fiche de base').Select
Range('A1😛59').Select
Selection.Copy
Windows('CantineNo.xls').Activate
Sheets('fiche de base').Select
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 
Trier par date Trier par votes
bonsoir,
bien sur qu'il a un nom ton classeur puisque tu l'as ouvert.
Après...
Application.Dialogs(xlDialogOpen).Show
mettre...
wbNam = ActiveWorkbook.Name

wbNam stockera le nom de ce classeur
ensuite...
Code: 
Workbooks(wbNam).Sheets('Week End').Range('A1:C56').Copy
Windows('CantineNo.xls').Activate
Sheets('Week End').Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks(wbNam).Sheets('fiche de base').Range('A1:p59').Copy
Workbooks('CantineNo').Sheets('fiche de base').Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Bon je t'ai fait ça en téléphoné à l'aveuglette mais... ça devrait faire l'affaire. Sinon tu reviens !
Ok ?
 
Vote positif 0 Vote négatif
bonjour galopin01
et tout d abord merci de ton aide

j ai essayer ce que tu m as donné

Application.Dialogs(xlDialogOpen).Show
Workbooks(wbNam).Sheets('Week End').Range('A1:C56').Copy

le code workbooks(wnam) pose un probleme

doit je faire autre choses ?
 
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

Discussions similaires

  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
156
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
309
AtTheOne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
574
ph.vanne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
383
Nounours4173
N
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
347
sylvanu
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
618
Phil69970
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
295
MICHIS
M
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
377
cdric78
C
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
463
micie1509
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
105
eastwick
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
680
robpellan52
R
V
  • Question Question
XL pour MAC outil coller le contenu du presse papier
Réponses
2
Affichages
653
Valter
V
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
767
gwenn49
G
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
333
safranien
S
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
806
marie3107
M
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
427
zendb
Z
F
  • Résolu(e)
Microsoft 365 Message Box oui/non
Réponses
2
Affichages
407
Francky79
F
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
806
olivier388
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…