Discussion :

[PPN83]

Bonjour à tous

Je souhaiterai copier la première ligne d'un fichier base et la coller sur la 2ème ligne d'une feuille d'un fichier fermé et l'enregistrer sous. mais je n'y arrive pas. en gras j'ai le message l'indice n'appartient pas à la sélection.

Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub copier ()
Rows("1:1").Select
    Selection.Copy
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
    Windows("Entretien.xls").Sheets("Recueil données").Select 'le fichier fermé
    Rows("2:2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Enregitrer_Nom()
'
Dim chemin As String, name As String
chemin = "T:\TRAVAUX \"
nom = Range("c7").Value & ".xls"
 
    ChDir "T:\TRAVAUX "
    ThisWorkbook.SaveAs chemin & nom, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

[aliasjadawin]

Bonjour,
Ou se trouve l'erreur ?

[PPN83]

ah j'avais oublié, je viens de la mettre en gras

merci

[aliasjadawin]

Je pense que l'erreur d'indice vient de Windows("Entretien.xls").
En effet Windows contient toutes les fenêtres (actives) de l'application (excel).
Or Entretien.xls n'est pas ouvert (donc n'est pas une fenêtre).
Il faut odnc ouvrir le fichier avant tout
utilise donc:

Code :

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

Workbooks.Open Filename:= 'ton chemin

[PPN83]

je dois donc ouvrir les classeurs.
je doit lancer 2 macros séparément pour réaliser ce que je veux mais classeurs ouverts. peut on fusionner les 2
celle du fichier base

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro4()
 
    Selection.Copy
    Windows("Entretien professionnel.xls").Activate
    Sheets("Recueil données").Visible = True
    Sheets("Recueil données").Select
    Range("A10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Recueil données").Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub

et celle de monfichier à enregistrer

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
Sub Enregitrer_Name()
'
Dim MonClasseur As Workbook
Dim chemin As String, Nom As String
chemin = "T:\GPEEC\TRAVAUX ENTRETIEN PROFESSIONNEL\"
Nom = Sheets("Evalué").Range("c7").Value & ".xls"
 
'
    ChDir "T:\GPEEC\TRAVAUX ENTRETIEN PROFESSIONNEL"
    ThisWorkbook.SaveAs chemin & Nom, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Set MonClasseur = ThisWorkbook
    If MonClasseur.name <> "Entretien professionnel.xls" Then
        Workbooks.Open chemin & "Entretien professionnel.xls"
    End If
    MonClasseur.Close (False)
End Sub

c'est un peu lourd mais je ne sais pas faire mieux

[aliasjadawin]

Comme ça je dirais:

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
 
Sub copie_save() 'tu as (uniquement) ton fichier source ouvert
    Rows("1:1").Select 'selectionne la 1ere ligne
    Selection.Copy 'copie
    Dim chemin As String, Nom As String
    chemin = "T:\GPEEC\TRAVAUX ENTRETIEN PROFESSIONNEL\"
    Workbooks.Open chemin & "Entretien professionnel.xls" 'tu ouvres le fichier cible
    Workbooks("Entretien professionnel.xls").Sheets("Recueil données") _
    .Range("A10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False 'un peu lourd mais je vois pas autre
    'reste à sauvegarder et fermer ton classeur
    ThisWorkbook.SaveAs chemin & Nom, FileFormat:=xlNormal, Password:="", _
    WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ThisWorkbook.Close (False)
End Sub

par contre j'ai oublié de préciser ta variable Nom avant de faire SaveAs donc débrouille toi :p
Non je plaisante en réalité je viens juste de me rendre compte que je l'ai oublié... Elle dépend d'une valeur de cellule. Pense a bien préciser le workbook.

[PPN83]

Merci de ton aide
bon mon classeur s'ouvre correctement mais j'ai l'erreur suivante La méthode PasteSpécial de la classe range a échoué en gras dans le texte
Nom est dans le même classeur donc je n'ai pas besoin de préciser le classeur, tu confirmes.

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
Sub copie_save() 'tu as (uniquement) ton fichier source ouvert
    Rows("1:1").Select 'selectionne la 1ere ligne
    Selection.Copy 'copie
    Dim chemin As String, Nom As String
   

Nom = Sheets("Evalué").Range("a1").Value & ".xls"
    chemin = "T:\GPEEC\TRAVAUX ENTRETIEN PROFESSIONNEL\"
    Workbooks.Open chemin & "Entretien professionnel.xls" 'tu ouvres le fichier cible
    Workbooks("Entretien professionnel.xls").Sheets("Recueil données") _
    .Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False 'un peu lourd mais je vois pas autre
    'reste à sauvegarder et fermer ton classeur
    ThisWorkbook.SaveAs chemin & Nom, FileFormat:=xlNormal, Password:="", _
    WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ThisWorkbook.Close (False)
End Sub

[aliasjadawin]

Honnêtement je ne vois pas. Je commence à avoir les yeux (et le cerveau) qui fatiguent en ce début de fin de journée (héhé).

Par contre on peut simplifier :

Code :

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

1
2
3
4
 
Workbooks("Entretien professionnel.xls").Sheets("Recueil données") _
    .Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

en:

Code :

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

1
2
3
 
Workbooks("Entretien professionnel.xls").Sheets("Recueil données") _
    .Range("A2").PasteSpecial Paste:=xlPasteValues

en effet les trois derniers arguments sont ceux par défaut, il n'est donc pas nécessaire de les préciser.
Alors ça ne répond pas à ta question mais ça te fait gagner une ligne.
Et je me dis aussi que tu peux maintenant utiliser Windows au lieu de Workbooks vu que le Workbook en question. Tu devrais essayer...
Sinon, au pire es-tu vraiment obliger de préciser:

Code :

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

1
2
 
Rows("1:1").Select

au début ?
Tu peux le sélectionner à la main ou le définir explicitement.
Et alors tu n'auras plus qu'à écrire:

Code :

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

1
2
 
Selection.PasteSpecial Paste:=xlPasteValues

[PPN83]

ok merci quand même

Peut être que quelqu'un d'autre pourra m'aider

[patricktoulon]

bonjour

etant donné que tu travaille sur deux classeur tu dois select le sheets avant de paste speciale

c'est tout

et si possible en debut de macro "application.screenupdating=false " ca fera moins arbre de noel

au plaisir

[PPN83]

bonsoir,

j'ai rajouté le select mais j'ai l'erreur 1004 " impossible de lire la propritété select de la classe range" (en gras)

Merci

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
Sub copie_save() 'tu as (uniquement) ton fichier source ouvert
 Dim chemin As String, Nom As String
    Rows("1:1").Select 'selectionne la 1ere ligne
    Selection.Copy 'copie
    chemin = "I:\Entretien Pro\"
    Workbooks.Open chemin & "Entretien professionnel.xls" 'tu ouvres le fichier cible
    Nom = Sheets("Evalué").Range("a1").Value & ".xls"
    Workbooks("Entretien professionnel.xls").Sheets("Recueil données") _
    .Rows("2:2").Select.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    ThisWorkbook.SaveAs chemin & Nom, FileFormat:=xlNormal, Password:="", _
    WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ThisWorkbook.Close (False)

End Sub

[patricktoulon]

bonjour

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
 
 
Sub copie_save() 'tu as (uniquement) ton fichier source ouvert
 Dim chemin As String, Nom As String, titre As String, nom1 As String, nom2 As String
   nom1 = ThisWorkbook.Name
    Rows("1:1").Select 'selectionne la 1ere ligne
    Selection.Copy 'copie
    chemin = "I:\Entretien Pro\"
    titre = chemin & "Entretien professionnel.xls"
    Nom = Sheets("Evalué").Range("a1").Value & ".xls"
   Workbooks.Open chemin & titre 'tu ouvres le fichier cible
     nom2 = ActiveWorkbook.Name
     With Sheets("Recueil données")
     .Select
     .Rows("2:2").Select.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    ThisWorkbook.SaveAs chemin & Nom, FileFormat:=xlNormal, Password:="", _
    WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close (False)
'normalement tu devrais apres ca etre revenu a ton point de depart
End Sub

[fring]

Bonjour,

etant donné que tu travaille sur deux classeur tu dois select le sheets avant de paste speciale

pas besoin de sélection

Noms de classeur, de feuilles et chemins à adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub copie_save()
Dim Wb As Workbook, Ws As Worksheet
 
Set Wb = Workbooks.Open("C:\Rep\fichier.xls")
Set Ws = Wb.Sheets("NomFeuilleCible")
 
ThisWorkbook.Sheets("NomFeuilleSource").Rows(1).Copy
Ws.Rows(2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
 
Wb.SaveAs "D:\Rep\Newfichier.xls"
Wb.Close
 
End Sub

[patricktoulon]

bonjour fring

figure toi que chez moi pour unr raison qui m'est encore inconu si je ne select pas le sheet et bien ca ne marche pas je sais tres bien que tu a raison
mais avec plusieurs forumeur on a cherché tout les moyen de trouver ou etait l'erreur personne n'a jamais trouvé


au plaisir

[fring]

Crée 2 petits fichiers de test et essaie le bout de code que je propose ci-dessus, il n'y a aucune raison que ça coince chez toi. Si tu avais un problème dans un autre code, le problème était peut-être ailleurs.

[PPN83]

Déjà merci à tous les deux
j'ai commencé par le code le plus simple (fring) ça fonctionne très bien sauf qu'il ne veut pas l'enregistrer sous ma variable. Il enregistre sous "nom"

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
Sub copie_save()
Dim Wb As Workbook, Ws As Worksheet
Dim nom As String
Set Wb = Workbooks.Open("I:\Entretien Pro\Entretien professionnel.xls")
Set Ws = Wb.Sheets("Recueil données")
 
ThisWorkbook.Sheets("Base Agent").Rows(1).Copy
nom = Sheets("Recueil données").Range("a1").Value & ".xls"
 
Ws.Rows(2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
 
Wb.SaveAs "I:\Entretien Pro\test\nom"
Wb.Close
 
End Sub

[fring]

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
Sub copie_save()
Dim Wb As Workbook, Ws As Worksheet
Dim nom As String
Set Wb = Workbooks.Open("I:\Entretien Pro\Entretien professionnel.xls")
Set Ws = Wb.Sheets("Recueil données")
 
ThisWorkbook.Sheets("Base Agent").Rows(1).Copy
nom = Ws.Range("a1").Value & ".xls"
 
Ws.Rows(2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
 
Wb.SaveAs "I:\Entretien Pro\test\" & nom
Wb.Close
 
End Sub

[PPN83]

ça marché une fois correctement et en renouvelant l'opération j'ai le message suivant "la méthode saveas de l'objet workbook a échoué"

[fring]

Si tu le fais 2x de suite en gardant le même nom de sauvegarde, en principe tu devrais obtenir un message comme quoi le fichier existe déjà et si tu veux l'écraser. Tu n'as pas ce message ?

[PPN83]

Non j'ai trouvé pourquoi, en "A1" c'était une valeur en dur ça marché, ensuite j'ai changé par A2 qui était en cours de collage !!
j'ai déplacé la ligne Nom après le collage spécial et maintenant

CA MARCHE DU TONNERRE DE FEU

Je vais pouvoir l'exploiter demain Super

UN GRAND MERCI à fring, patricktoulon et aliasjadawin

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
Sub copie_save()
Dim Wb As Workbook, Ws As Worksheet
Dim nom As String
 
Set Wb = Workbooks.Open("I:\Entretien Pro\Entretien professionnel.xls")
Set Ws = Wb.Sheets("Recueil données")
 
ThisWorkbook.Sheets("Base Agent").Rows(1).Copy
nom = Sheets("Recueil données").Range("a3").Value & ".xls"
 
Ws.Rows(2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
nom = Sheets("Recueil données").Range("a3").Value & ".xls"
Wb.SaveAs "I:\Entretien Pro\test\" & nom
Wb.Close
 
End Sub