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

Macro Copier/coller déselection

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

Esox

XLDnaute Occasionnel
Bonjour le forum,
J'ai l'impression que c'est simple mais je sèche.
J'ai une macro qui copie/colle des données, jusqu'ici pas de problème.
Parcontre je voulais que cela copie(ca c ok)+ouvre un autre fichier(ca c ok)+déprotège(ca c ok)+colle.
Le problème, c'est que quand je déprotège l'autre document, la sélection faite se désactive, donc je ne peux pas la coller.
Comment faire pour que la sélection ne se désectionne pas ??
merci bcp
Stef.
 
Trier par date Trier par votes
Re : Macro Copier/coller déselection

Bonjour,

Sans savoir de quelle sélection de quel classeur tu parles, à tester:

Code: 
Dim Plage as range
Set Plage = selection
'intructions pour Ouvrir et déprotéger le classeur
Plage.Copy Destination:=CellulesDuClasseurDeprotégé
A+
 
Vote positif 0 Vote négatif
Re : Macro Copier/coller déselection

Bonjour,
Déjà merci de me répondre si rapidement,
Alors en fait j'ai un fichier principal A qui est protégé.
Je suis en train de faire un fichier B destiné à mettre le A à jour.
Et en fait, je veux copier/coller une feuille entière du B, sur une feuille du fichier A qui est protégé, mais entre la sélection et la déprotection, la sélection se désélectionne.
Oulala je me relis et c'est très lourd.
Voici la macro :

Sub miseajour()

Application.Dialogs(xlDialogOpen).Show
Sheets("Accueil").Select
ActiveSheet.Unprotect Password:="toto"
Range("g1").Select
ActiveCell.FormulaR1C1 = "Accueil applcation version 10.01c"
ActiveSheet.Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

avec cette macro, je met à jour le contenu d'une cellule, mais je voudrai copier/coller la page entière. Si le fichier A avait un nom fixe, pas de problème, mais je suis sur que certains l'on renommé donc cela ne marchera si je spécifier le nom du fichier et copie /coller après.
Il faut je pense que je copie avant + ouvre le fichier à mettre a jour + sélection de la feuille concernée + déprotection + colle...


Je vous remercie vraiment pour votre aide...

nota : j essaie d'adapter les lignes que tu m'as donné Hasco.

Stef...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro Copier/coller déselection

Bonjour Esox, Hasco,
Pour le problème de "locliser" le nom et le chemin, où se trouve un fichier, je vous propose un code qui renvoi le chemin en D10 et le fichier en D12 de la feuille active.
Code: 
Sub Explorateur_fichier()
Application.CutCopyMode = False
Dim Fichier
Dim Nom_fichier
Dim Niveau
Dim sPath$
Dim Chemin
'Crée une boite de dialogue de sélection de fichiers :
With Application.FileDialog(msoFileDialogFilePicker)
.Show
If .SelectedItems.Count > 0 Then
sPath = .SelectedItems(1)
'Trouver le niveau de sous dossier ou se trouve le fichier
Niveau = (UBound(Split(sPath, "\")))
'Récupérer la chaine de caractère (nom du fichier) du niveau trouvé
Fichier = Split(sPath, "\")(Niveau)
'Renseigner les zones suivant le choix
Range("D12") = Fichier
Range("D10") = Left(sPath, Len(sPath) - Len(Fichier))
Set fd = Nothing
End If
End With
End Sub
En espérant ne pas être "à coté de la plaque"... 😉
Cordialement
 
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

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
  • Résolu(e)
XL 2021 Macro copier-coller colonnes précédentes
Réponses
12
Affichages
651
Retraite
R
3
  • Question Question
XL 2013 copier et coller un tableau croisé dynamique
Réponses
3
Affichages
587
306255
3
J
  • Résolu(e)
XL 2021 Problème code VBA
Réponses
10
Affichages
765
Phil69970
J
  • Résolu(e)
XL 2019 Détection de texte dans une Cellule pour le Copier et Coller dans un autre tableau
2 3
Réponses
40
Affichages
2 K
Phil69970
A
  • Résolu(e)
XL 2016 VBA pour sélectionner une plage de cellule à la dernière cellule vide
Réponses
2
Affichages
666
Anto35200
A
B
  • Question Question
XL 2016 Exécution macro à l'ouverture de fichier
Réponses
3
Affichages
665
crocrocro
C
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
774
marie3107
M
M
  • Résolu(e)
XL 2016 Copier/Coller case cochée vers feuil2
Réponses
3
Affichages
655
Phil69970
K
  • Résolu(e)
XL 2016 Créer une macro pour uniquement copier le contenu d'une cellule
Réponses
12
Affichages
2 K
KenJ
K
  • Résolu(e)
Microsoft 365 VBA - Coller la valeur d'une cellule d'une autre feuille...
Réponses
11
Affichages
926
13Hubert
A
  • Résolu(e)
Microsoft 365 Copier la même cellule de plusieurs onglets dans différentes colonnes
2
Réponses
23
Affichages
1 K
AlexiaC
A
T
  • Question Question
Microsoft 365 Copier/coller d'un onglet à l'autre correspondant au mois
2
Réponses
19
Affichages
1 K
TAL
T
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
4 K
Xender
X
O
  • Question Question
Microsoft 365 Macro copier avec condition
Réponses
9
Affichages
874
Staple1600
Q
  • Question Question
Google Sheets Script permettant de copier d'un doc google sheet A et un script permettant de coller sur un doc google sheet B
Réponses
0
Affichages
883
Quent17
Q
J
  • Résolu(e)
XL 2013 Macro et script vba : macro s'arrête dès la première condition trouvée
Réponses
11
Affichages
1 K
Janu44
J
E
  • Question Question
XL 2016 Comment copier-coller d'une colonne à une autre lorsqu'un filtre est en place ?
Réponses
4
Affichages
2 K
Etoto
T
  • Question Question
Microsoft 365 VBA sous excel pour écrire dans doc word
Réponses
2
Affichages
1 K
Titi71
T
D
  • Résolu(e)
XL 2013 Copier/Coller
2
Réponses
18
Affichages
2 K
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…