Discussion :

[sebastien_oasis]

Bonjour,

Je me permets de vous faire part de mon problème de manipulation de feuilles excel au sein d un code vba. Le but etant ici d ouvrir un fichier excel parent (en l occurence "Automatische_FMEA_essai_pour_access.xls") et de copier une de ces feuilles dans un classeur que l on vient de creer:

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
 
    Dim xlApp1, xlApp2 As Excel.Application  'declaration des objets
    Dim xlSheet As Excel.Worksheet
    Dim xlBook1, xlbook2 As Excel.Workbook
    Dim filename As String
 
    Set xlApp1 = CreateObject("Excel.Application") 'initialisations
    Set xlApp2 = CreateObject("Excel.Application")
    Set xlBook1 = xlApp1.Workbooks.Open("C:\Vielle\Automatische_FMEA_essai_pour_access.xls")
    Set xlbook2 = xlApp2.Workbooks.Add
 
    filename = ("C:\Vielle\testbook_07.05.2007_.xls")
    xlbook2.SaveAs (filename) ' j enregistre le nouveau classeur sous un nom connu
    Set xlSheet = xlBook1.Worksheets("Prozess_Modul_FMEA ")
    xlSheet.Copy
    xlSheet.Paste (Workbooks("C:\Vielle\testbook_07.05.2007_.xls"))
 
'plus les lignes de codes pour fermer et quitter correctement les objets Excel

Le probleme survient a la derniere ligne, le message etant le suivant: "Subscript out of range" et concerne le workbook : "Workbooks("C:\Vielle\testbook_07.05.2007_.xls")"

Les arguments pour la fonction Paste sont (Destination, Link), je pense que c est la que ca coince car le nouveau classeur est bien créé et enregistré. J ai essayé plusieurs syntaxe mais sans resultat...

Avez vous deja rencontré ce genre de difficulté?

Je vous remercie par avance pour votre aide ainsi que du temps consacré.

Sebastien

[Daranc]

Salut
j'ai eu des problèmes sur la création des fichiers le code partait avec de bonnes référence mais si un classeur etait appelé par "fichier" il n'etait pas ouvert il fallait "fichier.XLS" mais il s'enregistrait en "fichier.xls.xls" (dire si ça plantait) je n'ai pu m'en dépêtré qu'avec des magouilles en prenant un nom d'ouverture et un de fermeture (un pseudo quoi)
si cela peut t'aider
Daranc

[neo2k2]

Bonjour,

J'ai eu ce genre de problème avec des fichiers qui se trouvent dans des répertoires différents, par exemple C et D, alors que si je reste dans le même répertoire, aucun soucis lors de l'ouverture et enregistrement du fichier.

Donc dans ton cas, au lieu de mettre le chemin long (C:\Veille\nom_fichier.xls) essaye de n'utiliser que nom_fichier.xls et de faire travailler ta macro dans le même dossier.

Dsl de ne pouvoir t'en dire plus.

[Vilmir]

J'ai le même genre de problème depuis un Workbook dans "." et l'autre dans "./Work". Il me sort des Subscript Out Of Range alors que le fichier existe bien et que je ne l'appelle que par "NomDeFichier.xls".