Bonjour a tous,
Je voudrais comme premiere etape de ma macro que soit defini l'emplacement
ou vont etre creer mes fichiers en utilisant la Boite de dialogue/Enregistrer
sous .
Pourriez vous m'aiguiller; je ne maitrise pas encore tous les objets VBA
Merci pour votre aide
Hugo
Voici ma macro
Sub SelectionNC()
Dim MonCritere
Set bbb = ActiveWorkbook
For i = 1 To 5
MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de
mon critere
Set aaa = Workbooks.Add 'creation d'1 nouveau classeur
aaa.SaveAs Filename:=MonCritere
cpt = 1
For j = 1 To 100
If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then
bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy
Destination:=aaa.Worksheets("Feuil1").Range("a" & cpt)
cpt = cpt + 1
End If
Next j
aaa.Close
Next i
Set aaa = Nothing
Bonjour a tous, Je voudrais comme premiere etape de ma macro que soit defini l'emplacement ou vont etre creer mes fichiers en utilisant la Boite de dialogue/Enregistrer sous . Pourriez vous m'aiguiller; je ne maitrise pas encore tous les objets VBA Merci pour votre aide Hugo Voici ma macro
Sub SelectionNC() Dim MonCritere Set bbb = ActiveWorkbook For i = 1 To 5 MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de mon critere Set aaa = Workbooks.Add 'creation d'1 nouveau classeur aaa.SaveAs Filename:=MonCritere cpt = 1 For j = 1 To 100 If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy Destination:ªa.Worksheets("Feuil1").Range("a" & cpt) cpt = cpt + 1 End If Next j aaa.Close Next i Set aaa = Nothing
End Sub
bonjour hugo
une ligne de ce type te plairait-elle?
"hugo" <hugo@discussions.microsoft.com> a écrit dans le message de news:
2E22AE99-A633-47F8-AD5E-6D4F569236A4@microsoft.com...
Bonjour a tous,
Je voudrais comme premiere etape de ma macro que soit defini l'emplacement
ou vont etre creer mes fichiers en utilisant la Boite de
dialogue/Enregistrer
sous .
Pourriez vous m'aiguiller; je ne maitrise pas encore tous les objets VBA
Merci pour votre aide
Hugo
Voici ma macro
Sub SelectionNC()
Dim MonCritere
Set bbb = ActiveWorkbook
For i = 1 To 5
MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de
mon critere
Set aaa = Workbooks.Add 'creation d'1 nouveau classeur
aaa.SaveAs Filename:=MonCritere
cpt = 1
For j = 1 To 100
If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then
bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy
Destination:ªa.Worksheets("Feuil1").Range("a" & cpt)
cpt = cpt + 1
End If
Next j
aaa.Close
Next i
Set aaa = Nothing
Bonjour a tous, Je voudrais comme premiere etape de ma macro que soit defini l'emplacement ou vont etre creer mes fichiers en utilisant la Boite de dialogue/Enregistrer sous . Pourriez vous m'aiguiller; je ne maitrise pas encore tous les objets VBA Merci pour votre aide Hugo Voici ma macro
Sub SelectionNC() Dim MonCritere Set bbb = ActiveWorkbook For i = 1 To 5 MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de mon critere Set aaa = Workbooks.Add 'creation d'1 nouveau classeur aaa.SaveAs Filename:=MonCritere cpt = 1 For j = 1 To 100 If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy Destination:ªa.Worksheets("Feuil1").Range("a" & cpt) cpt = cpt + 1 End If Next j aaa.Close Next i Set aaa = Nothing
End Sub
Sitting Hoax
Bonjour, avec l'antislash ça marche mieux Application.Dialogs(xlDialogSaveAs).Show "C:MonRepertoireMonSousRepertoire" Amicalement Siesting Hoax (qui veille malgré la sieste ;-))) "jps" a écrit dans le message de news:
bonjour hugo une ligne de ce type te plairait-elle?
Bonjour a tous, Je voudrais comme premiere etape de ma macro que soit defini l'emplacement ou vont etre creer mes fichiers en utilisant la Boite de dialogue/Enregistrer sous . Pourriez vous m'aiguiller; je ne maitrise pas encore tous les objets VBA Merci pour votre aide Hugo Voici ma macro
Sub SelectionNC() Dim MonCritere Set bbb = ActiveWorkbook For i = 1 To 5 MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de mon critere Set aaa = Workbooks.Add 'creation d'1 nouveau classeur aaa.SaveAs Filename:=MonCritere cpt = 1 For j = 1 To 100 If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy Destination:ªa.Worksheets("Feuil1").Range("a" & cpt) cpt = cpt + 1 End If Next j aaa.Close Next i Set aaa = Nothing
End Sub
Bonjour,
avec l'antislash ça marche mieux
Application.Dialogs(xlDialogSaveAs).Show
"C:MonRepertoireMonSousRepertoire"
Amicalement
Siesting Hoax (qui veille malgré la sieste ;-)))
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
ucmHG0jwGHA.4944@TK2MSFTNGP02.phx.gbl...
bonjour hugo
une ligne de ce type te plairait-elle?
"hugo" <hugo@discussions.microsoft.com> a écrit dans le message de news:
2E22AE99-A633-47F8-AD5E-6D4F569236A4@microsoft.com...
Bonjour a tous,
Je voudrais comme premiere etape de ma macro que soit defini
l'emplacement
ou vont etre creer mes fichiers en utilisant la Boite de
dialogue/Enregistrer
sous .
Pourriez vous m'aiguiller; je ne maitrise pas encore tous les objets VBA
Merci pour votre aide
Hugo
Voici ma macro
Sub SelectionNC()
Dim MonCritere
Set bbb = ActiveWorkbook
For i = 1 To 5
MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de
mon critere
Set aaa = Workbooks.Add 'creation d'1 nouveau classeur
aaa.SaveAs Filename:=MonCritere
cpt = 1
For j = 1 To 100
If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then
bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy
Destination:ªa.Worksheets("Feuil1").Range("a" & cpt)
cpt = cpt + 1
End If
Next j
aaa.Close
Next i
Set aaa = Nothing
Bonjour, avec l'antislash ça marche mieux Application.Dialogs(xlDialogSaveAs).Show "C:MonRepertoireMonSousRepertoire" Amicalement Siesting Hoax (qui veille malgré la sieste ;-))) "jps" a écrit dans le message de news:
bonjour hugo une ligne de ce type te plairait-elle?
Bonjour a tous, Je voudrais comme premiere etape de ma macro que soit defini l'emplacement ou vont etre creer mes fichiers en utilisant la Boite de dialogue/Enregistrer sous . Pourriez vous m'aiguiller; je ne maitrise pas encore tous les objets VBA Merci pour votre aide Hugo Voici ma macro
Sub SelectionNC() Dim MonCritere Set bbb = ActiveWorkbook For i = 1 To 5 MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de mon critere Set aaa = Workbooks.Add 'creation d'1 nouveau classeur aaa.SaveAs Filename:=MonCritere cpt = 1 For j = 1 To 100 If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy Destination:ªa.Worksheets("Feuil1").Range("a" & cpt) cpt = cpt + 1 End If Next j aaa.Close Next i Set aaa = Nothing
End Sub
jps
ach...vite mon antiscud à défaut... sorry, hugo jps (qui veille à rien, même pas au grain...de sel)
Bonjour, avec l'antislash ça marche mieux Application.Dialogs(xlDialogSaveAs).Show "C:MonRepertoireMonSousRepertoire" Amicalement Siesting Hoax (qui veille malgré la sieste ;-))) "jps" a écrit dans le message de news:
bonjour hugo une ligne de ce type te plairait-elle?
Bonjour a tous, Je voudrais comme premiere etape de ma macro que soit defini l'emplacement ou vont etre creer mes fichiers en utilisant la Boite de dialogue/Enregistrer sous . Pourriez vous m'aiguiller; je ne maitrise pas encore tous les objets VBA Merci pour votre aide Hugo Voici ma macro
Sub SelectionNC() Dim MonCritere Set bbb = ActiveWorkbook For i = 1 To 5 MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de mon critere Set aaa = Workbooks.Add 'creation d'1 nouveau classeur aaa.SaveAs Filename:=MonCritere cpt = 1 For j = 1 To 100 If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy Destination:ªa.Worksheets("Feuil1").Range("a" & cpt) cpt = cpt + 1 End If Next j aaa.Close Next i Set aaa = Nothing
End Sub
ach...vite mon antiscud à défaut...
sorry, hugo
jps (qui veille à rien, même pas au grain...de sel)
"Sitting Hoax" <http://cerbermail.com/?GSQ36o9bFb> a écrit dans le message
de news: u0lcZTswGHA.2448@TK2MSFTNGP05.phx.gbl...
Bonjour,
avec l'antislash ça marche mieux
Application.Dialogs(xlDialogSaveAs).Show
"C:MonRepertoireMonSousRepertoire"
Amicalement
Siesting Hoax (qui veille malgré la sieste ;-)))
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
ucmHG0jwGHA.4944@TK2MSFTNGP02.phx.gbl...
bonjour hugo
une ligne de ce type te plairait-elle?
"hugo" <hugo@discussions.microsoft.com> a écrit dans le message de news:
2E22AE99-A633-47F8-AD5E-6D4F569236A4@microsoft.com...
Bonjour a tous,
Je voudrais comme premiere etape de ma macro que soit defini
l'emplacement
ou vont etre creer mes fichiers en utilisant la Boite de
dialogue/Enregistrer
sous .
Pourriez vous m'aiguiller; je ne maitrise pas encore tous les objets VBA
Merci pour votre aide
Hugo
Voici ma macro
Sub SelectionNC()
Dim MonCritere
Set bbb = ActiveWorkbook
For i = 1 To 5
MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition
de
mon critere
Set aaa = Workbooks.Add 'creation d'1 nouveau classeur
aaa.SaveAs Filename:=MonCritere
cpt = 1
For j = 1 To 100
If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then
bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy
Destination:ªa.Worksheets("Feuil1").Range("a" & cpt)
cpt = cpt + 1
End If
Next j
aaa.Close
Next i
Set aaa = Nothing
Bonjour, avec l'antislash ça marche mieux Application.Dialogs(xlDialogSaveAs).Show "C:MonRepertoireMonSousRepertoire" Amicalement Siesting Hoax (qui veille malgré la sieste ;-))) "jps" a écrit dans le message de news:
bonjour hugo une ligne de ce type te plairait-elle?
Bonjour a tous, Je voudrais comme premiere etape de ma macro que soit defini l'emplacement ou vont etre creer mes fichiers en utilisant la Boite de dialogue/Enregistrer sous . Pourriez vous m'aiguiller; je ne maitrise pas encore tous les objets VBA Merci pour votre aide Hugo Voici ma macro
Sub SelectionNC() Dim MonCritere Set bbb = ActiveWorkbook For i = 1 To 5 MonCritere = bbb.Worksheets("Feuil3").Range("A" & i).Value 'definition de mon critere Set aaa = Workbooks.Add 'creation d'1 nouveau classeur aaa.SaveAs Filename:=MonCritere cpt = 1 For j = 1 To 100 If bbb.Worksheets("feuil2").Range("A" & j).Value = MonCritere Then bbb.Worksheets("feuil2").Range("A" & j).EntireRow.Copy Destination:ªa.Worksheets("Feuil1").Range("a" & cpt) cpt = cpt + 1 End If Next j aaa.Close Next i Set aaa = Nothing