Bonjour à tous,
Je me permets de solliciter votre aide sur le point suivant :
Je souhaite réaliser une macro permettant de rechercher un fichier EXCEL via une boîte de dialogue, de récupérer la valeur de plage de cellules sur un onglet (soit un copier-coller) sans ouvrir ce fichier.
J'ai déjà à disposition le code suivant:
Dim FileToOpen
Dim shAncien As Worksheet
Dim shNouveau As Worksheet
Set shAncien = ActiveSheet
FileToOpen = Application.GetOpenFilename()
Workbooks.OpenText Filename:= _
FileToOpen, _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlNone, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma _
:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Set shNouveau = ActiveSheet
shNouveau.Cells(1, 1) = shAncien.Cells(1, 1)
' Active celui que tu veux fermer.
shAncien.Activate
shNouveau.Activate
' ********************************
ActiveWorkbook.Close
mais je n'arrive pas à récupérer une plage de cellules.
Pouvez-vous m'aider à récupérer une plage de cellules?
Merci d'avance pour votre aide.
Je me permets de solliciter votre aide sur le point suivant :
Je souhaite réaliser une macro permettant de rechercher un fichier EXCEL via une boîte de dialogue, de récupérer la valeur de plage de cellules sur un onglet (soit un copier-coller) sans ouvrir ce fichier.
J'ai déjà à disposition le code suivant:
Dim FileToOpen
Dim shAncien As Worksheet
Dim shNouveau As Worksheet
Set shAncien = ActiveSheet
FileToOpen = Application.GetOpenFilename()
Workbooks.OpenText Filename:= _
FileToOpen, _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlNone, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma _
:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
Set shNouveau = ActiveSheet
shNouveau.Cells(1, 1) = shAncien.Cells(1, 1)
' Active celui que tu veux fermer.
shAncien.Activate
shNouveau.Activate
' ********************************
ActiveWorkbook.Close
mais je n'arrive pas à récupérer une plage de cellules.
Pouvez-vous m'aider à récupérer une plage de cellules?
Merci d'avance pour votre aide.