Discussion :

[liop49]

Salut me revoilà,

J'ai un problème sur ma macro à l'ouverture de mon fichier excel N°Lot.xls

Je dois à l'ouverture aller copier une feuille (entrées) d'un fichier CopieLot.xls et la coller dans ma feuille (Copie) du fichier N0Lot.xls

Voici mon code :

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
 
Private Sub Workbook_Open()
 
 ChDir "\\Serveur\Documents"
 Workbooks.Open Filename:= _
     "\\Serveur\Documents\\N°lot2.xls"
 Active.Sheets("Copie Entrées").Select
 Active.Cells.Select
 Selection.Copy
 Windows("N_lot.xls").Activate
 Active.Sheets("Copie Entrées").Select
 Active.Cells.Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
     :=False, Transpose:=False
 Sheets("Recherche CB ou BA").Select
 Active.Range("B6").Select
 
End Sub

Il me met : "erreur d'execution '1004'" et "Erreur définie par l'application ou par l'objet"

J'ai pourtant essayer en créant une macro manuellement et c'est le code qu'il m'a sorti.

Je veux bien votre aide

Merci d'avance

[mahboub]

Salut me revoilà,

J'ai un problème sur ma macro à l'ouverture de mon fichier excel N°Lot.xls

Je dois à l'ouverture aller copier une feuille (entrées) d'un fichier CopieLot.xls et la coller dans ma feuille (Copie) du fichier N0Lot.xls

Voici mon code :

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
 
Private Sub Workbook_Open()
 
 ChDir "\\Serveur\Documents"
 Workbooks.Open Filename:= _
     "\\Serveur\Documents\N°lot2.xls"
 Active.Sheets("Copie Entrées").Select
 Active.Cells.Select
 Selection.Copy
 Windows("N_lot.xls").Activate
 Active.Sheets("Copie Entrées").Select
 Active.Cells.Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
     :=False, Transpose:=False
 Sheets("Recherche CB ou BA").Select
 Active.Range("B6").Select
 
End Sub

Il me met : "erreur d'execution '1004'" et "Erreur définie par l'application ou par l'objet"

J'ai pourtant essayer en créant une macro manuellement et c'est le code qu'il m'a sorti.

Je veux bien votre aide

Merci d'avance

à quel ligne il te met ca
moi je soupçonne

Code :

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

Windows("N_lot.xls").Activate

essaye d'activer ton workbook sasn passée par windows

[liop49]

Merci pour ton post

Non il me met ce message juste après avoir ouvert N°Lot2.xls c'est à dire sur le code :

Code :

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

Active.Sheets("Copie Entrées").Select

Tu me dis d'essayer d'activer le workbook sans passée par windows. Comment ?


J'ai omis de vous préciser et c'est peut être important, le fichier N°Lot2.xls sur lequel je veux copier un onglet est un fichier en lecture seule

Merci

[cwain]

Excuse moi d'aller vers la solution de facilité, mais j'ai fait ya pas longtemps une macro d'import de feuilles à partir d'un autre fichier. Un peu différent, d'autant que je pars d'une userform avec un bouton parcourir pour trouver le fichier, une listbox qui répertorie les noms des onglets, je les choisis et ensuite j'importe. Bref un peu différent. Mais bon pour manipuler deux fichiers, hésite pas à faire qqch comme ça :

Code :

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

1
2
3
4
5
6
dim ClasseurA as workbook
dim ClasseurB as workbook
set ClasseurA=ActiveWorkBook
Workbooks.Open Filename:= _
     "\\Serveur\Documents\N°lot2.xls"
set ClasseurB=activeworkbook

et pareil pour les feuilles :

Code :

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

1
2
dim FeuilA as Worksheet
set FeuilA=classeurB.sheets("NomOnglet")

etc...
Après tu es déjà plus peinard je pense

[liop49]

Désolé

Je ne comprends pas ce que tu m'as indiqué

Ce srait trop top si qq1 pouvait m'aider car je suis désespérement bloqué sur ce code de *****

[liop49]

J'ai réussi tout seul comme un grand

Je ne suis pas peu fier

Merci de ne pas m'avoir aider cela m'a permis de chercher tout seul mais la prochaine fois je suis preneur pour votre aide

Voici le code dans le fichier NLot.xls :

Code:

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
19
20
21
22
Sub auto_open()
 
'
' Macro enregistrée le 08/12/2006 par Nicolas BAUDRY
'
 
'
    Workbooks.Open Filename:= _
        "Monserveur\Copielot.xls"
 
    Windows("Copielot.xls").Activate
    Worksheets("Copie Entrées").Activate
    Cells.Select
    Selection.Copy
    Windows("NLot.xls").Activate
    Worksheets("Copie Entrées").Activate
    Cells.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("Copielot.xls").Close False
    Range("A1").Select
End Sub

Et voilà !!!