création macro ouverture automatique fichier

[ironangel]

Bonsoir le forum,

Je viens vers vous car j'aimerais creer une macro qui en l'éxécutant ouvre automatiquement un autre classeur, est ce possible? si oui y a t'il une macro type?

Amicalement

 

[Hulk]

Re : création macro ouverture automatique fichier

Hello tout le monde, Ironangel,

Voilà un exemple.

Cdt, Hulk.

 

[Hulk]

Re : création macro ouverture automatique fichier

Re,

Et un autre.

Bien sûr le chemin est à adapter.

Bye.

 

[Hulk]

Re : création macro ouverture automatique fichier

Encore moi,

Le code du Bouton2 tu peux le simplifier comme ceci

    Select Case MsgBox("Voulez-vous ouvrir un classeur ?", vbYesNo)
     Case vbYes
      
      Workbooks.Open Filename:="C:\Documents and Settings\Dr Banner\Bureau\Macro date.xls"
    
     Case vbNo
         Exit Sub
    End Select

Evidement toujours le chemin à adapter !

Cdt, Hulk.

 

[ironangel]

Re : création macro ouverture automatique fichier

Salut,

merci de ton aide,

J'aimerais quand ouvrant ce classeur il me remplisse automatiquement certaines cellules que j'aurais remplit dans le fichier ou j'éxécute le msgbox, je m'explique:

supposons dans un fichier A, j'ecrit dans les cellules A1 A2 A3 A4
j'aimerais quand exécutant la msgbox, les cellules A1 A2 A3 A4 se copie dans les cellules C1 C2 C3 C4 de l'autre fichier s'ouvrant avec la msgbox

est-ce possible?

Amicalement

 

[ironangel]

Re : création macro ouverture automatique fichier

Bonjour,

n'y aurait il pas qqun pour m'aider?

amicalement

 

[Hulk]

Re : création macro ouverture automatique fichier

Hello,

Tu peux comme ci-dessous, mais il y a sûrement mieux...

Private Sub CommandButton1_Click()
    
    Select Case MsgBox("Voulez-vous ouvrir le classeur ''Macro date.xls'' ?", vbYesNo)
     Case vbYes
      Workbooks.Open Filename:="C:\Documents and Settings\Dr Banner\Bureau\Macro date.xls"
      Workbooks("Macro date.xls").Sheets("Feuil1").Range("C1:C4") = _
      Workbooks("Classeur2.xls").Sheets("Feuil1").Range("A1:A4").Value
     Case vbNo
      Exit Sub
    End Select

End Sub

Cdt, Hulk.

EDIT : Attention, j'ai modifié le message de la MsgBox.
Les guillemets de ''Macro date.xls'' ne sont pas des guillemets mais des apostrophes !