Discussion :

[mia.555]

Bonjour,
J'aimerais vraiment que vous m'aidiez. En fait j'ai deux fichiers Excel et j'aimerais récupérer les données du premier fichier en l'occurrence ma feuille1 et le transférer vers le deuxième fichier de manière automatique.

NB: je ne veux pas récupérer toutes les données de la feuille 1 du premier fichier mais juste les données dont le nom d'une cellule commence par SM
merci d'avance

[Menhir]

Tu scrutes tous les noms de ta feuille 1 avec une boucle For Each sur la propriété Names de ta Worksheet.
https://msdn.microsoft.com/fr-fr/lib.../ff841127.aspx

Avec un test If tu vérifies que les noms de ces... Noms commencent par "SM" en appliquant la fonction Right() à la propriété Name de l'objet Name.
https://msdn.microsoft.com/fr-fr/lib.../ff840686.aspx

Si c'est le cas, tu copies la données vers sa destination.

Avec le peu d'information que tu donnes, difficile d'en dire plus.

[mia.555]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
'Workbooks("feuille 1 SM .xlsm").Worksheets("feuille1").Cells     
 'Workbooks.Open Filename:="\Travail\feuille 1source.xlsm"
 'Workbooks("feuille 1 source.xlsm").Worksheets("feuile1").Cells.Copy _
     'Workbooks("feuille 1 SM.xlsm").Worksheets("feuille1").Range("D = SM")
  'Workbooks("feuille 1source.xlsm").Close  
 'End Sub

J'ai essayé ça mais ça efface toutes les données de destination

[Menhir]

Deux questions à poser :
Premièrement, as-tu réellement testé la macro que tu présentes ? Parce qu'il y a plusieurs éléments qui me semble incompatibles avec une exécution.
Deuxièmement, as-tu lu mon message précédent ? Parce que je ne vois dans ton code aucun des éléments que je t'ai indiqué, j'ai donc l'impression d'avoir brasser du vent.

[mia.555]

mon code m'affiche un message d'erreur.Si j'ai lu ton message précédent.Je suis entrain d'appliquer ta méthode

Je n'arrive pas appliquer la fonction right().En faite j'ai une colonne appelé domaine qui contient les cellules SM et RH et je veux seulement faire le transfert des données qui ont le nom SM vers un autre fichier excel.

[BENNASR]

Bonjour
je sais pas si ça va t'aider
voila un code pour copier les données de la colonne "B" de la feuil1 si la colonne "A" de cette meme feuille est égal à "OUI" et enregistre par ordre les données ds la colonne A de la feuille 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub CopierSiOui()
   Application.ScreenUpdating = False
   With Sheets("feuil1")
   j = 1
    For i = 1 To .[A65000].End(xlUp).Row
      If Left(.Range("A" & i), 3) Like "OUI" Then
      Sheets("feuil2").Range("A" & j) = Sheets("feuil1").Range("B" & i)
      j = j + 1
      End If
    Next i
   End With
End Sub

[Menhir]

Je n'arrive pas appliquer la fonction right().

C'est étonnant étant donné qu'il s'agit d'une fonction extrêmement simple qui est identique à la fonction DROITE() de Excel.
https://msdn.microsoft.com/fr-fr/lib.../gg278801.aspx

En faite j'ai une colonne appelé domaine qui contient les cellules SM et RH et je veux seulement faire le transfert des données qui ont le nom SM vers un autre fichier excel.

Qu'est-ce que veut dire par "nom" ? Est-ce que tu utilises ce terme au sens qu'Excel lui donne ?