Windows.Activate

Bonjour,

est-ce que qqn pourrait me dire pourquoi la macro que je viens de créer ne marche pas :S

J'ai erreur 9 L'indice n'appartient pas à la sélection sur la ligne Windows(v_fichier).Activate et Pourtant quand je passe la souris sur v_fichier je vois bien le chemin complet du fichier précédemment sélectionné...

Sub test()

v_fichier = Application.GetOpenFilename

Workbooks.Open v_fichier

Range(Cells(1, 27), Cells(1, 32)).Select

Selection.Copy

v_fichier2 = Application.GetOpenFilename

Workbooks.Open v_fichier2

Range("A1").Select

Selection.Copy

Windows(v_fichier).Activate

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

End Sub

Merci pour votre aide

Bonjour

Il faudrait plus d'indication. Là tu copies d'un fichier vers l'autre

• Dans quel fichier se trouve la macro Test ? (Dans un troisième fichier)
• Tu copies range(cells(1,27.....) de V_fichier vers V_fichier2 ?
• Il faudrait aussi connaitre le nom des feuilles de chaque fichier pour la copie d'un vers l'autre

A vérifier mais les deux workbook.open ne servent pas

A te relire

Bonjour,

utilise une autre variable, "v_fichier" contient le nom et le chemin du fichier, il faut uniquement le "caption" de la fenêtre "windows" soit le nom du fichier, regarde ceci

Dim monfichier As String
monfichier = ActiveWorkbook

0 placer après l'ouverture du fichier, et ensuite dans ton code :

Windows(monfichier).Activate

bon après midi

@+

Edition : un peu en retard moi... bonjour Dan

Merci beaucoup.

Juste j'ai du mettre ActiveWorkbook.Name au lieu de ActiveWorkbook mais sinon ça marche !

Meeeerciiiiii

Re,

Juste j'ai du mettre ActiveWorkbook.Name au lieu de ActiveWorkbook mais sinon ça marche !

Aarf... oui, bien sur, autant pour moi, désolé...