Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Boite de dialogue/Enregistrer sous

3 réponses
Avatar
hugo
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

End Sub

3 réponses

Avatar
jps
bonjour hugo
une ligne de ce type te plairait-elle?

Application.Dialogs(xlDialogSaveAs).Show
"C:MonRepertoireMonSousRepertoire"

jps

"hugo" a écrit dans le message de news:

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



Avatar
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?

Application.Dialogs(xlDialogSaveAs).Show
"C:MonRepertoireMonSousRepertoire"

jps

"hugo" a écrit dans le message de news:

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







Avatar
jps
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&gt; a écrit dans le message
de news:
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?

Application.Dialogs(xlDialogSaveAs).Show
"C:MonRepertoireMonSousRepertoire"

jps

"hugo" a écrit dans le message de news:

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