Bouton parcourir, copier coller

Version imprimable

Bonjour à tous,
je reviens vers vous car la dernière fois votre aide à été particulièrement efficace...
J'essai d'écrire une macro qui me permettrais de lancer la fonction parcourir de choisir un classeur (nom pouvant changer) puis copier le contenu de la feuille 1 (Recapconfirm) de ce classeur et de le coller dans mon classeur actif (Situations) à la première page (Base)..

J'espère avoir été à peu près clair...

j'ai essayé l’enregistreur de macro mais sans succès car il mémorise un chemin en particulier...

Puis j'ai trouvé çà mais qui plante au moment de la copie...:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Sub OuvertureFichier() Dim a As Variant, Nom As String Application.ScreenUpdating = False Nom = ActiveWorkbook.Name ChDrive "C:" ' Choix du lecteur ChDir "C:\" 'Choix du répertoire a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _ , "Sélection de vos fichiers excel", , True) Select Case TypeName(a) Case Is = "Boolean" Exit Sub Case Else For b = LBound(a) To UBound(a) Workbooks.Open a(b) Next End Select Application.ScreenUpdating = True Workbooks(Nom).Worksheets("données").Cells.ClearContents ' Efface le contenu de la feuille qui va recevoir les données (la feuille existe déjà) 'copie la feuille 1 de mon fichier ouvert dans mon fichier initiale. NE MARCHE PAS Workbooks(a).Worksheets(1).Cells.Copy Destination:=Workbooks(Nom).Worksheets("données").Range("A1") 'Copie-colle le fichier End Sub
Merci d'avance de votre aide!!

22/07/2017, 12h48
Philippe Tulliez

Bonjour,

Citation:

Puis j'ai trouvé çà mais qui plante au moment de la copie...:

Nous dire qu'il plante, c'est bien mais serait intéressant que tu nous indiques le numéro et le descriptif de l'erreur en supposant que la ligne où a lieu l'erreur est bien la ligne 26

Mais en attendant et à la lecture rapide de ton code de la ligne 26

Code:

Workbooks(a).Worksheets(1).Cells.Copy

la variable a étant une table , il faudrait l'indicer comme par exemple

Code:

Workbooks(a(1)).Worksheets(1).Cells.Copy

Tu dois donc intégrer cette ligne dans une boucle et remplacer la constante 1 par la variable de la boucle

Merci de votre réponse rapide mais là vous m'avez perdu ...
Voici l'erreur dont je vous parle:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub OuvertureFichier()
 
 Dim a As Variant, Nom As String
 
 Application.ScreenUpdating = False
 Nom = ActiveWorkbook.Name
 ChDrive "C:"  ' Choix du lecteur
 ChDir "C:\" 'Choix du répertoire
 a = Application.GetOpenFilename("fichier excel (*.xlsx), *.xls", _
     , "Sélection de vos fichiers excel", , True)
 
 Select Case TypeName(a)
     Case Is = "Boolean"
         Exit Sub
     Case Else
         For b = LBound(a) To UBound(a)
             Workbooks.Open a(b)
         Next
  End Select
  Application.ScreenUpdating = True
 
 
Workbooks(Nom).Worksheets("données").Cells.ClearContents ' Efface le contenu de la feuille qui va recevoir les données (la feuille existe déjà) il s'arrête ici
 
'copie la feuille 1 de mon fichier ouvert dans mon fichier initiale. NE MARCHE pas
Workbooks(a(1)).Worksheets(1).Cells.Copy Destination:=Workbooks(Nom).Worksheets("données").Range("A1") 'Copie-colle le fichier
 
 End Sub

22/07/2017, 15h42
joe.levrai

Bonjour,

vu le nombre de cellules d'une feuille, essaye plutôt de Clear le UsedRange pour gagner en plage de travail

Code:

Workbooks(Nom).Worksheets("données").UsedRange.ClearContents

Concernant ton erreur sur la ligne suivante, je ne comprend pas très bien ta mécanique :

1) L'utilisateur peut choisir un ou plusieurs fichiers Excel
2) Dans une boucle, tu ouvres tous ces fichiers en même temps
3) Tu effaces une feuille de ton classeur initial
4) Tu copies toute la feuille du second classeur ouvert vers ton classeur intial

Donc, pourquoi choisir autant de fichier et tous les ouvrir ??
Pourquoi ne pas réaliser ta copie d'éléments directement la boucle qui ouvre chaque fichier... en en profitant pour les refermer dans la foulée ?