Copier des données d'un classeur à un autre
Bonjour,
j'appris grâce au forum et à la patience de certaine, à copier des données d'une feuille 1 vers une feuille 2. (voir ci dessous une partie de la macro)Ma feuille 1 est une feuille de saisie de données.
With Sheets(Choix)
Cells(4, 4).Value = .Cells(3, 2).Value 'Nom
Cells(5, 4).Value = .Cells(3, 3).Value 'Prénom
Cells(6, 4).Value = .Cells(3, 4).Value 'Civilité
Cells(9, 4).Value.....
Mais je voudrais mettre ma feuille de saisie dans un autre classeur et je n'arrive pas à faire "trouver le chemin" à mes données. Et surtout je voudrais savoir si la copie est possible si l'un des classeurs à un mot de passe.
Merci de vos réponse
Salut,
Le fichier PEV_2 ci-joint est protégé par mot de passe (clef). Il doit être placé dans le même dossier que le fichier PEV_1 mais il peut rester fermé.
Tu ouvres le fichier PEV_1, tu cliques sur le bouton en place et le code va chercher le contenu d'une cellule du fichier PEV_2 qu'il inscrit dans la cellule B3.
Option Explicit
Sub aa()
Dim Chemin As String
Chemin = ThisWorkbook.Path
Workbooks.Open Filename:=Chemin & "\PEV_2.xls"
ThisWorkbook.Sheets("Feuil1").Range("B3") = ActiveWorkbook.Sheets("Feuil1").Range("A1")
ActiveWorkbook.Close
End SubSi les deux fichiers ne sont pas placés dans le même dossier, tu dois préciser le chemin du fichier PEV_2.
Cordialement.