Discussion :

[guigui71]

bonjour à tous,

je souhaite ouvrir un fichier excel grave à un programme vba

voici mon code :

Code :

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

1
2
3
4
5
Dim wb As Workbook 
Dim ws As Worksheet 
 
Set wb = Workbooks.Open("lien de mon classeur")
Set ws = wb.Worksheets("feuil1")

mais il ne marche pas.

Pouvez vous m'aider ?

[jfontaine]

Bonjour,

Qu'est ce qui ne marche pas?

[guigui71]

un message d'erreur s'affiche, rien ne se passe ...

edit : j'ai trouvé :

le code :

Code :

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

1
2
3
4
Dim wb As Workbook
Dim ws As Worksheet   
Set wb = Workbooks.Open("nom.dossier.xls" )
set ws = wb.worksheets("nom feuille")

maintenant je voudais copier les données de la feuille que je viens d'ouvrir dans un nouveau classeur excel
je n'ai pas vu cette fonction

[jfontaine]

As tu regardé sur le forum Access pour les fonctionnalités de table liée?

[guigui71]

je verrai plus tard pour acces,

je voudrai juste maintenant que mon classeur a été ouvert, copier une feuille de ce classeur dans un nouveau.

[fring]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Dim wb As Workbook
Dim ws As Worksheet   
Set wb = Workbooks.Open("nom.dossier.xls" )
set ws = wb.worksheets("nom feuille")
 
ws.copy
ActiveWorkbook.SaveAs "C:\temp\nom_nouveau_classeur.xls"