Récupération de données

pietrus2 · 16 Juin 2008

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 · 16 Juin 2008

Re : Récupération de données

bonjour pietrus

A tester:

Code:

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 · 16 Juin 2008

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 · 16 Juin 2008

Re : Récupération de données

Re

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

Code:

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

pietrus2 · 16 Juin 2008

Re : Récupération de données

Tout marche

Merci, bonne journée.

pierre

Récupération de données

pietrus2

Guest

Pièces jointes

pierrejean

XLDnaute Barbatruc

pietrus2

Guest

pierrejean

XLDnaute Barbatruc

pietrus2

Guest

Discussions similaires

Récupération de données

pietrus2

Guest

Pièces jointes

pierrejean

XLDnaute Barbatruc

pietrus2

Guest

pierrejean

XLDnaute Barbatruc

pietrus2

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency