Copier coller les données d'un autre fichier
Bonjour,
Je suis à la recherche du code nécessaire pour intégrer l'intégralité des cellules d'une feuille d'un autre fichier excel, sur ma base.
A noter que je voudrai choisir moi même le fichier source ou je copie les données que je vais coller.
Explication :
Je voudrai qu'en cliquant sur un bouton, la macro lancé, ouvre un fichier que je choisit via la fenetre "ouvrir" et qu'ensuite, une fois le fichier selectionner et ouvert, il copie colle la feuille nommée "Feuil1" dans la feuille nommé "Feuil1" de mon fichier, et ce pour 3 feuilles différentes du même fichier. Pour finir la macro je voudrai que le fichier copié se referme automatiquement.
Si qqun a des pistes...
Cordialement,
J'ai écris un truc comme ca, mais je plante quasiment à la fin... J'ai surligné en gras l'erreur... Need help please
Sub importtxt()
Dim Fichiertxt
Dim base As Worksheet
MsgBox ("Sélectionnez le fichier de simulation de FG")
Fichiertxt = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If Fichiertxt <> False Then
With Feuil3
.UsedRange.ClearContents
With .QueryTables.Add(Connection:="TEXT;" & Fichiertxt & "", Destination:=.Range("A1"))
.TextFileSemicolonDelimiter = True
.Refresh BackgroundQuery:=False
.Delete
End With
End With
End If
Feuil3.Cells.Select
Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("B:C").Delete
Range("W:W").Delete
Range("A1:Z1").Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
.PatternTintAndShade = 0
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
Sub copieDonnees()
Dim nbLignes As Long
Dim vData As Variant
Sheets("Feuil1").Activate
nbLignes = Range(Range("eiContrat"), Range("eiContrat").End(xlDown)).Count
[b] vData = Range(Range("eiContrat").Offset(1, 0), Range("eiContrat").Offset(nbLignes, 25 - 1)).Value[/b]
Sheets("Feuil2").Select
Range(Range("eContrat").Offset(1, 0), Range("eContrat").Offset(nbLignes, 25 - 1)) = vData
End Sub