Discussion :

[Deustalos]

Bonjour,

J'essay de remetre en forme un fichier Excel par du CODE VBA (Access)

Voila mon code actuel, je ne sais pas ou se trouve l'erreur cela me semble correct) ce qui pose probléme à mon avis est la séléction de la zone à copier?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
 
Dim bookMac As Excel.Workbook
Dim sheetMac As Excel.Worksheet
 
        '/////////////////// Attribution des valeurs
Set xlApp = New Excel.Application
xlApp.Visible = False
 
Set xlBook = xlApp.Workbooks.Open(myPath)
Set xlSheet = xlBook.Worksheets("Obsoletes")
 
Set bookMac = xlApp.Workbooks.Open("U:\Logistique\SERVICE\Alexis\Sauvegarde\Save Bureau PC 2\MISSIONS\OUTIL ACCESS\Base_Plat_Donnees\DOC IMPORT\BW_OBS_IMPORT.xls")
Set sheetMac = bookMac.Worksheets(1)
 
      '/////////////////////////////////////// Chemin du fichier macro et import
 
 
xlBook.xlSheet.Range("C33:S33").Select 'Séléction des cellule de C à S puis séléction jusqu'à la fin des données
xlBook.xlSheet.Range(Selection, Selection.End(xlDown)).Copy Destination:=sheetMac.Range("A2")  'Copie puis Coller dans le fichier de destination en dessou de l'entéte ligne 2
 
xlBook.Save
xlApp.Quit
Set wlsheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

Merci pour votre aide

Alexis

[Jean-Philippe André]

salut,
la notion de selection n'est pas la même dans Access et Excel.
Ici, il faut passer l'intégralité de ta sélection.

Essaie avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlBook.xlSheet.Range(xlBook.xlSheet.Range("C33:S33"), xlBook.xlSheet.Range("C33:S33").End(xlDown)).Copy Destination:=sheetMac.Range("A2")  'Copie puis Coller dans le fichier de destination en dessou de l'entéte ligne 2

[Deustalos]

Salut et merci de ton aide,

Cela ne marche pas.

pour bien me faire comprendre,

J'aimerai que le vb séléctionne de C33 a S33 puis jusqu à la fin des donnée en bas. ce qui fait un beau carré séléctionné.

Je crois que je suis toujours pas claire
Merci

[Deustalos]

Cela donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Range("C33:S33").Select
 Range(Selection, Selection.End(xlDown)).Select

Sous Excel

[Jean-Philippe André]

les select ne fonctionneront pas correctement sous Access :
essayons avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlBook.xlSheet.Range(xlBook.xlSheet.Range("C33:S" & xlBook.xlSheet.Range("C33:S33").End(xlDown).Row).Copy Destination:=sheetMac.Range("A2")  'Copie puis Coller dans le fichier de destination en dessou de l'entéte ligne 2

[Deustalos]

Je ne suis pas au boulot avant la semaine prochaine mais je suis pas sur que se soit la bonne soluce: la plage de donné que je voudrai séléctionner serai égale dans le cas ou j' 100 ligne par exemple à 100L x 17C.

J essayerai ton code la semaine prochaine merci de m'aidé sur mon pb.

Alex