Récupération de données

[pietrus2]

Bonjour le forum,

J’ai commencé à créer une macro qui à partir de l’information inscrite dans la cellule H4 de mon « fichier destination » va récupérer des informations dans le fichier « Cycle de développement d’un nouveau produit ». Les infos inscrites en H4 permettent de savoir quel onglet va être utilisé dans le fichier cycle de dév… . Mais cette macro ne fonctionne pas , c’est pour ça que je sollicite le forum.

Merci de votre aide,

Pierre

 

[pierrejean]

Re : Récupération de données

bonjour pietrus

A tester:

Sub copie_cyclnvoprod()
    Workbooks.Open "C:\Documents and Settings\pga\Bureau\essais mac\Cycle de développement d’un nouveau produit.xls", 0
    Workbooks("Fichier source.xls").Activate
    nomfeuille = Trim(Str(Cells(4, 8).Value))
    
    With Workbooks("Cycle de développement d’un nouveau produit.xls")
      
      
        .Sheets(nomfeuille).Range("D7:N9").Copy
        Windows("fichier destination.xls").Activate
        Range("E12:O14").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            
      
    End With
    Application.CutCopyMode = False
    Workbooks("Cycle de développement d’un nouveau produit.xls").Close SaveChanges:=False
End Sub

 

[pietrus2]

Re : Récupération de données

Bonjour,

merci pour cette solution , par contre , je suis obligé de mettre un nombre dans la cellule H4 , si je mets une information du type "projet 3" , la macro ne fonctionne pas , est ce possible de modifier ce point ?

Merci

 

[pierrejean]

Re : Récupération de données

Re

Avec ceci cela devrait fonctionner aussi bien avec un chiffre qu'un texte

 nomfeuille = Trim(Cells(4, 8).Value)

 

[pietrus2]

Re : Récupération de données

Tout marche

Merci, bonne journée.

pierre