jujunexcelpas
XLDnaute Nouveau
Bonjour à tout le monde,
je viens rechercher encore un peu d'aide.
après avoir bien avancé sur de nombreuses macros je bloque sur une où je souhaite:
- copier la cellule F2 (par exemple) de toutes les feuilles d'un autre classeur
- coller l'ensemble des données dans un classeur indépendant
je vous met la macro suivante:
la macro marche mais que pour la première feuille donc je suis sur qu'il manque des choses! faut il un variable supplémentaire ou autre chose !!!
Cordialement
Julien
je viens rechercher encore un peu d'aide.
après avoir bien avancé sur de nombreuses macros je bloque sur une où je souhaite:
- copier la cellule F2 (par exemple) de toutes les feuilles d'un autre classeur
- coller l'ensemble des données dans un classeur indépendant
je vous met la macro suivante:
HTML:
Option Explicit
Dim Mess As Integer, r As String
Dim xnomfic As String, ficd As String, xcell As String, xnomsh As Variant
Dim xshcherchee As Worksheet
Dim classeur As Workbook
Dim wb As Workbook
Dim ws As Worksheet
Function FichierExiste(ficd) As Boolean
FichierExiste = Dir(ficd) <> "" And ficd <> ""
End Function
Sub Muscudétail()
Application.DisplayAlerts = False
r = Feuil1.[D1]
If Dir("C:\Users\coach\dropbox\joueurs\" & r, vbDirectory) = "" Then _
MkDir "C:\Users\coach\dropbox\joueurs\" & r
Application.ScreenUpdating = False
xnomfic = Range("D1"): ficd = xnomfic & " Musculation.xlsx"
' Contrôle de l'existence du fichier ou classeur
If FichierExiste("C:\Users\coach\dropbox\joueurs\" & r & "\" & ficd) = "Vrai" Then
sélection du classeur cible et copies des cellules F2 de chaque feuille
Application.Workbooks.Open("C:\Users\coach\joueurs\" & r & "\" & ficd).Activate
Sheets.Select
Range("F2").Copy
'ActiveWorkbook.Save
ActiveWorkbook.Close
collage des cellules copiée dans la colonne A de la feuille 1
Workbooks("Classeur1").Activate
Feuil1.Activate
Range("A:A").Select
ActiveSheet.Paste
Feuil1.Activate
End If
End Sub
Cordialement
Julien