Discussion :

[moimemessssssssss]

Bonjour,

Je suis sur un premier classeur excel nommé " al" , j'ouvre un deuxième classeur dont le nom est " 10.xls"

j'insere des données dans le classeur 1.xls et je veux revenir sur le 1er classeur "al.xls" et la il me dit qu'il y a une erreur "L'indice n'appartient pas à la sélection "
voici le code

Code :

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

1
2
3
4
5
Application.Workbooks.Open "C:\Documents and settings\Administrateur\Bureau\10.xlsx"
 '   ligne de code pour insérer les donnés
 
Windows("al").Activate
/* la je reviens sur le 1er classeur mais y a une erreur

merci de votre aide

[Le Pierre]

bonjour

ton code me semble correct sauf l'extension du nom de ton fichier dans la ligne :

Application.Workbooks.Open "C:\Documents and settings\Administrateur\Bureau\10.xlsx"

bonne journée

[AlainTech]

Il faut "penser objet".
Le classeur qui contient ta macro s'appelle ThisWorkbook (ThisWorkbook est un objet de type Workbook).

Quand tu ouvres un nouveau classeur, tu peux créer un objet qui "pointera" vers ce classeur:

Code :

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

1
2
3
4
5
Dim wbk2 As Workbook ' Je déclare un objet de type Workbook
' Je fais pointer cet objet vers le classeur que j'ouvre
Set wbk2 = Workbooks.Open("C:\Documents and settings\Administrateur\Bureau\10.xls")
' Un exemple de manipulation entre ces 2 classeurs:
ThisWorkbook.Sheets(1).Cells(1, 1) = wbk2.Sheets(1).Cells(1, 1)

[moimemessssssssss]

Bonjour,

En effet, je me suis trompé, en recopiant, sur l'extension du fichier, c'est 10.xls et non 10.xlsx

mais le code il marche toujours pas

quelqu'un a une idée??

merci

[moimemessssssssss]

bonjour,
merci pour la réponse
par contre la syntaxe suivante est mise en rouge dans le code vba excel
et excel refuse de l'exécuter

Code :

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

Set wbk2 = Application.Workbooks.Open "C:\Documents and settings\Administrateur\Bureau\10.xlsx"

savez vous pourquoi??
sinon merci pour la notion de "Thisworkbook"

merci

[Invité]

Bonjour,

Vous avez écrit :

En effet, je me suis trompé, en recopiant, sur l'extension du fichier, c'est 10.xls et non 10.xlsx

maintenant vous écrivez :

par contre la syntaxe suivante est mise en rouge dans le code vba excel
et excel refuse de l'exécuter

Set wbk2 = Application.Workbooks.Open "C:\Documents and settings\Administrateur\Bureau\10.xlsx"

Est-ce que l'erreur n'est pas à nouveau là ?

[moimemessssssssss]

Bonjour,

apparement, l'erreur ne vient pas du fait que j'ai écrit 10.xlsx au lieu 10.xls
en effet, j'ai remis 10.xls et cela ne change rien.
je vais jeter un coup d'oeil plus approfondi quand j'aurai plus de temps..
merci de votre aide

[Le Pierre]

bonsoir

avec l'enregistreur de macro, je trouve cette syntaxe :

Code :

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

1
2
Workbooks.Open Filename:= _
        "C:\Documents and settings\Administrateur\Bureau\10.xls"

à plus

[AlainTech]

Désolé, je n'avais pas testé le code posté.

Je viens de le corriger.

Code :

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

Set wbk2 = Workbooks.Open("C:\Documents and settings\Administrateur\Bureau\10.xls