Recuperation d'une feuille pour modif

[tactic6]

Bonjour le forum
je cherche je cherche mais je ne trouve pas

Actuellement avec mon fichier j'enregistre des sauvegardes de devis sur mon disque dur (en format .xls)
j'aimerai grace à un bouton choisir un devis puis l'importer dans mon classeur pour le modifier
j'ai essayé cette macro mais je n'arrive pas a la modifier

Sub Recuperation(ByVal control As IRibbonControl)
Dim i As Integer
Dim nom As String
nom = "Facture2009"

    Dim NbreFich As Integer
    
        Dim OuvrirFich
        OuvrirFich = Application.Dialogs(xlDialogOpen).Show
  
    If Workbooks(i).Name <> nom Then
        Workbooks(i).Sheets("Feuil1").Range("A1:k64").Copy _
            Destination:=Workbooks("Facture2009").Sheets("SAISIE").Cells(2, i + 1)
       
    End If


End Sub

Mon classeur s'appelle Facture2009
la feuille de réception s'appelle SAISIE

j'ai une erreur " L'indice n'appartient pas à la selection"
et la feuille ne s'ouvre pas dans mon classeur à la place de la feuille SAISIE mais s'ouvre toute seule
Pourquoi ??
merci

 

[skoobi]

Re : Recuperation d'une feuille pour modif

Bonjour tactic6,

tu déclares la variable "i" c'est bien mais tu ne lui attribue aucune valeur.

Bonne soirée.

 

[tactic6]

Re : Recuperation d'une feuille pour modif

Re
Merci pour ton aide
Désolé d'être aussi nul mais quelle valeur dois je lui donner ?

 

[tactic6]

Re : Recuperation d'une feuille pour modif

Re tout le monde
j'ai simplifié comme j'ai pu et vici donc le nouveau code

Sub Recuperation(ByVal control As IRibbonControl)

Dim nom As String
Application.DisplayAlerts = False 
        Dim OuvrirFich
        OuvrirFich = Application.Dialogs(xlDialogOpen).Show  
        Worksheet.Copy _
            Destination:=Workbooks("Facture2009").Sheets("SAISIE").Cells(2, i + 1) 

End Sub

mais le résultat est identique
meme message d'erreur (erreur 9)
et la feuille s'ouvre à part
une idée ?
merci

 

[skoobi]

Re : Recuperation d'une feuille pour modif

Re,
en rouge à supprimer, en bleu à modifier:

Sub Recuperation(ByVal control As IRibbonControl)

Dim nom As String
Application.DisplayAlerts = False 
        Dim OuvrirFich
        OuvrirFich = Application.Dialogs(xlDialogOpen).Show  
        [B][COLOR=Blue]Activesheet[/COLOR][/B].Copy _
            Destination:=Workbooks("Facture2009").Sheets("SAISIE")[B][COLOR=Red].Cells(2, i + 1) [/COLOR][/B]

End Sub

A tester.

 

[tactic6]

Re : Recuperation d'une feuille pour modif

Merci et désolé pour le temps de la réponse
j'ai toujours une erreur 9 " L'indice n'appartient pas à la selection"

à la ligne

ActiveSheet.Copy _
            Destination:=Workbooks("Facture2009").Sheets("SAISIE")

et je ne sais vraiment pas ce que ça veut dire

Une petite précision je suis sous 2007 et mon classeur est de type .xlsm

Merci encore pour votre aide

 

[skoobi]

Re : Recuperation d'une feuille pour modif

Remplace Destination:= par After:=
Sinon vérifie le nom du fichier et de la feuille (espace en trop par exemple).

 

[tactic6]

Re : Recuperation d'une feuille pour modif

Re
c'est exactement pareil
c'est fou quand ça veut pas .......ben ça veut pas

 

[skoobi]

Re : Recuperation d'une feuille pour modif

Les tests chez-moi fonctionne mais je n'ai pas excel 2007 donc... désolé...

 

[vbacrumble]

Re : Recuperation d'une feuille pour modif

Bonsoir à tous


Lu sur le net : pour Excel 2007

Application.Dialogs.Item(xlDialogOpen).Show "Book1.xlsm"[B][COLOR="Blue"], , True[/COLOR][/B]

Je ne sais si c'est là que ca coince.

 

[tactic6]

Re : Recuperation d'une feuille pour modif

Bonjour tout le monde
vbacrumble merci mais ça ne marche toujours pas
c'est exactement pareil
impossible de faire ce copier coller
Merci quand même et bonne journée à tous

 

[skoobi]

Re : Recuperation d'une feuille pour modif

Re bonjour,

Si tu veux plus d'aide il faudra envoyer le fichier car sinon on risque de tourner en rond et en faisant une version 2003 car je ne pense pas que cela soit lié à excel 2007.

Bon WE.

 

[tactic6]

Re : Recuperation d'une feuille pour modif

Bonsoir le forum
je joint donc une feuille en .xlsm et une autre en .xls
le but du "jeu" est de creer une macro qui copie la feuille ".xls" à la place de l'onglet "SAISIE" dans le classeur ".xlsm"
merci et très bon WE à tous