Macro Copier/coller déselection

[Esox]

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.

 

[Guest]

Re : Macro Copier/coller déselection

Bonjour,

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

Dim Plage as range
Set Plage = selection
'intructions pour Ouvrir et déprotéger le classeur
Plage.Copy Destination:=CellulesDuClasseurDeprotégé

A+

 

[Esox]

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...

 

[Efgé]

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.

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

 

[Esox]

Re : Macro Copier/coller déselection

Re,

Alors j'ai mal au crane lol....
je pensais que c'était plus simple que cela...
je vais quand meme essayer...

merci encore...