Remise en forme d'un fichier Excel Par VBA (Access)

Version imprimable

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:

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

04/11/2009, 15h01
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:

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
04/11/2009, 16h48
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

Cela donne :

Code:

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

Sous Excel

04/11/2009, 17h29
Jean-Philippe André

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

Code:

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
05/11/2009, 08h04
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
09/11/2009, 09h45
Deustalos

Bonjour,

A mon grand regret cela ne marche toujours pas:

Code:

xlBook.xlSheet.Range(xlBook.xlSheet.Range("C33:S" & xlBook.xlSheet.Range("C33:S33").End(xlDown).Row).Copy Destination:=sheetMac.Range("A2")

Je suis un peu déséspéré Help.

Est ce que quelqu'un connaitrai un bout bouqin sur access et VBA traitant aussi du sujet de la manipulation d'excel par VB?

Merci Par avance

Alexis