Bonjour à tous,
J'ai encore un problème.
J'ai écrit le programme ci-dessous mais j'aimerai avoir le choix dans l'ouverture du fichier et non pas que ce soit "FF" qui s'ouvre directement. Est-ce possible?
Merci pour vos réponses
Sub Copier()
Dim classeurSource As Workbook, classeurDestination As Workbook
'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open("C:\Users\qlabouche\Desktop\EWP\Originaux\FF Collège CAMUS_post bouclage.xlsm", , True)
'définir le classeur destination
Set classeurDestination = ThisWorkbook
'copier les données de la feuille"FF" du classeur source vers la feuille "Feuil2" du classeur destination
classeurSource.Sheets("FF").Cells.Copy classeurDestination.Sheets("Feuil2").Range("A1")
'fermer le classeur source
classeurSource.Close False
End Sub
J'ai encore un problème.
J'ai écrit le programme ci-dessous mais j'aimerai avoir le choix dans l'ouverture du fichier et non pas que ce soit "FF" qui s'ouvre directement. Est-ce possible?
Merci pour vos réponses
Sub Copier()
Dim classeurSource As Workbook, classeurDestination As Workbook
'ouvrir le classeur source (en lecture seule)
Set classeurSource = Application.Workbooks.Open("C:\Users\qlabouche\Desktop\EWP\Originaux\FF Collège CAMUS_post bouclage.xlsm", , True)
'définir le classeur destination
Set classeurDestination = ThisWorkbook
'copier les données de la feuille"FF" du classeur source vers la feuille "Feuil2" du classeur destination
classeurSource.Sheets("FF").Cells.Copy classeurDestination.Sheets("Feuil2").Range("A1")
'fermer le classeur source
classeurSource.Close False
End Sub