Bonjour a tous et merci d'avance pour l'aide que vous pourrez m'apporter.
Voila mon problème, je cherche a faire une copie de donné depuis un classeur à aller chercher via GetOpenFilename,
Voici la portion de code que j'ai mais à la ligne Set Plage = Sheets("Feuil1").Range("A4:A500") arrêt de la macro
If MsgBox("Avez-vous remplis des cellules en manuel?", vbYesNo, "Demande de confirmation") = vbNo Then
ChDrive "S"
ChDir "S:\XXX\XXX"
ret = Application.GetOpenFilename
If ret <> True Then
Dim c As Range, Plage As Range, Plage1 As Range, Result As Range
Set Plage = Sheets("Feuil1").Range("A4:A500") ' & Cells(Cells.Rows.Count, 1).End(xlUp))
Set Plage1 = Plage.Offset(, -5).Resize(, 6)
For Each c In Plage
If c.Value = "VA" Then
If Result Is Nothing Then
Set Result = Plage1.Rows(c.Row)
Else
Set Result = Union(Result, Plage1.Rows(c.Row))
End If
End If
Next c
If Not Result Is Nothing Then Result.Copy
End If
End If
Dans cette macro je veux ouvrir un fichier sans l'ouvrir, copier les donnés entre les colonnes A et F, dont les lignes de la colonne A contienne les caractère "VA", puis les copier dans la feuille active en "B5".
Avez-vous des suggestions à me communiquer pour que ce code fonctionne?
PS: Je suis débutant en VBA.
Voila mon problème, je cherche a faire une copie de donné depuis un classeur à aller chercher via GetOpenFilename,
Voici la portion de code que j'ai mais à la ligne Set Plage = Sheets("Feuil1").Range("A4:A500") arrêt de la macro
If MsgBox("Avez-vous remplis des cellules en manuel?", vbYesNo, "Demande de confirmation") = vbNo Then
ChDrive "S"
ChDir "S:\XXX\XXX"
ret = Application.GetOpenFilename
If ret <> True Then
Dim c As Range, Plage As Range, Plage1 As Range, Result As Range
Set Plage = Sheets("Feuil1").Range("A4:A500") ' & Cells(Cells.Rows.Count, 1).End(xlUp))
Set Plage1 = Plage.Offset(, -5).Resize(, 6)
For Each c In Plage
If c.Value = "VA" Then
If Result Is Nothing Then
Set Result = Plage1.Rows(c.Row)
Else
Set Result = Union(Result, Plage1.Rows(c.Row))
End If
End If
Next c
If Not Result Is Nothing Then Result.Copy
End If
End If
Dans cette macro je veux ouvrir un fichier sans l'ouvrir, copier les donnés entre les colonnes A et F, dont les lignes de la colonne A contienne les caractère "VA", puis les copier dans la feuille active en "B5".
Avez-vous des suggestions à me communiquer pour que ce code fonctionne?
PS: Je suis débutant en VBA.