copier-coller données d'un fichier excel vers un autre.Résolu/Fermé

Question

Bonjour la communauté, 

J'aurai besoin d'un petit coup de main avisé de votre part pour résoudre une macro que j'essaie de mettre en place, sachant que je ne maitrise pas vraiment ce domaine.

J'ai pour objectif (dans un fichier excel déjà ouvert) :

- d'aller ouvrir via macro un autre fichier excel situé dans autre un dossier qui pourra changer selon le nom contenu dans une certaine cellule de mon 1er fichier excel ouvert;

- copier certaine données sélectionnées d'une feuille;

- coller ces données copiées dans un tableau du fichier ouvert (coller façon collage spécial valeur);

- refermer le fichier EXCEL ( le 2e fichier)

J'ai effectué un enregistrement macro qui fonctionne mais pour un seul fichier (le coté variable ne fonctionne pas). 

J'ai tenté ensuite en navigant sur les forums d'obtenir un algorithme pouvant respecter le côté variable tout en combinant l'aspect enregistrement macro pour le côté répétitif de la tâche mais ça n'a pas l'air de fonctionner.

veuillez trouver ci dessous l'algorithme que j'ai fait. Les lignes retravaillées provenant de l'enregistrement macro apparaissent en rouge dans l'outil VBA.

ne sachant pas comment vous insérer le code j'ai mis en joint une image pour que vous ayez une petite idée de ce que j'ai fait et des corrections à effectuer.

Je tiens à vous remercier pour la patience et l'attention que vous porterez à ma requête. je sais que je suis sur la bonne voie de la compréhension mais tout seul on atteint rapidement ses limites sur ce sujet.

Merci d'avance pour votre aide.

med_mugen

copier 


Configuration: Windows 7 / Mozilla 11.0

f894009 · Answer

Bonjour
Lignes en rouge, vous avez un "_" à enlever après Skipeblanks et Range(

med_mugen · Answer

j'ai effectué les corrections suggérées. Mais ça ne fonctionne pas, la macro bloque à ce niveau : 

 Nomfichierentree = Application.GetOpenFilename("& valeur2 & (*.xlsx), (*xls), *.xlsm") 


Par ailleurs j'ai tenté d'associer la macro à un bouton mais ça m'affiche un message d'erreur (voir image).

 Sub Bouton1_Clic()End SubPrivate Sub Bouton1_Clic()Dim Wbk1 As Workbook, Wbk2 As Workbook, Dossier As StringSet Wbk1 = ThisWorkbookvaleur1 = Sheets("Heures N-1").Range("I1").Valuevaleur2 = Sheets("Heures N-1").Range("K1").Valuevaleur3 = Sheets("Heures N-1").Range("N1").ValueDossier = "J:\Rom France\France\WPP\& valeur3 &"Nomfichierentree = Application.GetOpenFilename("& valeur2 & (*.xlsx), (*xls), *.xlsm")If Nomfichierentree <> False ThenWorkbooks.Open Filename:=DossierSet Wbk2 = Workbooks.Open(Nomfichierentree)ActiveSheet("valeur1").UnprotectWbk2.Worksheets("valeur1").Range("Z6:Z9,Z12:Z15,Z18:Z22,Z25:Z28,Z31:Z34,Z37:Z41,Z44:Z47,Z50:Z54,Z57:Z60,Z63:Z66,Z69:Z73,Z76:Z79").SelectSelection.Copy Wbk1.Worksheets("Heures N-1").Range("I5").SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=FalseWbk2.Worksheets("valeur1").Range("AB6:AB9,AB12:AB15,AB18:AB22,AB25:AB28,AB31:AB34,AB37:AB41,AB44:AB47,AB50:AB54,AB57:AB60,AB63:AB66,AB69:AB73,AB76:AB79").SelectSelection.Copy Wbk1.Worksheets("Heures N-1").Range("J5").SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=FalseWbk2.Worksheets("valeur1").Range("AC6:AC9,AC12:AC15,AC18:AC22,AC25:AC28,AC31:AC34,AC37:AC41,AC44:AC47,AC50:AC54,AC57:AC60,AC63:AC66,AC69:AC73,AC76:AC79").SelectSelection.Copy Wbk1.Worksheets("Heures N-1").Range("K5").SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=FalseWbk2.Worksheets("valeur1").Range("AD6:AD9,AD12:AD15,AD18:AD22,AD25:AD28,AD31:AD34,AD37:AD41,AD44:AD47,AD50:AD54,AD57:AD60,AD63:AD66,AD69:AD73,AD76:AD79").SelectSelection.Copy Wbk1.Worksheets("Heures N-1").Range("L5").SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=FalseWbk2.CloseEnd IfEnd Sub 

Par avance merci pour votre aide.

f894009 · Answer

Bonjour,

plusieurs erreurs de corrigees,

Sub Bouton1_Clic()
    Dim Wbk1 As Workbook, Wbk2 As Workbook, Dossier As String
    Dim valeur1 As String, valeur2 As String, valeur3 As String
    
    Set Wbk1 = ThisWorkbook
    valeur1 = Sheets("Heures N-1").Range("I1").Value
    valeur2 = Sheets("Heures N-1").Range("K1").Value
    valeur3 = Sheets("Heures N-1").Range("N1").Value
    Dossier = "J:\Rom France\France\WPP\" & valeur3

Nomfichierentree = Application.GetOpenFilename("" & valeur2 & "(*.xls*),*.xls*")

If Nomfichierentree <> False Then
        Workbooks.Open Filename:=Dossier
        Set Wbk2 = Workbooks.Open(Nomfichierentree)
        ActiveSheet(valeur1).Unprotect
        Wbk2.Worksheets(valeur1).Range("Z6:Z9,Z12:Z15,Z18:Z22,Z25:Z28,Z31:Z34,Z37:Z41,Z44:Z47,Z50:Z54,Z57:Z60,Z63:Z66,Z69:Z73,Z76:Z79").Select
        Selection.Copy
        Wbk1.Worksheets("Heures N-1").Range("I5").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Wbk2.Worksheets(valeur1).Range("AB6:AB9,AB12:AB15,AB18:AB22,AB25:AB28,AB31:AB34,AB37:AB41,AB44:AB47,AB50:AB54,AB57:AB60,AB63:AB66,AB69:AB73,AB76:AB79").Select
        Selection.Copy
        Wbk1.Worksheets("Heures N-1").Range("J5").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Wbk2.Worksheets(valeur1).Range("AC6:AC9,AC12:AC15,AC18:AC22,AC25:AC28,AC31:AC34,AC37:AC41,AC44:AC47,AC50:AC54,AC57:AC60,AC63:AC66,AC69:AC73,AC76:AC79").Select
        Selection.Copy
        Wbk1.Worksheets("Heures N-1").Range("K5").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Wbk2.Worksheets(valeur1).Range("AD6:AD9,AD12:AD15,AD18:AD22,AD25:AD28,AD31:AD34,AD37:AD41,AD44:AD47,AD50:AD54,AD57:AD60,AD63:AD66,AD69:AD73,AD76:AD79").Select
        Selection.Copy
        Wbk1.Worksheets("Heures N-1").Range("L5").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Wbk2.Close
    End If
End Sub

med_mugen · Answer

voici le msg d'erreur en question

med_mugen · Answer

En fait je ne sais comment traduire l'action suivante :

"si le dossier existe alors l'ouvrir, puis si le fichier excel (dans ce dossier) existe alors l'ouvrir, puis si la feuille existe alors l'activer.."


Cette feuille est au passage protégée d'où la ligne 
 ActiveSheet(valeur1).Unprotect

qui est sensé m'ouvrir une boite de dialogue m'obligeant à inscrire le mdp lié à cette feuille, pour ensuite continuer le reste de l'algorithme normalement (comme lorsque j'ai effectué la tâche la première fois avec l'enregistreur macro), i.e copier les cellules selectionnées et les coller dans l'endroit déterminé par l'algorithme.

med_mugen · Answer

voila le nouveau msg, puis bien évidemment le msg erreur 1004 relatif à la condition non respectée

med_mugen · Answer

j'ai tenté de rajouter une extension .xlsx, la macro fonctionne mais je viens de rencontrer une erreur 9 dont je recherche plus d'indo sur le net. Par contre il faut absolument que je trouve une solution pour que la formule prenne en compte tous les types d'extension .xls

med_mugen · Answer

.xls* fonctionne je pense que cette étape est réglée.

Dossier = "J:\Rom France\France\WPP\" & valeur3 & "\" & valeur2 &".xls*"

med_mugen · Answer

je me déclare vaincu si quelqu'un peut m'aider je met à disposition ce dossier exemple. le fichier de travail se trouve dans le dossier 2016. les données à extraire se trouvent dans le dossier 2015. Les mdp des feuilles protégées sont le nom des feuilles.

Dans la macro, en tout début, il faudra modifier le début du chemin dans "dossier".

voici le lien : http://www.cjoint.com/c/FAtkmCazV46 


Merci pour votre aide et vos éclaircissements

med_mugen · Answer

aussi je confirme je viens d'effectuer le test, pour prendre en considération tous les types d'extensions excel, il faut mettre à la fin du chemin".xls*"

f894009 · Answer

Re,

Ben non:

med_mugen · Answer

jetez un oeil ici

med_mugen · Answer

f894009,

http://www.cjoint.com/c/FAuiNQBrjb6 

voilà le fichier. 

remarque lorsqu'on choisit d'extraire les données du doc 602, vous constaterez que les valeurs extraites seront différentes de celles contenues ds le fichiers. C'est tout à fait normal. Dans ce fichier, j'avais utilisé la fonction aléatoire pour remplir les cellules. Une mise à jour se fait donc à chaque ouverture de ce fichier et vu qu'on le referme tout de suite après avoir extrait les données ...

Copier-coller données d'un fichier excel vers un autre.

13 réponses

Discussions similaires

Newsletters