Dans la procedure suivante je bloc (erreur message X 400)
cela ce produit (ligne 20) Range("E1").Select
dans cette cellule j'ai la formule qui me donne le nom du fichier
que je copie et colle la valeur (soit le nom du fichier que j'ai
besoin dans la cellule "E1")
Pourquoi et comment corriger (ce la fonctionnais et soudainement ca ne
fonctionne plus ? )
Merci
Sub Copie_onglet()
' CTRL-Shift_Z
Dim Nom_Classeur As Workbook, DanP As Worksheet
Dim Retour_Message As Long
For Each Nom_Classeur In Workbooks
If Nom_Classeur.Name <> ThisWorkbook.Name Then
Retour_Message =3D MsgBox("Voulez-vous copier les onglets " & _
"dans le fichier " & Nom_Classeur.Name, vbYesNo)
If Retour_Message =3D 6 Then
'ici tout ce que tu as =E0 faire avant
Set DanP =3D Workbooks(Nom_Classeur.Name).Sheets(1)
Sheets(Array("Soumission", "data",
"rapport_insp")).Copy After:=3DDanP
Exit For
End If
End If
Next
Set DanP =3D Nothing
Sheets("data").Select
ActiveSheet.Shapes("Button 1").Select
Selection.Cut
Sheets("Soumission").Select
Range("E1").Select
Calculate
Selection.Copy
Selection.PasteSpecial Paste:=3DxlPasteValues, Operation:=3DxlNone,
SkipBlanks _
:=3DFalse, Transpose:=3DFalse
Range("N1:R1").Select
ActiveCell.FormulaR1C1 =3D "=3Dsommaire!R[13]C[-12]"
Range("N2:R2").Select
ActiveCell.FormulaR1C1 =3D "=3Dsommaire!R[13]C[-12]"
Range("B67").Select
Le samedi 17 mars 2012 20:17:44 UTC-4, isabelle a écrit :
pourquoi ne pas utilis� Sheets("data").Range("E1") = ActiveWorkbook.Name
et au lieu d'utiliser Paste:=xlPasteValues utilise � la place: Sheets("Soumission").Range("E1") = Sheets("Soumission").Range("E1").Val ue
-- isabelle
Bonjour isabelle
Oui les deux ligne fonctionne. la cellule "E5" est bien coller (valeur) ci je met fin a la procédure, ca fonctionne... Mais ci je continue avec coller la formule( =sommaire!R[13]C[-12] )dans l a cellule "N1:R1"("N1" a "R1" sont fusionner) et dans la cellule "N2:N3" ("N2" a "R2" sont fusionner) la formule ( =sommaire!R[14]C[-12] ) puis rendre la cellule active " E6 " pour finir ca bloc X400 ....???? ................................ Range("N1:R1").Select ActiveCell.FormulaR1C1 = "=sommaire!R[13]C[-12]" Range("N2:R2").Select ActiveCell.FormulaR1C1 = "=sommaire!R[14]C[-12]" Range("B67").Select ...........................
Merci
Le samedi 17 mars 2012 20:17:44 UTC-4, isabelle a écrit :
pourquoi ne pas utilis�
Sheets("data").Range("E1") = ActiveWorkbook.Name
et au lieu d'utiliser Paste:=xlPasteValues
utilise � la place:
Sheets("Soumission").Range("E1") = Sheets("Soumission").Range("E1").Val ue
--
isabelle
Bonjour isabelle
Oui les deux ligne fonctionne.
la cellule "E5" est bien coller (valeur) ci je met fin a la procédure, ca fonctionne...
Mais ci je continue avec coller la formule( =sommaire!R[13]C[-12] )dans l a cellule "N1:R1"("N1" a "R1" sont fusionner) et
dans la cellule "N2:N3" ("N2" a "R2" sont fusionner)
la formule ( =sommaire!R[14]C[-12] )
puis rendre la cellule active " E6 " pour finir
ca bloc X400 ....????
................................
Range("N1:R1").Select
ActiveCell.FormulaR1C1 = "=sommaire!R[13]C[-12]"
Range("N2:R2").Select
ActiveCell.FormulaR1C1 = "=sommaire!R[14]C[-12]"
Range("B67").Select
...........................
Le samedi 17 mars 2012 20:17:44 UTC-4, isabelle a écrit :
pourquoi ne pas utilis� Sheets("data").Range("E1") = ActiveWorkbook.Name
et au lieu d'utiliser Paste:=xlPasteValues utilise � la place: Sheets("Soumission").Range("E1") = Sheets("Soumission").Range("E1").Val ue
-- isabelle
Bonjour isabelle
Oui les deux ligne fonctionne. la cellule "E5" est bien coller (valeur) ci je met fin a la procédure, ca fonctionne... Mais ci je continue avec coller la formule( =sommaire!R[13]C[-12] )dans l a cellule "N1:R1"("N1" a "R1" sont fusionner) et dans la cellule "N2:N3" ("N2" a "R2" sont fusionner) la formule ( =sommaire!R[14]C[-12] ) puis rendre la cellule active " E6 " pour finir ca bloc X400 ....???? ................................ Range("N1:R1").Select ActiveCell.FormulaR1C1 = "=sommaire!R[13]C[-12]" Range("N2:R2").Select ActiveCell.FormulaR1C1 = "=sommaire!R[14]C[-12]" Range("B67").Select ...........................
Oui les deux ligne fonctionne. la cellule "E5" est bien coller (valeur) ci je met fin a la procédure, ca fonctionne... Mais ci je continue avec coller la formule( =sommaire!R[13]C[-12] )dans la cellule "N1:R1"("N1" a "R1" sont fusionner) et dans la cellule "N2:N3" ("N2" a "R2" sont fusionner) la formule ( =sommaire!R[14]C[-12] ) puis rendre la cellule active " E6 " pour finir ca bloc X400 ....???? ................................ Range("N1:R1").Select ActiveCell.FormulaR1C1 = "=sommaire!R[13]C[-12]" Range("N2:R2").Select ActiveCell.FormulaR1C1 = "=sommaire!R[14]C[-12]" Range("B67").Select ...........................
Oui les deux ligne fonctionne.
la cellule "E5" est bien coller (valeur) ci je met fin a la procédure, ca fonctionne...
Mais ci je continue avec coller la formule( =sommaire!R[13]C[-12] )dans la cellule "N1:R1"("N1" a "R1" sont fusionner) et
dans la cellule "N2:N3" ("N2" a "R2" sont fusionner)
la formule ( =sommaire!R[14]C[-12] )
puis rendre la cellule active " E6 " pour finir
ca bloc X400 ....????
................................
Range("N1:R1").Select
ActiveCell.FormulaR1C1 = "=sommaire!R[13]C[-12]"
Range("N2:R2").Select
ActiveCell.FormulaR1C1 = "=sommaire!R[14]C[-12]"
Range("B67").Select
...........................
Oui les deux ligne fonctionne. la cellule "E5" est bien coller (valeur) ci je met fin a la procédure, ca fonctionne... Mais ci je continue avec coller la formule( =sommaire!R[13]C[-12] )dans la cellule "N1:R1"("N1" a "R1" sont fusionner) et dans la cellule "N2:N3" ("N2" a "R2" sont fusionner) la formule ( =sommaire!R[14]C[-12] ) puis rendre la cellule active " E6 " pour finir ca bloc X400 ....???? ................................ Range("N1:R1").Select ActiveCell.FormulaR1C1 = "=sommaire!R[13]C[-12]" Range("N2:R2").Select ActiveCell.FormulaR1C1 = "=sommaire!R[14]C[-12]" Range("B67").Select ...........................
Merci
pellet15
Le dimanche 18 mars 2012 10:51:28 UTC-4, isabelle a écrit :
Gros Merci cela répond très bien Vous avez toujours ma solution MERCI
Le 2012-03-18 01:24, pellet15 a écrit :
> Oui les deux ligne fonctionne. > la cellule "E5" est bien coller (valeur) ci je met fin a la procédure , ca fonctionne... > Mais ci je continue avec coller la formule( =sommaire!R[13]C[-12] )da ns la cellule "N1:R1"("N1" a "R1" sont fusionner) et > dans la cellule "N2:N3" ("N2" a "R2" sont fusionner) > la formule ( =sommaire!R[14]C[-12] ) > puis rendre la cellule active " E6 " pour finir > ca bloc X400 ....???? > ................................ > Range("N1:R1").Select > ActiveCell.FormulaR1C1 = "=sommaire!R[13]C[-12]" > Range("N2:R2").Select > ActiveCell.FormulaR1C1 = "=sommaire!R[14]C[-12]" > Range("B67").Select > ........................... > > Merci
Le dimanche 18 mars 2012 10:51:28 UTC-4, isabelle a écrit :
Gros Merci
cela répond très bien
Vous avez toujours ma solution
MERCI
Le 2012-03-18 01:24, pellet15 a écrit :
> Oui les deux ligne fonctionne.
> la cellule "E5" est bien coller (valeur) ci je met fin a la procédure , ca fonctionne...
> Mais ci je continue avec coller la formule( =sommaire!R[13]C[-12] )da ns la cellule "N1:R1"("N1" a "R1" sont fusionner) et
> dans la cellule "N2:N3" ("N2" a "R2" sont fusionner)
> la formule ( =sommaire!R[14]C[-12] )
> puis rendre la cellule active " E6 " pour finir
> ca bloc X400 ....????
> ................................
> Range("N1:R1").Select
> ActiveCell.FormulaR1C1 = "=sommaire!R[13]C[-12]"
> Range("N2:R2").Select
> ActiveCell.FormulaR1C1 = "=sommaire!R[14]C[-12]"
> Range("B67").Select
> ...........................
>
> Merci
Gros Merci cela répond très bien Vous avez toujours ma solution MERCI
Le 2012-03-18 01:24, pellet15 a écrit :
> Oui les deux ligne fonctionne. > la cellule "E5" est bien coller (valeur) ci je met fin a la procédure , ca fonctionne... > Mais ci je continue avec coller la formule( =sommaire!R[13]C[-12] )da ns la cellule "N1:R1"("N1" a "R1" sont fusionner) et > dans la cellule "N2:N3" ("N2" a "R2" sont fusionner) > la formule ( =sommaire!R[14]C[-12] ) > puis rendre la cellule active " E6 " pour finir > ca bloc X400 ....???? > ................................ > Range("N1:R1").Select > ActiveCell.FormulaR1C1 = "=sommaire!R[13]C[-12]" > Range("N2:R2").Select > ActiveCell.FormulaR1C1 = "=sommaire!R[14]C[-12]" > Range("B67").Select > ........................... > > Merci
isabelle
c'est avec plaisir, merci pour ce retour.
-- isabelle
Le 2012-03-18 12:10, pellet15 a écrit :
Gros Merci cela répond très bien Vous avez toujours ma solution MERCI
c'est avec plaisir, merci pour ce retour.
--
isabelle
Le 2012-03-18 12:10, pellet15 a écrit :
Gros Merci
cela répond très bien
Vous avez toujours ma solution
MERCI