Probleme pour conception d une macro

14 réponses

BntMICHEL

21/08/2006 à 10:27

Bonjour,

Voilà j ai actuellement un problème pour faire une macro
mon souhait était de prendre une feuille excel protégé et la copier sur une
autre feuille (cela marche en faisant copier coller) ensuite selectionner 3
colonnes et les copier pour les mettre dans une autre feuille puis ensuite
enregistrer cette feuille en format "prn"

j ai donc créé une nouvelle macro qui est celle ci

Sub test()
'
' test Macro
' Macro enregistrée le 21/08/2006 par sobotram
'

'
Cells.Select
Selection.Copy
Workbooks.Add
Application.Run Range("ScOnWindow")
ActiveSheet.Paste
Rows("1:7").Select
Range("BA7").Activate
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Columns("AM:AR").Select
Selection.Copy
Workbooks.Add
Application.Run Range("ScOnWindow")
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"\\Srvdata\users\Sobotram Trs et
Log\Informatique\pde\Classeur2.prn", _
FileFormat:=xlTextPrinter, CreateBackup:=False
ActiveWorkbook.Close
Application.Run Range("ScOnWindow")
ActiveWorkbook.Close
Application.Run Range("ScOnWindow")
End Sub

et là j ai une erreur a la ligne

Application.Run Range("ScOnWindow")

puis

ActiveSheet.Paste

Pouvez vous m aidez s il vous plait

Cordialement

BntMICHEL

4 réponses

1 2

FxM

21/08/2006 à 19:09

Bonsoir,

Un fichier testé en local (je n'ai pas de serveur srvdata) et qui crée
bien un fichier classeur2.prn : http://cjoint.com/?ivtiwclVvp

@+
FxM

oui oui c est bien sur une seule ligne

Sur une seule ligne :
Workbooks(awb).ActiveSheet.range("AM1:AR1").entirecolumn.Copy
ActiveSheet.Range("A1")

@+
FxM

j ai une erreur la methode copy de la classe Range a échoué

Workbooks(awb).ActiveSheet.Columns("AM:AR").Copy ActiveSheet.Range("A1")

Toujours aussi peu testé :o)
@+
FxM

BntMICHEL

22/08/2006 à 11:55

Bonjour et encore emrci pour votre aide.

mais est ce qu il est possible de copier une page qui est protégée?
sinon est ce que l on peut mettre en dur le mot de passe pour deverouiller
le fichier dans la macro?

je vous remercie

Bonsoir,

Un fichier testé en local (je n'ai pas de serveur srvdata) et qui crée
bien un fichier classeur2.prn : http://cjoint.com/?ivtiwclVvp

@+
FxM

oui oui c est bien sur une seule ligne

Sur une seule ligne :
Workbooks(awb).ActiveSheet.range("AM1:AR1").entirecolumn.Copy
ActiveSheet.Range("A1")

@+
FxM

j ai une erreur la methode copy de la classe Range a échoué

Workbooks(awb).ActiveSheet.Columns("AM:AR").Copy ActiveSheet.Range("A1")

Toujours aussi peu testé :o)
@+
FxM

FxM

22/08/2006 à 12:24

Bonjour,

Bonjour et encore merci pour votre aide.

mais est ce qu'il est possible de copier une page qui est protégée ?
Oui, mais la copie semble rester protégée (Excel 2002)

Sub test()
Workbooks.Add
ThisWorkbook.Sheets("Feuil1").Copy ActiveWorkbook.Sheets("Feuil1")
End Sub

sinon est ce que l'on peut mettre en dur le mot de passe pour déverouiller
le fichier dans la macro?
Si "toto" est le mot de passe pour la "feuil1" :

Sub test2()
Sheets("Feuil1").Unprotect "toto"
End Sub

je vous remercie
Z'en prie :o)

@+
FxM

BntMICHEL

22/08/2006 à 15:04

oki je vais essaye et je vous redis!

Bonjour,

Bonjour et encore merci pour votre aide.

mais est ce qu'il est possible de copier une page qui est protégée ?
Oui, mais la copie semble rester protégée (Excel 2002)

Sub test()
Workbooks.Add
ThisWorkbook.Sheets("Feuil1").Copy ActiveWorkbook.Sheets("Feuil1")
End Sub

sinon est ce que l'on peut mettre en dur le mot de passe pour déverouiller
le fichier dans la macro?
Si "toto" est le mot de passe pour la "feuil1" :

Sub test2()
Sheets("Feuil1").Unprotect "toto"
End Sub

je vous remercie
Z'en prie :o)

@+
FxM

1 2

Probleme pour conception d une macro

4 réponses

Veuillez sélectionner un problème