'La feuille où sont les données
With Worksheets("Extraction") ' Nom de la feuille a remplir
Set RgSource = .Range("b1:B" & .Range("B700").End(xlUp).Row)
End With
'Ouverture du fichier Volatile
'Emplacement du fichier Volatile
'et le nom du fichier volatile
Workbooks.Open "C:\données\spacedisks.xls"
With ActiveWorkbook
'Nom de la feuille du fichier volatile
With .Worksheets("spacedisks")
Set RgImport = .Range("a3:A" & .Range("A700").End(xlUp).Row)
End With
On Error Resume Next
For Each c In RgImport
a = WorksheetFunction.Match(c.Value, RgSource, 0)
If Not IsError(a) Then
'2 = 2 colonnes à droite de A
RgSource(a).Offset(, 43).Value = c.Offset(, 4).Value
RgSource(a).Offset(, 45).Value = c.Offset(, 3).Value
Else
Err = 0
End If
Next
.Close
End With
Set RgSource = Nothing: Set RgImport = Nothing
End Sub
Je voudrais faire deux modification :
1°) Ouvrir n'importe quel fichier source.
Comment procédé pour avoir une fenetre pour selectionner le fichier source ?
2°) Avoir une entrée par mois.
Comment mettre un test qui verifi le mois en cours en qui permet de copier
les données du fichier externe dans la colonne du mois qui correspond ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ange Ounis
1°) Ouvrir n'importe quel fichier source. Comment procédé pour avoir une fenetre pour selectionner le fichier source ?
Sub essai() Dim FichierSource FichierSource = Application.GetOpenFilename If FichierSource Then MsgBox FichierSource _ Else MsgBox "aucun fichier choisi" End Sub
2°) Avoir une entrée par mois. Comment mettre un test qui verifi le mois en cours
x=Month(Date) Msgbox x
---------- Ange Ounis ----------
Bonjour,
Dans un fichier excel j'ai la macro suivante :
Sub TraitementEspacesDisks()
Dim RgSource As Range Dim RgImport As Range
Application.ScreenUpdating = False
'La feuille où sont les données With Worksheets("Extraction") ' Nom de la feuille a remplir Set RgSource = .Range("b1:B" & .Range("B700").End(xlUp).Row) End With
'Ouverture du fichier Volatile 'Emplacement du fichier Volatile 'et le nom du fichier volatile Workbooks.Open "C:donnéesspacedisks.xls"
With ActiveWorkbook 'Nom de la feuille du fichier volatile With .Worksheets("spacedisks") Set RgImport = .Range("a3:A" & .Range("A700").End(xlUp).Row) End With
On Error Resume Next For Each c In RgImport a = WorksheetFunction.Match(c.Value, RgSource, 0) If Not IsError(a) Then '2 = 2 colonnes à droite de A RgSource(a).Offset(, 43).Value = c.Offset(, 4).Value RgSource(a).Offset(, 45).Value = c.Offset(, 3).Value
Else Err = 0 End If Next .Close End With Set RgSource = Nothing: Set RgImport = Nothing
End Sub
Je voudrais faire deux modification :
1°) Ouvrir n'importe quel fichier source. Comment procédé pour avoir une fenetre pour selectionner le fichier source ?
2°) Avoir une entrée par mois. Comment mettre un test qui verifi le mois en cours en qui permet de copier les données du fichier externe dans la colonne du mois qui correspond ?
Par avance merci de votre aide.
1°) Ouvrir n'importe quel fichier source.
Comment procédé pour avoir une fenetre pour selectionner le fichier source ?
Sub essai()
Dim FichierSource
FichierSource = Application.GetOpenFilename
If FichierSource Then MsgBox FichierSource _
Else MsgBox "aucun fichier choisi"
End Sub
2°) Avoir une entrée par mois.
Comment mettre un test qui verifi le mois en cours
x=Month(Date)
Msgbox x
----------
Ange Ounis
----------
Bonjour,
Dans un fichier excel j'ai la macro suivante :
Sub TraitementEspacesDisks()
Dim RgSource As Range
Dim RgImport As Range
Application.ScreenUpdating = False
'La feuille où sont les données
With Worksheets("Extraction") ' Nom de la feuille a remplir
Set RgSource = .Range("b1:B" & .Range("B700").End(xlUp).Row)
End With
'Ouverture du fichier Volatile
'Emplacement du fichier Volatile
'et le nom du fichier volatile
Workbooks.Open "C:donnéesspacedisks.xls"
With ActiveWorkbook
'Nom de la feuille du fichier volatile
With .Worksheets("spacedisks")
Set RgImport = .Range("a3:A" & .Range("A700").End(xlUp).Row)
End With
On Error Resume Next
For Each c In RgImport
a = WorksheetFunction.Match(c.Value, RgSource, 0)
If Not IsError(a) Then
'2 = 2 colonnes à droite de A
RgSource(a).Offset(, 43).Value = c.Offset(, 4).Value
RgSource(a).Offset(, 45).Value = c.Offset(, 3).Value
Else
Err = 0
End If
Next
.Close
End With
Set RgSource = Nothing: Set RgImport = Nothing
End Sub
Je voudrais faire deux modification :
1°) Ouvrir n'importe quel fichier source.
Comment procédé pour avoir une fenetre pour selectionner le fichier source ?
2°) Avoir une entrée par mois.
Comment mettre un test qui verifi le mois en cours en qui permet de copier
les données du fichier externe dans la colonne du mois qui correspond ?
1°) Ouvrir n'importe quel fichier source. Comment procédé pour avoir une fenetre pour selectionner le fichier source ?
Sub essai() Dim FichierSource FichierSource = Application.GetOpenFilename If FichierSource Then MsgBox FichierSource _ Else MsgBox "aucun fichier choisi" End Sub
2°) Avoir une entrée par mois. Comment mettre un test qui verifi le mois en cours
x=Month(Date) Msgbox x
---------- Ange Ounis ----------
Bonjour,
Dans un fichier excel j'ai la macro suivante :
Sub TraitementEspacesDisks()
Dim RgSource As Range Dim RgImport As Range
Application.ScreenUpdating = False
'La feuille où sont les données With Worksheets("Extraction") ' Nom de la feuille a remplir Set RgSource = .Range("b1:B" & .Range("B700").End(xlUp).Row) End With
'Ouverture du fichier Volatile 'Emplacement du fichier Volatile 'et le nom du fichier volatile Workbooks.Open "C:donnéesspacedisks.xls"
With ActiveWorkbook 'Nom de la feuille du fichier volatile With .Worksheets("spacedisks") Set RgImport = .Range("a3:A" & .Range("A700").End(xlUp).Row) End With
On Error Resume Next For Each c In RgImport a = WorksheetFunction.Match(c.Value, RgSource, 0) If Not IsError(a) Then '2 = 2 colonnes à droite de A RgSource(a).Offset(, 43).Value = c.Offset(, 4).Value RgSource(a).Offset(, 45).Value = c.Offset(, 3).Value
Else Err = 0 End If Next .Close End With Set RgSource = Nothing: Set RgImport = Nothing
End Sub
Je voudrais faire deux modification :
1°) Ouvrir n'importe quel fichier source. Comment procédé pour avoir une fenetre pour selectionner le fichier source ?
2°) Avoir une entrée par mois. Comment mettre un test qui verifi le mois en cours en qui permet de copier les données du fichier externe dans la colonne du mois qui correspond ?
