Problème récupération valeur range

[ICE_SACCO]

Bonjour,

Voila j'ai un souci, je n'arrive pas a récupérer les valeurs trouvées dans une condition avec un range. Si je regarde le output avec msgbox j'ai bien les valeurs attendues qui défilent.
Mais ensuite j'aimerai les récupérer dans DATA SC.

Comme vous pouvez le voir je récupère d'un autre classeur les données à mettre sur celui de la macro.
En l'état je n'ai pas d'err mais rien dans ma colonne à de mon classeur et feuil de reception


Sub importDonnees()

Dim principal As ThisWorkbook
Dim i As Integer
Dim repertoire As String, fichier As String
Application.ScreenUpdating = False
Set principal = ThisWorkbook

repertoire = Application.ActiveWorkbook.Path
ChDir repertoire
fichier = Dir("ind*.xlsx")
Do While fichier <> ""
If fichier <> principal.Name Then
Workbooks.Open fichier
On Error GoTo suivant
With Sheets("28 08")
On Error GoTo 0
On Error Resume Next
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Range("A" & i) Like "REQ00*" And Range("A" & i) <> " " Then
Worksheets("DATA SC").Range("A3:A").Value = .Range("A" & i).Value
'MsgBox toto
Else
toto = ko
End If
Next i
End With
ActiveWorkbook.Close False
End If
suivant:
' If Err.Number = 9 Then MsgBox "Pas de feuille ""xxxxxx"" dans le fichier " & fichier, vbExclamation: ActiveWorkbook.Close False
fichier = Dir
Loop
End Sub

merci d'avance

 

[Paritec]

bonjour ICE_Sacco le forum
voilà déjà une première modif, mais pourquoi le else là???
tu modifies le début de ta macro comme ci-dessous
a+
Papou

dim n&
n=3
repertoire = Application.ActiveWorkbook.Path
ChDir repertoire
fichier = Dir("ind*.xlsx")
Do While fichier <> ""
If fichier <> principal.Name Then
Workbooks.Open fichier
On Error GoTo suivant
With Sheets("28 08")
On Error GoTo 0
On Error Resume Next
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Range("A" & i) Like "REQ00*" And Range("A" & i) <> " " Then
Worksheets("DATA SC").Range("A"& n ) = .Range("A" & i).Value:n=n+1

 

[ICE_SACCO]

Merci pour ton retour mais pas de données dans DATA SC pourtant j 'ai bien les valeurs

Sub importDonnees()

Dim principal As ThisWorkbook
Dim i As Integer
Dim repertoire As String, fichier As String
Dim n&
n = 3
Application.ScreenUpdating = False
Set principal = ThisWorkbook
repertoire = Application.ActiveWorkbook.Path
ChDir repertoire
fichier = Dir("ind*.xlsx")
Do While fichier <> ""
If fichier <> principal.Name Then
Workbooks.Open fichier
On Error GoTo suivant
With Sheets("28 08")
On Error GoTo 0
On Error Resume Next
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Range("A" & i) Like "REQ00*" And Range("A" & i) <> " " Then
Worksheets("DATA SC").Range("A" & n) = .Range("A" & i).Value: n = n + 1
End If
Next i
End With
ActiveWorkbook.Close False
End If
suivant:
' If Err.Number = 9 Then MsgBox "Pas de feuille ""xxxxxx"" dans le fichier " & fichier, vbExclamation: ActiveWorkbook.Close False
fichier = Dir
Loop


End Sub

 

[Paritec]

Re Bonjour ICE_Sacco le forum
tu parles de valeurs oui mais ta condition elle est réalisée???
If Range("A" & i) Like "REQ00*" And Range("A" & i) <> "" Then
à te relire
une certitude sans ton fichier on ne peut rien vérifier
a+
Papou

 

[ICE_SACCO]

Oui c'est sur désolé voici les fichiers exemples .

 

[Paritec]

Re Bonjour ICE_Sacco le forum
Voilà j'ai retourné toutes les colonnes c'est peut-être pas ce que tu voulais
tu mets ce fichier dans le même dossier que le indx que tu souhaites importer
a+
Papou