Microsoft 365 Importer une feuille excel vers un mon classeur

[lolo_76]

Bonjour à tous,

Mon sujet est le suivant, j'aimerai récupérer un onglet nommé "Page1" d'un fichier excel et de le coller sur mon classeur de l'onglet nommé "Données"

J'ai créé un code mais il plante, quelqu'un à t'il une idée ?

Sub Import()

Dim classeurSource As Workbook, classeurDestination As Workbook

  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlManual

'Efface la feuille entière
Sheets("Données").Cells.Clear


'ouvrir le classeur source
Set classeurSource = Application.GetOpenFilename
'définir le classeur destination
Set classeurDestination = ThisWorkbook

'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
classeurSource.Sheets("Page1").Cells.Copy classeurDestination.Sheets("Données").Range("A1")

'fermer le classeur source
classeurSource.Close False

  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Application.Calculation = xlAutomatic

  MsgBox ("Import fini")


End Sub

Merci à vous tous

 

[Compte Supprimé 979]

Bonjour Lolo_76

A priori, il ne devrait pas y avoir de raison, le code me semble bon

Quel est le message d'erreur et quelle ligne se trouve en surbrillance avec le débogage ?

@+

 

[natorp]

Bonjour Lolo et Bruno

J'ai testé et j'ai également une erreur :

Merci, cordialement, Gérard

 

[ChTi160]

Bonjour Lolo ,Bruno,Gerard
Peut être un manque de déclaration de variable !
Dim ClasseurSource as object 'peut être
Idem pour l'autre variable ClasseurDestination
Bonne fin de journée
Jean marie

 

[lolo_76]

Bonjour à tous,

Merci pour l'attention que vous avez portez à ma galère, mais même avec les variables de ChTi160, le code ne se lance pas, il bute toujours sur

Merci de votre retour les Excelleur !

 

[ChTi160]

Bonjour Lolo
pas évident sans fichier !
Voir le aussi du côté de la version 32 ou 64 d'office.
Bonne journée
Jean marie

 

[lolo_76]

Désolé

 

[ChTi160]

Re
ce que j'ai mis et semble fonctionner

Sub Import()

Dim ClasseurSource, classeurDestination
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlManual
'Efface la feuille entière
Worksheets("Données").Range("A:BZ").Clear
'Supprime les filtres et affiche les colonnes masquées
    Sheets("Données").Activate
    Rows("1:1").Select
   ' Selection.AutoFilter
    Selection.EntireColumn.Hidden = False
'ouvrir le classeur source (en lecture seule)
' ClasseurSource = Application.GetOpenFilename()
 ClasseurSource = Application _
 .GetOpenFilename("Text Files (*.xlsm), *.xlsm")
If ClasseurSource <> False Then
 MsgBox "Open " & ClasseurSource
End If
'définir le classeur destination
Set classeurDestination = ThisWorkbook
'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
ClasseurSource.Sheets("Page1").Cells.Copy classeurDestination.Sheets("Données").Range("A1")
'fermer le classeur source
ClasseurSource.Close False
    Sheets("Accueil").Activate
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Application.Calculation = xlAutomatic
End Sub

au moins pour ce qui est de l'erreur
Bonne Journée
jean marie

 

[Compte Supprimé 979]

Bonjour le fil,

Pour ceux qui ont testé et chez qui ça a beugué, vous avez quelle version d'office

Je suis vraiment navré pour vous, mais pour moi sous O365, ça ne pose absolument aucun problème

Set classeurSource = Application.GetOpenFilename

M'ouvre bien une fenêtre pour choisir mon fichier

En revanche, vous avez l'erreur si vous cliquez sur "Annuler", logique... puisque l'objet Workbook n'a pas été ouvert

@+

 

[Bernard_XLD]

Bonjour lolo_76, Chti160, BrunoM45, le forum

pour moi, Classeursource est déclaré en workbook et getopenfilename renvoie un string
un set classeursource sur getopenfilename tente d'affecter une chaine de caractère à un objet workbook et ça le fait pas !
il faudrait normalement un truc genre set classeursource=application.open(application.getopenfilename) qui devrait se traduire comme cela.

Bien cordialement, @+

Sub Import()

Dim classeurSource As Workbook, classeurDestination As Workbook

  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlManual

'Efface la feuille entière
Sheets("Données").Cells.Clear


'ouvrir le classeur source
Workbooks.Open Filename:=Application.GetOpenFilename
Set classeurSource = ActiveWorkbook
'définir le classeur destination
Set classeurDestination = ThisWorkbook

'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
classeurSource.Sheets("Page1").Cells.Copy classeurDestination.Sheets("Données").Range("A1")

'fermer le classeur source
classeurSource.Close False

  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Application.Calculation = xlAutomatic

  MsgBox ("Import fini")


End Sub

 

[Bernard_XLD]

Re,

et si il n'y a pas besoin des options de configuration et de retour de chaîne string de Getopenfilename, on peut directement ouvrir le fichier par la boite standard.

Cordialement, @+

Sub Import()

Dim classeurSource As Workbook, classeurDestination As Workbook

  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlManual

'Efface la feuille entière
Sheets("Données").Cells.Clear


'ouvrir le classeur source
Application.Dialogs(xlDialogOpen).Show
Set classeurSource = ActiveWorkbook
'définir le classeur destination
Set classeurDestination = ThisWorkbook

'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
classeurSource.Sheets("Page1").Cells.Copy classeurDestination.Sheets("Données").Range("A1")

'fermer le classeur source
classeurSource.Close False

  Application.ScreenUpdating = True
  Application.EnableEvents = True
  Application.Calculation = xlAutomatic

  MsgBox ("Import fini")


End Sub

 

[lolo_76]

Un grand merci à vous les pros d'excel, ça fonctionne parfaitement.

Par contre j'ai une autre question, car j'incorpore un fichier très lourd (+ de 12 MO), est-il possible d’éviter de copier / coller bêtement la feuille pour ensuite la travailler pour ne prendre que les informations voulu ?